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SUMMARY 

The development of cryogenic fluid management systems for space operation is a major 
portion of the efforts of the Cryogenic Fluids Technology Office (CFTO) at the NASA 
Lewis Research Center. Analytical models are a necessary part of experimental programs 
which are used to verify the results of experiments and are also used as a predictor for 
parametric studies. The CryoTran computer program is a bridge to obtain analytical 

results. 

The object of CryoTran is to coordinate these separate analyses into an integrated 
framework with a user-friendly interface and a common cryogenic property database. 
CryoTran is an integrated software system designed to help solve a diverse set of problems 
involving cryogenic fluid storage and transfer in both ground and low-g environments. 

CryoTran is designed to do the following here at NASA - Lewis Research Center (LeRC). 


1. Generate models for the SIND A thermal analyzer. 

2. Call on programs to be executed interactively on the front end computer, an IBM 
mainframe computer running the VM operating system, in line with CryoTran. 

3. Generate files containing the Cray runstreams to be submitted to the large scale high 
speed computer, a Cray computer. 

4 . Execute analysis programs residing on the Cray. 

CryoTran prompts the user for all the information necessary to accomplish the desired task. 
The input responses are tested for validity or feasibility whenever possible. 


INTRODUCTION 

As pan of its effort to develop cryogenic fluid management systems for space operations, 
the Cryogenic Fluids Technology Office (CFTO) has been developing analytical models of 
cryogenic systems. Separate analyses have been conducted in the past by the CFTO and 
others (refs. 1 through 7). 

CryoTran is a software system designed to solve a diverse set of problems involving 
cryogenic fluid storage, supply, and transfer. CryoTran is not constructed as one 
comprehensive general purpose program, but is instead divided into a set of modular 
programs for specific analyses. It is constructed with an open architecture which allows 
new modules to be added easily. User input is menu driven to facilitate usage. This 
approach makes CryoTran very versatile. 

This report presents the general description of CryoTran, describes the types of problems 
that may be solved using the system, describes how to access and use the program, 
describes the output and the steps necessary to incorporate new analyses into the system. 


GENERAL 

CryoTran is designed to solve several types of problems. This initial release of CryoTran 
(Version 1.0) has the capability to run routines interactively to analyze tank chilldown fluid 
usage, select a chilldown wall temperature at which no-vent fill is feasible, or transiently 
analyze the no-vent fill' process (refs. 5 and 7). It will set up heat transfer models to be 
solved using Systems Improved Numerical Differencing Analyzer (SINDA) (ref. 8) for two- 
dimensional (2-d) problems involving cryogenic storage in spherical tanks or cylindrical 
tanks with flat, spherical, or elliptical end caps. CryoTran also provides access to two 
large scale programs: CSAM (ref. 1) and SOLA-ECLIPSE (refs. 2 and 3). 
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THREE MAIN PARTS OF CRYOTRAN 


CryoTran is divided into the following three main parts: preprocessor, execution and 
postprocessor. Its construction is modular to allow for expansion. A library of several 
solution routines is included with the system. Figures 1 and 2 show diagrams of 
CryoTran. 


Preprocessor Part 

The preprocessor is the driver of the CryoTran system. It accepts user input to define a 
specific problem. The preprocessor consists of the main program and subroutines, graphics 
routines and a database of material and thermal properties which are all maintained on the 
LeRC VM computer. 

The preprocessor is written in the IBM FORTRAN 77 (version 2) programming language 
(ref. 9) and runs on the LeRC computer system running the IBM VM operating system, 
herein referred to as "the VM" or the "VM computer." The use of extensions and system- 
dependent code is kept to a minimum to make the code as transportable as possible. The 
FORTRAN code is generously commented to make it easy to follow. There are a few 
features (special purpose routines); however, that have been referenced from subroutine 
libraries at LeRC. These are noted in the code listings so that substitutions may be 
inserted at other installations. 

The user is prompted for input via menus. This system checks whether or not the input is 
correct and feasible wherever possible and then the user input is put into a file which is 
saved for future recall. 

The output of the preprocessor is a file which contains either the output from the execution 
of an interactive analysis or an input model to be submitted to the Cray for execution. If 
option 1 or 2 is chosen from the main menu, the file, called a "model file," will be a 
thermal model for SINDA. If option 3 is chosen from the main menu, followed by the 
option to access one of the large analysis codes resident on the Cray, the model file will 
contain the information to access the program on the Cray and, input data or a reference to 

the input data. 
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This model file has English text comments so that the user may make modifications to it 
prior to submitting it to the Cray for solution. Geometry plots of the SINDA input models 
may be obtained as part of the preprocessor. 


Execution Part 

The execution part of CryoTran executes one of the interactive programs within the system 
or submits the model file that was generated by the preprocessor to the Cray for execution. 
This model file contains job control language (JCL) and input data to an analysis program 
or a SINDA thermal model. This file is then submitted to the high-speed computer (Cray) 
for execution. The output of this execution is saved in a file and disposed to where the 
user may print it or save it for further processing in the postprocessor section. 


Postprocessor Part 

The postprocessor part of the system produces graphical results or analyzes the results 
obtained by the execution section. The postprocessor section consists of a plotting routine 
to plot the output of SOLA-ECLIPSE. 

The no-vent fill and chilldown modules, which are the programs that run interactively, 
have been previously documented (refs. 4 to 7). Code details for these modules are not 
reproduced here. Portions of refs. 4 to 7 are included for convenience in Appendix A 
which may serve as user’s guides for the no-vent fill and chilldown modules. Additionally, 
the large-scale programs, CSAM and SOLA-ECLIPSE, which are resident on the Cray 
computer and may be accessed through this system, are documented in refs. 1 through 3. 
See these references for the limitations of these programs and for input details. 
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USE OF HEAT TRANSFER NETWORK GENERATOR - SINDA 

One of the types of analyses available through CryoTran is thermal/thermo analyses of 
spherical or cylindrical tanks using SINDA (ref. 8). Some SINDA analyses use models 
where both the tank and the inside of the tank are nodalized. Other analyses involve 
models of tanks where the inside of the tank is not nodalized and the thermo analysis 
problem inside the tank is solved by special purpose subroutines written to solve a 
particular method of cooling or tank fill procedure. These subroutines are called from the 

SINDA blocks. 


GEOMETRIC MODEL 
Modeling 

CryoTran uses a two-dimensional analysis on spheres and cylinders. The two dimensions 
are radial (from the center of the tank outward to the outside surface) and circumferential 
(along the circumference of the tank from the south pole to the north pole). The tanks are 
nodalized using wedges. 


Spherical Wedge Nodes 

Figure 3 shows sketches depicting the spherical wedge nodes. The general model is a 
wedge with the vertex of the wedge at the center and radiating toward the outer surface at 
an angle of 1 radian. The nodes are formed by radial lines radiating from the vertex 
toward the outer surface and then by horizontal arcs at various distances from the vertex. 
This model looks like a wedge of an orange. 

Since all of the radial lines radiate from the center, the thickness of the nodes on the 
sphere is variable and gets thicker as the distance of the nodes gets farther from the center 
of the sphere. An input value "n" specifies the number of these wedges along the 
circumference from the south pole to the north pole, each with angle theta, where 
theta=180/n. 
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Cylindrical Nodes 


Figure 4 shows sketches indicating the geometry of cylinder nodes. In the case of the 
cylinder, the nodes are flat, four-sided nodes with two straight sides along the two radii 
describing the one radian angle and two sides which are circular arcs. On the cylinder the 
thickness of the nodes is determined by slices through the cylinder from the bottom to the 
top. 

For the cylindrical tanks the ends may be open or closed with flat, spherical, or elliptical 
ends, or any combination of these. Figure 5 shows possible end configurations. 


Regions 

When the user is using the options that generate a SINDA model, the model will be 
somewhat tailored for a specific application. The geometric model is generated using five 
regions. As specified above, the geometric shapes are spherical wedges or cylindrical 
wedges. The five regions are as follows: 


1. Tank Wall (shell) Required for all models. 


2. Outside Layer 1 


3. Outside Layer 2 

4 . Region 4 


Region or shell covering the outside surface of the tank. It 
could be another material (e.g., insulation) or some type of 
coating layer. (Optional) 

Second outside layer on top of Region 2. (Optional) 

Portion of the tank interior that is adjacent to the Tank Wall. 
(Usually liquid or vapor.) 


5 . Region 5 


Inside of the tank at the center. (Usually liquid or vapor.) 


The inside of the tank may be made up of either one or two regions. If the user defines 
the inside of the tank to be a single region, this will be Region 4. If the user defines two 
regions for the inside of the tank, they will be Regions 4 and 5. The inside of the tank 
may be modeled using two regions in order to have two different mesh spacings in the 
radial direction or to have two different materials, etc. The concept of the regions can be 
seen in Figure 6 and in Figure 7, which shows a plot of a sample sphere model showing 
the 5 regions. 
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If Regions 4 and 5 are both liquid and the tank is not full, then a vapor ullage is assumed 
for the remainder of the volume. This ullage may be on top and flat if a 1-g case is 
designated or at the center and spherical for a low-g case. If Regions 4 and 5 are noi 
both liquids, for example if Region 4 is a liquid and Region 5 is a vapor or solid, then it 
will be assumed that the tank is full with no ullage. 

If Regions 4 and 5 are both liquids, the program checks to see if both are the same liquid. 
If the specified liquids in Regions 4 and 5 are different and the user determines that this is 
in error, the program then gives the user the option to change either or both of the 
materials. 


Constant Heat Source (Q) 

A constant heat source (Q) may be imposed on the outside surface of the model. The Q 
may be input as a constant Q per unit area BTU/fhr-ft 2 ) or based on BTU/hr over the 
entire surface of the sphere. 


Outside Constant Temperature 

Two constant temperature boundary nodes may be defined outside the top layer of the 
model to simulate an outside temperature. The conductor paths of these nodes to the outer 
surface may either be convection (BTU/hr-ft 2 -°F) or radiation (°F). 


Heat Exchangers 

Up to ten heat exchangers may be inserted into the model. In these generated SINDA 
models, heat exchangers are simulated by constant temperature boundary nodes. These 
nodes are connected to the adjacent wall or fluid by conduction connectors. These heat 
exchangers may be placed anywhere in any of the five regions of the SINDA model. See 
Figure 7 which shows an example of the placement of three such heat exchangers. The 
system will ask the user for the temperature and position for each heat exchanger to be 
defined. To specify the position of a heat exchanger, the program asks for the following 

information: 

A. The region number. 

B. Which layer, of the region, the heat exchanger is on top of (counting from the 
outside, right to left, toward the center of the sphere or cylinder). 
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C. The theta angle (counting from the south pole where the heat exchanger begins). 

D. The number of theta angles that the heat exchanger covers. 

Figure 7 also shows the existence of constant temperature boundary nodes, 3 heat 
exchangers and a Q input into the outside surface. 


SINDA Specific Input Data 

The next input is the name of the SINDA execution routine to be used for the analysis. 
The SINDA analysis will be specified as transient or steady state. The choice of the 
execution routine also determines the subsequent input data that is required. The user has 
a choice of three SINDA execution routines. The STDSTL routine is used for steady state 
analyses. For the transient cases, the user has a choice of the CNFRDL or FWDBCK 
routines (see ref. 8 for the descriptions of these SINDA routines). The next input required 
are SINDA and user constants. The user is prompted for the required values. 


SINDA Model File 

When the model is generated a file named CRYOTRAN MODEL will be left on the user’s 
A disk. This file will consist of the Cray JCL followed by the SINDA input model. This 
file is available to the user to immediately submit it to the Cray, to edit it, to make 
modifications to the model and then submit it to the Cray, or to save it for future use. 


USING CRYOTRAN 

All of the CryoTran programs, the property database, and the procedure files are owned by 
the CRYOLIB "userid" on the VM computer at LeRC. (A "userid" is a code name to 
allow a user to log onto a computer system.) In order to use CryoTran, the user must 
have an active userid on both the VM and the Cray computers. 
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Accessing Cryotran 


The user must first sign on to the VM computer and then may access CryoTran, by typing 
the following two commands *: 

LINK CRYOLIB 200 222 RR 
ACCESS 222 M 

* Note: These two commands must be as typed as shown except for the user disk id 

(222). This user disk id may be any number not presently being used for any of 

the user’s minidisks. 

The user has now accessed the CRYOLIB disk containing the CryoTran program. Now 
type one of the following two commands *. 

RUNCRYO 

RUNCRY 

* Note: Either will run CryoTran; however, the RUNCRY command will not load th £ 

jrraphirs routines , thus, the program will be available for use earlier. Keep in 
mind that the geometry plot options are not available if you use the RUNCRY 
command. 

Once the system is running, the user will be prompted by the system for all the input 
required to build the desired model or to execute the desired analysis program. The proper 
physical units will be specified as part of the prompt for each input where units are 
appropriate. The units used in the program are shown in Table 1. 

Note!! When the program prompts the user for input, a response is mandatory ,. 

no not respond to anv pr o mpt bv iust pressing fEnterl, The user must type m a respon se 
to the prompt he.fom pressing fErnerl , If [Enter) is pressed as the response to a promp t, 
the program will exit with many error mess ages. After clearing all of the error messa g e s 
from the screen, the pr o gram will then automatically exit CryoTran and the user m ust 
restart CrvoTran. 
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Aborting CryoTran 


If the user becomes caught in an input loop or would like to abort the system, CryoTran 
may be exited from almost any input prompt by typing a "q" (quit). 

Input Error Checking 

CryoTran verifies user input in the following ways: 

1 . Questions which require replies of Y or N, etc. are checked for correct responses. 

2. If an improper response is given to a question the program repeats the question to the 
user. 

3. Upper and lower bound tests are made on integer input. 

4 . A test is made for the correct number of characters for some character data input. 

5. A check is done on real number input to verify that extraneous alphabetic characters 
do not exist. 


Getting Started 

The user must first specify the type of problem to be performed by CryoTran. There are 3 
types of problems. The first screen of CryoTran asks the user to: 


ENTER THE NUMBER FOR THE DESIRED PROBLEM TYPE 
THE PROBLEM TYPES ARE AS FOLLOWS : 

1 - THERMO/ THERMAL SINDA ANALYSIS ON A SPHERE. 

2 - THERMO/ THERMAL SINDA ANALYSIS ON A CYLINDER. 

3 - RUN A PRESTORED ANALYSIS PROGRAM. 


The 3 options from this initial menu correspond to the 3 problem types respectively. They 
are: 

1. type 1 Generates a SINDA model for a 2-d analysis of a sphere. The model 

generated will be a wedge of 1 radian, using the center axis of the sphere 
from the north pole to the south pole (see Figure 3). 

2. type 2 Generates a 2-d model of a cylinder similar to the sphere wedge. The 

cylinder model may have the ends open, closed and flat, spherical or 
elliptical. The two end geometries may differ if so desired (see Figure 5). 
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3 . type 3 Runs an analysis program that is already stored. Some of these programs 
are stored on the Cray computer. In this case the user will be prompted to 
make the input data available. 

Another option under problem type 3 is the option to run a program that is 
in the CryoTran library on the front end computer (the VM). This will be 
run interactively on the VM computer within the CryoTran system. 

Note: The user will see on the screens generated by the CryoTran program the variable 

name "ntyp," which will have the value 1, 2 or 3. This number designates the 
type of the problem (e.g., a type 1 problem is referred to as ntyp = 1). 

As noted above, the user is prompted for all input data. The initial responses to the 
prompts tell the program which type of analysis the user wants, then prompts the user for 
the particular analysis program. After this has been established, the program then prompts 
the user for the proper information to build the SINDA model, if any, or to generate the 
proper file to execute the desired analysis program. CryoTran also prompts the user for 
any additional input data required by some programs. A sample of input screens for 
sample problems is shown in Appendix B. 


Program Output 


After a normal exit from CryoTran, some files will be left on the user’s A disk and a 
geometry plot may be produced if the user has selected plot option 3. 

The output of the CryoTran program consists of the following files that will be left on the 
user’s A disk on the VM computer. 

1. One file contains the input model named CRYOTRAN MODEL. This file contains the 
Cray JCL and input data. 

In the case of options 1 and 2 (SINDA model on a sphere or cylinder), the data 
consists of the SINDA model. 


If option 3 is chosen and the user picks an analysis program that is already stored on 
the Cray, the system will prompt the user for the necessary information to generate the 
CRYOTRAN MODEL file (consisting of the JCL and the input data for t e program). 
The input data to the program may be stored on the Cray, stored on the VM system or 
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typed in at the terminal. If the input data is stored on the VM system, it must be on 
the user’s A disk, set to LRECL 80 and RECFM F. See ref. 10 for definitions of 
these two terms. 

If the user wishes to retain the CRYOTRAN MODEL file for further use, the name 
must be changed in the VM disk prior to running CryoTran again or the file will be 
overwritten. Sample CRYOTRAN MODEL files are shown in Appendix C. 

2 . PROGRAM OUTPUT is an output file of an analysis routine executed interactively on 
VM. 

3. CRYOTRAN INPUTEKO A, is an echo of all the user input responses to the system 
prompts as the model is being built. In order to use this file as input to the system at 
a later time, this file must be renamed by the user prior to any further running of the 
system to avoid it from being overwritten as it is being used. 

This file, which has been renamed, may then be used as input to the system on a 
subsequent run or it may be modified using the XEDIT command on the VM system. 
To use this input echo file as input to the system (unit 5 input), type the following 
instruction prior to typing the RUNCRYO command: 

FILEDEF FT05F001 DISK PREVIOUS INEKO 

where the file name PREVIOUS INEKO is the name to which the user changed the 
file CRYOTRAN INPUTEKO from a previous run. 

4 . If the user selects problem type 1 or 2 (sphere or cylinder SINDA model) and also 
selects plot option 1, a file will be produced by the plotting package to be used later 
to produce a geometry plot. The plotting package used in this program is the ISSCO 
DISPLA program (ref 11). When the user requests a geometry plot, the DISPLA 
package is called which produces a file named STD00001 DATA which is left on the 
user’s A disk. The user must then type PLOTQA which is a VM exec to use the file 
STD00001 DATA to actually produce the plots. Example geometry plots are shown in 
Figures 7 and 8. 


INTEGRATING NEW PROGRAMS INTO CRYOTRAN 

To add programs to the system, some of the system subroutines must be modified and new 
routines must be added to subroutine libraries. 


12 



New Programs for Type 1 or Type 2 Problems 


When adding new programs for type 1 or 2 problems the following changes are necessary: 

1. In subroutine MENU2 the data statements that must be changed are: 

array ANALTi, where i=1 t 2, 3, 4, 5 or 6 

array REG45(j,i), i same as in 1 

variable NALTi i=1 . 2. 3, 4, 5 or 6 
array SPEClN(j,k) k=1,2 j-1,15 

2. If there are going to be subroutines called from the execution, variables or output 
blocks the names of these subroutines are put into the following DATA statements: 
EXEC1, EXEC2, VBL1, VBL2 and OUT in the system subroutine MENU2. 


3 The source code of these subroutines must be in a file on the D disk of usend 

CRYOLIB. This file must be named CRYOLIB NAME1 where NAME1 is the name 
of the first subroutine called in the execution block and is also the same name that is 

put into EXEC1. 


These routines that are put into the system for type 1 or 2 problems will ^usu y 
contain code to solve the liquid problem inside the tank (Region 4). A SINDA model 
will be generated for Region 1 (Tank Wall) and possibly for Regions 2 and 3. 

Usually Region 4 will not be a part of the SINDA model and will not have a nodal 
mesh as in Regions 1, 2 or 3. The programmer of the code solvmg the problem in 
Region 4 must have a way to tie together the Region 4 code and the remainder of the 
SINDA model. The subroutines for this Region 4 problem will be called from the 
execution, variables and output blocks of SINDA. 


The programmer must compute "inside tank" boundary temperatures and some sort of 
convection or heat transfer coefficient for use by SINDA for the hea, transfer from the 
liquid or vapor to the wall. Further, the system supplies certain information to t e 
programmer for use in computing these values. The information to and from these 
analysis subroutines is in COMMON blocks. 


The COMMON blocks and ARRAYS that the programmer needs to link the thermo 
routines to SINDA are listed below. These common blocks are mserte y Cryo ran 
into the variables and output blocks of the generated SINDA model. 
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Common Block Description i/q 

COMMON/USER 1/ NTHETA, NBETAS, BETA, RIN, TVOL 
COMMON/USER2/ PTIME, DELTIM, XC1, XC2, XC3, XC4 

COMMON/INSA /SARIN (NN) Inside tank surface area Input 

COMMON/OUTSA/SAROUT(NN) Outside surface area Input 

COMMON/SURFT/TSURF (NN) Inside tank surface temperature Input 

COMMON/BNDYT/TBDY (NN) Liquid or vapor temperature Output 

COMMON/HTRCO/HCOEF (NN) Heat transfer coefficient h Output 

COMMON/SURFQ/QSURF (NN) Inside tank surface q (if any) Output 


Where NN is the dimension NTHETA. 


The arrays in the above list that are labelled "Input” are values supplied to the programmer 
from SINDA for use in the thermo calculations. The arrays labelled "Output" are values 
that must be computed by the thermo routines and put into the indicated common blocks to 
interface the thermo computations with SINDA. 


New Programs for Type 3 Problems 

When a new analysis problem of type 3 is added to the system, the modifications to the 
system depend on whether the analysis program will run on the Cray or whether the 
analysis will run on VM. 


Modifications to Run a New Program on the VM Computer 


If the new program is to run interactively on VM, then the following modifications are 
necessary: 


1. The main program of this new analysis code must be converted into a subroutine. The 
name of this subroutine may be any standard FORTRAN name (call it "name" for this 
discussion). 


2. In subroutine MENU2 add data to: 


array NALANS 

variable NALNS 

array MAINNM 

array NSRUNM 


short description up to 15 characters 

add 1 to this value 

name of main subroutine "name" 

which computer system analysis is to run on 
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3. In subroutine VMINTR add the line: 

IF (NAN .EQ. i) CALL "name" 

where "name" is the name of the main subroutine and i is the position of "name" 
in array MAINNM 

4. The source code for this program must be added to the CRYVMSUB FORTRAN file 
in userid CRYOLIB. This file is then recompiled and the file CRYVMSUB TEXT 
replaces the former one on the D disk of userid CRYOLIB. 

Modifications to Run a New Program on the Cray Computer 

If the new analysis program is to run on the Cray then: 

1. The compiled program must reside on the Cray in userid CRYOLIB. 

2. In subroutine MENU2 add data to: 

array N ALANS short description up to 15 characters 
variable NALNS add 1 to this value 
array MAINNM name of main subroutine "name" 
array NSRUNM which computer system to run on 

3 The main program of this new analysis code must be converted into a subroutine. The 
name of this subroutine may be any standard FORTRAN name (call it "name" for this 

discussion). 


PROGRAM INFORMATION 


The following general information about CryoTran will help systems programmers or users 
make modifications to the system, add new programs to the system, and write subroutines 
to be called from SIND A models generated by the system. 


The FORTRAN call, CALL CLEAR, to clear the screen, is used in CryoTran. This 
routine is on the Amdahl/VM system at LeRC. The routine (CLEAR) is called from a 
subroutine in the program named CLEARS (clear screen). On other systems that do not 
have this routine, the user may comment out the call to CLEAR in subroutine CLEARS or 
access a substitute routine. When Ci^oTran is used at LeRC the FTNLIB command l » 
executed prior to the load to access the routine. An alternate way to access the CLE 
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routine is to the ADDLIB command (a local LeRC command). See VM exec RUNCRYO 
in Appendix E part v. 

The SYSCMD call, which is in the MAIN PROGRAM and in the DOJCL subroutine, is a 
local LeRC subroutine to perform VM JCL requests from inside a FORTRAN program. 

On other systems that do not have this routine, the user may comment out the call to 
SYSCMD in subroutine DOJCL or access a substitute routine. 


Numbering Conventions 

There are numbering conventions used in CryoTran to assist with the identification of node 
data, conductor data and materials for the various regions. These numbering conventions 
will also assist the programmer with new analysis programs that are to be integrated into 
CryoTran. 


16 



Node Data Numbering Conventions 


Region Name 

DescrlDtlon 

Node Tvoe 

1 Tank Wall 

inner surface 

arithmetic 


N1 layers 

diffusion 


outer surface 

arithmetic 

2 * 

N2 layers 

diffusion 


outer surface 

arithmetic 

3 * 

N3 layers 

diffusion 


outer surface 

arithmetic 

4 inside tank* 

N4 layers 

diffusion 

5 inside tank 

* N5 layers 

diffusion 

Inside tank when 

boundary 

Region 4 = 

.false. 


Heat Exchangers 

boundary 


(maximum of 10) 

Vapor Cooled Shields 

(not defined in present version) 

Outside boundary 

Atmosphere 


Base Node 



Number 

Node Numbers 


1000 

1001, 1002, 1003, ... 

Ixxx 

2000 

2001, 2002, 2003, ... 

2xxx 

3000 

3001, 3002, 3003, ... 

3xxx 

4000 

4001, 4002. 4003, ... 

4xxx 

5000 

5001, 5002, 5003, ... 

5xxx 

6000 

6001, 6002, 6003, ... 

6xxx 

7000 

7001, 7002, 7003, ... 

7xxx 

8000 

8001, 8002, 8003, ... 

8 xxx 

10000 

10001, 10002, 10003 

... lOxxx 

18000 

18001, 18002, 18003, ... 18xxx 

20000 

20001, 20002, 20003, ... 20xxx 


Use heat 
exchangers 

20301, 20302 


Where: 

1 . xxx < 999 

3 Whe'r^Bas^Node Number Is the base and generated Node Numbers are incremented by 1 
from the base. See Figure 6 to see the node numbering convention. 


Conductor Numbering Convention 

Conductors start with number 1 and then are incremented by 1 for each conductor in the 
model. 
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Material Numbering Conventions 

The material numbers from the materials database are 4 digit numbers with the following 
format: 


knxx 


Where: 

1. k represents the material property number (shown below) 

2. n represents the material type (shown below) 

3. xx represents the number assigned to the material (within the material type) 

4. [nxx] is the material number from the prompt screen when choosing the materials for 
each region 


The material property numbers (k) are: 


Material 

Property 


Number (k) 

Description 

Symbol 

Units 

1 

Specific Heat * Density 
of material nxx 

Cp*Rho 

Btu/in 3 -°F 

2 

Specific Heat of material nxx 

Cp 

Btu/lbm-°F 

3 

Density of material nxx 

Rho 

lb/in 3 

4 

Viscosity of material nxx 

Mu 

lb hr/in 2 

5 

Enthalpy of material nxx 

h 

Btu/lb 

6 

Thermal Conductivity 
of material nxx 

k 

Btu/hr-in-°F 


where nxx is the material number from the prompt screen when choosing the materials for 
each region 


The material group types (n) are: 

Material 

Type Description 

1 liquid materials 

2 solid materials 

3 gaseous materials 
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CryoTran Specification Statements 


The following is a list of variables defined in COMMON, LOGICAL and CHARACTER 
statements that occur in the subroutines of the CryoTran system. Not all of these common 
blocks, logical or character statements appear in each subroutine. The specific list of 
statements in each subroutine may be found in the program listing in Appendix E. 


COMMON/UNITS/MODU, INPEKO, ISCRCH, SINDA 
COMMON/TITL/TITLE, TITLEO 

TMEND, output, fflow. tgas. tuq. twall, 

common/region/nthcta^'nbi^as^beta^f^ tv0L . R0UT(9) REGNS(9). NLAYRS(9). 
TEMPS(9) THICK(9), THKLAY(9), MATNMS(9), RGNNMS(9) 

COMMONisUBRTS/XCUTI.XCUTa, VBLBL1, VBLBL2 OUTBLK BNC OEF(2) 

rnMMOIM/STUFF/NHTT PI CONVY, CONVR, THETAO, DTHETA. NBASOS, ROUTSF, BNCOfcF(2) 
COMMON/ULLAGE/ NLUL4,’ NLUL5, NTHU41 , RINMHH, PCTFUL, RADULG. TVULFT, CT. LG(3). 

COMMON/HTXGRS/ NHX,HXTEMP(10),NRHX(10),NLHX(10) 1 NTHHX(10) 1 LNGTHX(10) 

LOGICAL SPLIPT 
LOGICAL SINDA 
LOGICAL RGNS, VPCSHD 
CHARACTER*6 
CHARACTER*50 
CHARACTER*80 
CHARACTER*8 
CHARACTER* 16 
CHARACTER*25 
CHARACTER*6 
CHARACTER* 16 
CHARACTER*1 


XCUT1 ,XCUT2,VBLBL1 .VBLBL2.0UTBLK.MAINNM 

TITLEO 

TITLE 

GEOM 

MATNM2 

RGNNMS 

LIQVAP 

MATNMS 

CT, LG 
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Files Used to Run CryoTran 


When running CryoTran, the user links to disk 200 in the userid CRYOLIB and then 
accesses the M disk. The files necessary to execute CryoTran are on this M disk and are 
available to the user in read-only mode. They are: TEXT files (binary files resulting from 
compiling the FORTRAN source code), EXEC files (procedures written in REXX (ref. 

12)), material property files and a source code file. The following list contains the files 
located on the M disk: 


File Name 
CRYOTRAN TEXT 

CRYOSPHR TEXT 
CRYOCYL TEXT 
CRYOPLOT TEXT 
CRYVMSUB TEXT 
ECLGRAPH TEXT 
SYSCMD TEXT 
RUNCRYO EXEC 
RUNCRY EXEC 

PLOTQA EXEC 
DOECLPLT EXEC 
CRYOSUBS THWSE1 
MATERIAL DBASE 
H* TABLE 
N 2 TABLE 
0 2 TABLE 


Description 

Binary file of the main program and general system 
routines 

Binary file of subroutines pertaining to a sphere 

Binary file of subroutines pertaining to a cylinder 

Binary plot routines for a sphere 

Binary analysis subroutines 

Binary plot routines for SOLA-ECLIPSE 

A LeRC system subroutine 

VM Exec to put CryoTran into execution 

VM Exec to put CryoTran into execution without the 
plot programs 

VM Exec to produce geometry plots 

VM Exec to execute the SOLA-ECLIPSE plot program 

Subroutines for DeWitt type SINDA analysis 

Database of material properties 

Hj property data 

N 2 property data 

0 2 property data 
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Miscellaneous Information 


Other information that may be of interest is: 

A table of the FORTRAN files and corresponding unit numbers can be found in Table 2. 

A detailed flow diagram of CryoTran is given in Figure 9 (9-1 through 9-6). A short 
description of all the CryoTran subroutines is given in Appendix D and a FORTRAN 
listing of CryoTran along with some of the VM and the Cray script files is in Appendix E. 


CONCLUDING REMARKS 

This report presents Version 1.0 of CryoTran. It is a user-friendly modular system 
expected to be a dynamic and evolving program. It is intended that as new analyses 
become available they will be incorporated into the system. 

Present capabilities include a tank chilldown fluid usage analysis, a transient no-vent fill 
procedure and a user interface to two large analysis programs, CSAM and SOLA- 
ECLIPSE. The program also generates SINDA models for 2-dimensional analyses of 
spherical and cylindrical tanks. These thermal models have the capability of multi-layer 
geometry and allow the user to include user-written subroutines to modify the analyses or 

expand them. 

It is anticipated that future versions of CryoTran will include additional fill procedures and 
will be extend to 3-dimensional analyses. 
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APPENDIX A 

NVFILL, TARGET and CRYOCHIL User Guides 
[For CryoTran User Guide] 
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NVFTT.L Description (excerpte d from ref,._5) 

NVFILL is a computer model of the no- vent fill process. NVFILL approximates 
the no- vent fill by splitting the tank into four control volumes: ullage vapor, bulk liquid, 

liquid-vapor interface and tank wall. Convective heat and mass transfer relationships art- 
used to control mass and heat transfer between the control volumes as well as apportioning 
the liquid inflow between the ullage and bulk volumes. The no-vent fill process is divided 
into two stages: a wall cooling stage where heat transfer to the tank wall is dominant and 
a fill stage where all the thermal energy has been removed from the wall. 

Assumptions for the wall cooling stage are as follows. All liquid inflow is flashed 
to thermodynamic equilibrium on entering the tank as long as the tank pressure is less than 
the liquid saturation pressure. All remaining liquid after the initial flashing is vaporized 
upon striking the tank wall. The energy removed from the tank wall is equal to the 
energy necessary to vaporize this remaining liquid. Heat transfer from the wall to vapor, 
vapor to liquid and external environment to tank wall are assumed to be negligible. 

Assumptions for the fill stage are as follows. The thermal energy of the wall has 
been removed in the wall cooling phase and can be neglected. The interface temperature 
is equal to the saturation temperature at the current tank pressure. The condensation rate at 
the interface is determined by the convective heat transport between the bulk liquid and the 
interface. Heat (but not mass) transfer to the gas is assumed negligible. The interface 
area is that of a sphere equal to the ullage volume. 

To solve the differential equations of the no-vent fill process, a finite difference 
approximation is used. During the initial flashing stage the problem adds the mass inflow 
during the timestep to the ullage, calculates a new ullage density and internal energy, and 
then uses the density and enthalpy to determine a new ullage pressure. In the fill stage the 
problem is calculated in a two-step procedure. For the first process, the ullage is held at 
constant pressure while a mass transfer rate is calculated. For the second process, a new 
liquid volume is calculated from the mass transfer and current bulk liquid conditions. k 
ullage vapor is then compressed adiabatically to fill the remaining tank volume. The time 
step for both these processes combined is set to 10 3 hours which is sufficiently small 
compared to the process rates for most cases of interest to insure a good approximation ol 
the continuous mass transfer and compression processes. 
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User Interface 


The code interactively prompts the user for the following input values: 

1. Tank volume (ft 3 ), volume of the tank being filled 

2. Tank mass to volume ratio (lbm/ft 3 ), mass of the tank divided by its 
volume 

3. Liquid inflow rate (Ibm/hr), the rate at which the filling liquid enters the 
tank. 

4. Heat transfer coefficient (Btu/ft 2 hr °R), the convective heat transfer 
coefficient between the bulk liquid and the gas 

5. Incoming liquid temperature (R), the temperature of the incoming liquid 

6. Chilldown temperature (R), the tank wall temperature at the start of the 
fill 

Once the user inputs have been specified, the code executes without further user 
interaction. The code terminates on one of the following criteria: 

1. Tank 95% full (normal ending) 

2. Tank pressure exceeds 60 psia 

3. Tank fill time exceeds 8 hours 

4. There is no vapor mass in the ullage. 

Sample input screens are shown in table A-l. 

The resultant output is shown in table A-2. 
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TARGET Description (excerpted from ffifJZ) 


The TARGET code is used to determine the maximum temperature from which the 
filling of a given tank can be initiated and subsequently filled to a specified pressure and 
fill level without venting. The main process is the transfer of the energy stored in the 
thermal mass of the tank walls into the inflowing liquid. This process is modeled by 
examining the end state of the no-vent fill process. This state is assumed to be a thermal 
equilibrium between the tank and the fluid which is well mixed and saturated at the tank 
pressure. No specific assumptions are made as to the processes or the intermediate 
thermodynamic states during the filling. It is only assumed that the maximum tank 

pressure occurs at the final state. As stated above, this assumption implies that, during the 
initial phases of the filling, the injected liquid must pass through the bulk vapor in such a 
way that it absorbs a sufficient amount of its superheat so that moderate tank pressures can 
be maintained. It is believed that this is an achievable design goal for liquid injection 

systems. 

In reference 6, the mass-to-volume was found to be the key scaling parameter 
relating the target temperatures of prototype and subscaled model tanks. For a given tank 
material and identical operating conditions, this ratio is the determining factor of a tank s 
target temperature. Therefore, the tank’s mass and volume are variable inputs to the 
TARGET code. The tank material, in addition to its mass and initial temperature, defines 
the thermal energy which is stored in the tank walls and must be absorbed by the liquid 
Currently only 2219 Aluminum is used for the tank material. 

The other main inputs required to run TARGET are the pressure and the tank filling 
percentage of the receiving tank at the completion of the no-vent fill. Since the liquid and 
vapor phases are assumed to be in equilibrium, the specific internal energy of each phase 
can be calculated from the final tank pressure. The final fill level quantifies the energy 
stored in the fluid by defining the liquid and vapor masses. A fluid mass balance equates 
the injected liquid to the final total mass of the liquid and vapor since there is no venting. 

It was assumed in reference 6 that the heat flux into the tank was negligible during 
the fill operation. Inclusion of the tank heat flux, however, only requires a minor code 
modification once the heat flux and fill time are quantified. Thus, the only terms missing 
in the energy balance of the system (Equation 2 of ref. 6) are the enthalpy of the injected 
liquid and the initial wall temperature. The solution technique of TARGET is a simple 
incrementing of the initial tank temperature and solving for the required liquid enthalpy to 
satisfy the energy balance at each temperature. The initial temperature starts at 10 R 


25 



above the liquid saturation temperature and then is increased by another 10 °R each time 
through a DO loop. This assists in maintaining small temperature ranges over which the 
ALCP subroutine must be called, thus reducing the errors. The trapezoidal rule is 
employed to increment the change in wall energy term, DELU. The enthalpy required to 
balance this wall energy change is then calculated and the corresponding fluid saturation 
pressure can be found from the data table. The actual output is the required pressure 
difference between the saturation conditions in the source and receiving tanks, i.e. the 
required liquid subcooling, for the given initial temperature. 

Code Specifics: 

la. TARGET can be run with any fluid for which the user has a properties data 
base. Currently it will only run for hydrogen, oxygen, and nitrogen since the 
pressure-enthalpy data sets have been created for these fluids only. 
TARGET will read the data into an array from logical unit 2 at the initiation 
of execution. Each time the array is scanned it will start at the lowest 
pressure (2 psia) and continue until the corresponding enthalpy value is 
greater than or equal to the required enthalpy. It should be noted that if 
GASP is not used for the other fluid properties these values may be 
inconsistent with those values obtained from an alternate properties 
subroutine due to the use of a different reference enthalpy value. Reference 
A-3 should be consulted in such an instance. 

lb. Since the minimum saturation pressure in the data tables for the injected 
liquid state is 2 psia, the maximum pressure difference available for liquid 
subcooling is the maximum tank pressure less 2 psia. To avoid unnecessary 
execution, the code compares the calculated pressure difference to the 
maximum pressure difference and stops execution if there is an equivalence. 
The other normal termination of execution occurs if the initial temperature 
exceeds 540 °R in the incrementing DO loop. This would violate the upper 
limit for the ALCP subroutine. 

2. Final fill level is to be entered in terms of a percentage, e.g., 95.0 not 0.95. 

3. All output from the TARGET code goes to logical unit 1 which should be 
defined as data file, or could be directed to the user terminal. 

4. All messages to the user are output to logical unit 1 which should be defined 
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as data file, or could be directed to the user terminal. 

5. There still exist occasional anomalies in the code execution which lead to 
erroneous values for the pressure difference at random enthalpy values for 
liquid hydrogen. It is not yet understood whether there is a problem in the 
data base or in the code execution. Erroneous data should simply be ignored 
until the problem can be corrected. Note, however, that negative values foi 
the subcooling pressure difference are not erroneous; they merely indicate 
that subcooling is not required. 

Input and output for an example run are shown in tables A-3 and A-4 respectively. 
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CRYOC HIL Description (excerpted from ref. 1 ) 


The CRYOCHIL (CRYOgenic tank CHILldown) code was developed based on the 
analyses presented in reference 6. As previously stated, its primary function is to predict 
the optimum liquid charge to be injected for each of a series of charge-hold-vent chilldown 
cycles. This information can then be used with specified mass flow rates and valve 
response times to control a liquid injection system for tank chilldown operations. This will 
insure that the operations proceed quickly and efficiently. 

Realizing that tank chilldown and no-vent fill operations are in essence part of the 
complete "thermodynamic" fill procedure, it is not surprising to find similar information 
being required as input for the analyses of each process. Again, the tank mass-to-volume 
ratio plays an important role; it determines the maximum charge which can be introduced 
to any tank regardless of its actual mass or volume. The maximum charge is found to 
decrease with increasing mass-to-volume ratios. Obviously the total mass required over a 
given temperature range is a direct function of the tank’s thermal mass. Note, however, 
from the discussions of target temperatures that the lower mass-to-volume ratio tanks will 
have higher target teperatures and, thus, a lesser tank chilldown mass. CRYOCHIL will 
prompt the user for the input of the tank’s mass, volume, initial temperature, and a target 
temperature. 

Since the avoidance of tank overpressurization is a major concern, the tank’s 
maximum pressure is an important input. Likewise, in order to calculate the available 
thermal capacity of given charge, the injected liquid enthalpy must be known. It is 
calculated from the input value of the supply tank saturation pressure, thus neglecting 
energy inputs from the transfer line, pressurization system, or transfer pumps. In an actual 
system the liquid state would be measured just prior to the liquid injection system. 

Lastly, CRYOCHIL will prompt the user for a "vent stage pressure drop." This will 
cause the VENTDN subroutine to perform multiple vent cycles if any value less than the 
input maximum pressure is given. This is desirable because the venting can be more 
efficiently accomplished in small stages down to intermediate pressures at which the vapor 
can be held once again. This will allow for the isentropic expansion of the remaining 
vapor to cool the vapor and, consequently, the tank wall. Reference 3 used CRYOCHIL to 
demonstrate that a 23% fluid mass savings is possible for a quarter-scale model of an OTV 
tank when one 60 psi vent stage is replaced with many 1 psi vent stages. The limit to 
decreasing the magnitude of the vent stages becomes an infinite number of infinitely small 
stages which, of course, would be one slow vent stage at an optimized flow rate. This 
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optimum flow rate has not yet been calculated at Lewis. 

CRYOCHIL prompts the user for each input and then echoes this input to an output 
file. The calculations begin with an evaluation of the liquid enthalpy of the injected liquid 
based on the specified saturation pressure in the supply tank prior to its being pressurized; 
this value remains constant for the entire test case. 

The code next uses the ALCP subroutine to determine the specific heat of aluminum 
at the initial wall temperature for the given cycle. 

At this point CRYOCHIL must make a guess at the tank wall temperature prior to 
the initiation of the venting process. This temperature and the temperature at the 
completion of venting are both unknown. Rather than making an arbitrary guess at this 
temperature, an educated guess is made based on a parametric evaluation of tank 
chilldowns over a range of tank mass- to- volume ratios using liquid hydrogen. Guesses for 
the beginning of subsequent chilldown cycles are made based on information retained from 
the preceding cycle. The use of these educated guesses has significantly reduced the 
execution time of the code from the time required with the use of arbitrary guesses. 

Since the tank temperature prior to venting is unknown, an iterative solution 
technique can be used by solving equation 32 from reference 6 based on the previously 
guessed value. The algorithm is iterative because the properties of the vapor are evaluated 
at the tank’s maximum pressure and a temperature which is 95% of the tank temperature. 
(Again, this assumption is working toward a prediction of fluid masses for an optimum 
chilldown cycle; actual spray systems should be designed to achieve this goal.) Recently, 
however, the code has been modified to more accurately account for the compressibility of 
the vapor by eliminating the ideal gas law (equation 30) from the analysis. What results is 
a less complex algorithm using equation 31 instead of equation 32, (ref. 6). Once this 
calculated value is within the user specified error band (entered via terminal input), the 
code proceeds to calculate the mass injected by multiplying the vapor density by the tank 

volume. 

Having calculated the wall temperature prior to venting, CRYOCHIL next calls the 
VENTDN subroutine to model the venting according to the description of reference 6. 
Since the temperature of the wall at the conclusion of the venting is unknown, an iterative 
process is once again used. When finished, the VENTDN subroutine returns the wall 
temperature and the number of vent cycles for the specified vent stage magnitude. Hu- 
last venting stage will always be down to 2 psia, regardless of its magnitude. Any effects 
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associated with venting the tank back to space vacuum are considered negligible. Note 
that VENTDN also uses the ALCP subroutine to evaluate wall specific heats and GASP to 
evaluate the fluid properties. 

This charge-hold-vent procedure repeats for each chilldown cycle until the tank 
temperature, before or after venting, drops below the tank’s target temperature. Since the 
objective of the modeling is to minimize the fluid consumption, this is undesirable. When 
this occurs, the CRYOCHIL code will call a subroutine, CALC, designed to chilldown the 
tank to within the user specified error band of the target temperature. 

The CALC subroutine is not as straight forward as one might expect, even though 
the final temperature of this final cycle is known. This is because the cooling during the 
tank venting must be taken into account. Therefore, an iterative bisection algorithm, also 
known as "halving the interval," is used to calculate the tank temperature prior to venting 
until it is such that the resultant venting cools the tank to the target temperature. To 
accomplish this, CALC will call both the VENTDN and ALCP subroutines in addition to 
GASP. Since CALC should only be called when a complete "optimum" chilldown cycle is 
not possible or desirable, the maximum pressure due to the liquid evaporation should be 
below the tank’s maximum pressure. For this reason, CALC will return the actual tank 
pressure to CRYOCHIL and print the value out with the number of vent cycles returned 
from VENTDN. If, however, the mass injected during this final cycle does not raise the 
tank pressure above 2 psia, VENTDN will not be called, and the number of vent cycles 
will be zero. This extra effort to hit the target temperature is made to assist in the 
conductance of trade Studies with specified target temperatures. When CALC has found 
the proper injection mass to reach the target temperature, CRYOCHIL calculates the total 
mass injected and the total number of chilldown cycles. 

Abnormal endings to CRYOCHIL can occur by several different ways: (1) One of 
the iterative solution techniques, in either the CRYOCHIL, VENTDN or CALC, exceeds 
the specified number of iterations, usually fifty; (2) the number of tank chilldown cycles 
exceeds fifty; (3) GASP returns to VENTDN or CALC with a thermodynamic state of the 
fluid different than expected; and (4) Any temperature in CRYOCHIL, VENTDN, or CALC 
is out of range for ALCP. If any of these failures occur, the execution will terminate and 
an error message will be given, usually specifying which failure stopped the execution. 
Abnormal endings 3 and 4 are most likely to occur if the specified target temperature is 
excessively low for a given tank and operation conditions. 


30 



CRYOCHIL also can be run for any fluid for which the property data exists. It is 
currently configured to run liquids hydrogen, oxygen, and nitrogen. This will be the first 
input made by the user. The user should not try to chilldown a tank too close to the 
fluid’s boiling point since the original assumption of all the liquid evaporating will be 

violated. 


Input data is shown in table A-5. 
Output data is shown in table A-6. 


THIS PROGRAM DETERMINES THERMODYNAMIC PROPERTIES 
PARAHYDROGEN FROM THE SUBROUTINE GASP 
ENTER TANK VOLUME (FT**3) 

? 

23.6 

ENTER TANK MASS TO VOLUME RATIO (LBM/FT**2) 

? 

3.0 

ENTER LIQUID INFLOW RATE (LBM/HR) 

? 

500. 

ENTER HEAT TRANSFER COEFIENT (BTU/FT**2 HR R) 

? 

40.0 

ENTER INCOMING LIQUID TEMPERATURE (R) 

? 

36.6 

ENTER CHILLDOWN TEMPERATURE (R) 

9 

102.5 

TANK 95% FULL 

FINAL PRESSURE = 29.04 

FINAL GAS TEMPERATURE = 62.36 

FINAL LIQUID TEMPERATURE = 38.81 


Table A-l 


FOR 
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NO VENT FILL TWO STEP MODEL 

ADIABATIC COMPRESI ON FOLLOWED BY ISOBARIC MASS TRANSFER 

TANK VOLUME = 23.60 CU FT 

LIQUID INFLOW RATE = 500.00 LBM/HR 
LIQUID TEMPERATURE = 36.60 R 

INTERFACE-LIQUID HEAT TRANSFER COEFFICIENT = AO. 0000 
CHILLDOWN TEMP = 102.50 R 


MASS TO 

VOLUME 

RATIO 

= 3. 

000 LBM/CU 

FT 




TIME 

PRESS 

FILL 

GAS T 

LIQ T M 

GAS 

V GAS 

M LIQ 

V LIQ 

HR 

PSIA 

V. 

R 

R 

LBM 

CU FT 

LBM 

CU FT 

0.000 

2.00 

0.00 

102.50 

36 .60 

0.09 

23.60 

0.00 

0.00 

0.001 

9.56 

0.00 

72.95 

36.60 

0.59 

23.60 

0.00 

0.00 

0.002 

1 A .79 

0.00 

61.81 

36.60 

1.09 

23.60 

0.00 

0.00 

0.003 

20.09 

0 .00 

58.34 

36.60 

1.59 

23.60 

0.00 

0.00 

0.004 

22.68 

0.00 

57.33 

36 .60 

1.84 

23.60 

0.25 

0.00 

WARNING 

BULK BOILING 

X=0 . 0050 





0.005 

22.40 

0.76 

56.74 

39.30 

1.82 

23.42 

0.77 

0 .18 

0.006 

22.42 

1.23 

56.48 

38.41 

1.82 

23.31 

1.26 

0.29 

WARNING 

BULK BOILING 

X=0. 0020 





0.007 

22.27 

1.76 

56.45 

39.22 

1.80 

23.19 

1 .79 

0.41 

0.008 

22.34 

2.24 

56.33 

38.79 

1.80 

23.07 

2.28 

0.53 

0 .009 

22.33 

2 . 7 A 

56.39 

38.89 

1.79 

22.95 

2.80 

0.65 

0.010 

22.33 

3.2A 

56.38 

38.87 

1.78 

22.83 

3.30 

0.77 

0.011 

22.32 

3 . 7 A 

56.37 

38.87 

1.77 

22.72 

3.81 

0.88 

0.012 

22.31 

A .24 

56.37 

38.87 

1.76 

22.60 

4.32 

1 . 00 

0.013 

22.31 

A .74 

56 . 36 

38.86 

1 .75 

22.48 

4.83 

1.12 

0.014 
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22.26 
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22.26 
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20.95 
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0.032 
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0.042 
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22.20 

20.72 

56 . ?4 

38.81 

1.45 

18.71 

21.13 

4.89 
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16.83 
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6 .89 
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16.47 
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7 .13 
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0.066 
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16.12 
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7.48 
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1.25 
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32.84 

7.60 

0 . 069 
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56.29 
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1.24 
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33.35 

7 .71 
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22.25 

33.18 

56.29 

38.78 

1 .23 

15.77 
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33.68 

56.29 

38.78 

1 .22 

15.65 

34.37 

7 .95 
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34.18 

56.30 

38.78 

1.21 

15.53 
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8 . 07 
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34.68 
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38.78 

1.20 

15.42 

35.39 

8.18 
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35.18 

56.31 

38.78 
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35.68 
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8.42 
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36.17 
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38.78 

1.17 

15.06 
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8.54 
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22.28 
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56.32 

38.78 

1.16 

14.95 

37.42 

8.65 
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22.28 

37.17 
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38 .78 

1.16 

14.83 
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8.77 
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56.33 

38.78 
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14.71 

38.44 

8.89 
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22.29 

38.17 

56.33 

38.78 

1.14 

14.59 

38.95 

9 .01 
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22.30 

38.67 

56.34 

38.78 

1.13 

14.47 

39.46 

9.13 

0 . 082 
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39.17 

56.34 

38 .78 

1.12 

14.36 

39.97 

9.24 

0.083 

22.31 

39.67 

56.35 

38.78 

1.11 

14.24 

40.48 

9 . 36 

0 . 084 

22.31 

40.16 

56 .35 

38.78 

1 .10 

14.12 

40.99 

9 .48 

0.085 

22.32 

40.66 

56.36 

38.78 

1.09 

14.00 

41.49 

9.60 

0 . 086 

22.32 

41.16 

56.36 

38.77 

1.08 

13.89 

42.00 

9.71 
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22.33 

41.66 

56.37 

38 .77 

1.07 

13.77 

42.51 

9.83 
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22.34 

42.16 

56.38 

38.77 

1.07 

13.65 
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22.34 
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56.38 

38 .77 
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13.53 
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38.77 
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44.04 
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38.77 
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13.30 

44.55 
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0 .092 

22.36 
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13.18 
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10.42 

0.093 
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38 .77 

1.02 

13.06 

45.57 

10.54 

0.094 

22.38 

45.15 

56.42 

38.77 

1.01 

12.94 

46.08 

10.66 

0 . 095 
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38 .77 

1.00 

12.83 

46.58 

10.77 
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49.13 

11.36 
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0.18 

60.09 

38.79 

0.17 

60.31 

38.79 

0.16 

60.55 

38.79 

0.15 

60.83 

38.79 

0.15 

61.14 

38.80 

0.14 

61 .49 

38.80 

0.13 

61.89 

38.80 

0.12 

62.36 

38.81 

0.11 

62.36 

38.81 

0.11 


6.24 

75.09 

17.36 

6.12 

75.60 

17.48 

6.00 

76.11 

17.60 

5.89 

76.61 

17.71 

5.77 

77.12 

17.83 

5.65 

77.63 

17.95 

5.53 

78.14 

18.07 

5.42 

78.65 

18.18 

5.30 

79.16 

18.30 

5.18 

79.67 

18.42 

5.06 

80.18 

18.54 

4.95 

80.69 

18.65 

4.83 

81.20 

18.77 

4.71 

81.70 

18.89 

4.59 

82.21 

19.01 

4.48 

82.72 

19.12 

4.36 

83.23 

19.24 

4.24 

83.74 

19.36 

4.12 

84.25 

19.48 

4.00 

84.76 

19.60 

3.89 

85.27 

19.71 

3.77 

85.78 

19.83 

3.65 

86.29 

19.95 

3.53 

86.80 

20.07 

3.42 

87.30 

20.18 

3.30 

87.81 

20.30 

3.18 

88.32 

20.42 

3.06 

88.83 

20.54 

2.95 

89.34 

20.65 

2.83 

89.85 

20.77 

2.71 

90.36 

20.89 

2.59 

90.87 

21 .01 

2.48 

91.38 

21.12 

2.36 

91 .89 

21 .24 

2.24 

92.40 

21 .36 

2.12 

92.90 

21.48 

2.01 

93.41 

21 .59 

1.89 

93.92 

21.71 

1 .77 

94.43 

21 .83 

1.66 

94.94 

21.94 

1.54 

95.45 

22.06 

1.42 

95.96 

22.18 

1.30 

96.47 

22.30 

1.19 

96.98 

22.41 

1.19 

97.49 

22.53 


Table A-2 
(4 of 4) 
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Example of TARGET Terminal Input Session 


DMSLI0740I EXECUTION BEGINS... 


Enter the appropriate number to select a fluid 

0 Hydrogen 

1 Oxygen 

2 Nitrogen 

0 


Enter the final receiver tank pressure in psia 

30.0 


Enter the final receiver tank filling in % 

95.0 

Enter the receiver tank mass in Lbm. 


150.0 


Enter the receiver tank volume in cu. ft. 

50.0 


AFB002I STOP Normal ending - TI > 540 


Table A-3 
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Example of TARGET Output 


** * % * ** % ** * * % jit * % * ** % * * ** * ** ★ % * % ** ** 4c * % * * * * % % 

******** LIQUID HYDROGEN TEST FLUID ******** 
******************************************** 

The final tank condition is P = 30.0 psia 
with a percent filling of 95.00 % 

The receiver tank mass is 150.00 Lbm. 

The receiver tank volume is 50.00 cu. ft. 

The receiver tank in/V = 3.000 Lbm./cu. ft. 

The total mass injected is 200.37 Lbm. 

The final fluid temperature is 41.30 Deg. R 


Table A-4 
(1 of 2) 
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1********************** A ******** ************* 

** T-INIT. **** ENIHAU’Y INJ. **** rffTT.P ** 
** (R) **** (Btxyiim) **** (psid) ** 
******************************************** 


51.00 

— 98.163 

1.51 

61.00 

- 98.227 

1.60 

71.00 

- 98.333 

1.75 

81.00 

- 98.491 

1.98 

91.00 

- 98.712 

2.29 

101.00 

- 99.004 

2.70 

111.00 

- 99.372 

3.22 

121.00 

- 99.816 

3.83 

131.00 

- 100.329 

4.53 

141.00 

- 100.909 

5.31 

151.00 

- 101.553 

6.17 

161.00 

- 102.258 

7.09 

171.00 

- 103.020 

8.07 

181.00 

- 103.838 

9.10 

191.00 

- 104.708 

10.16 

201.00 

- 105.627 

11.25 

211.00 

- 106.593 

12.37 

221.00 

- 107.602 

13.49 

231.00 

- 108.651 

14.62 

241.00 

- 109.739 

15.75 

251.00 

- 110.862 

16.85 

261.00 

- 112.018 

17.94 

271.00 

- 113.205 

19.00 

281.00 

- 114.419 

20.02 

291.00 

- 115.659 

21.00 

301.00 

- 116.923 

21.93 

311.00 

- 118.208 

22.82 

321.00 

- 119.512 

23.65 

331.00 

- 120.834 

24.43 

341.00 

- 122.172 

25.15 

351.00 

- 123.524 

25.82 

361.00 

- 124.889 

26.42 

371.00 

- 126.265 

26.98 

381.00 

- 127.651 

27.48 

391.00 

- 129.047 

27.92 

401.00 

- 130.452 

2.70 

411.00 

- 131.864 

2.70 

421.00 

- 133.283 

2.70 

431.00 

- 134.710 

2.70 

441.00 

- 136.144 

2.70 

451.00 

- 137.585 

2.70 

461.00 

- 139.033 

2.70 

471.00 

- 140.490 

2.70 

481.00 

- 141.956 

2.70 

491.00 

- 143.431 

2.70 

501.00 

- 144.918 

2.70 

511.00 

- 146.417 

2.70 

521.00 

- 147.931 

2.70 

531.00 

- 149.462 

2.70 


Table A-4 
(2 of 2 ) 
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Example of CRYOCHIL Terminal Input Session 


DMSLI0740I EXECUTION BEGINS... 

Enter the appropriate number to select a fluid 

0 Hydrogen 

1 Oxygen 

2 Nitrogen 


Enter the max. receiver tank pressure in psia 

30.0 

Enter the supply tank saturation pressure in psia 
14.696 

Enter the vent stage pressure pressure drop in psia 

10.0 

Enter the receiver tank mass in Lbm. 

150.0 

Enter the receiver tank volume in Ft**3 

50.0 

Enter the initial tank temperature in deg. R 

540.0 

Enter the TARGET temperature in deg. R 

235.0 

Enter the TARGET temperature error band 
0.5 

***** NORMAL ENDING IN CALC; NG = 2********* 
AFB002I STOP Normal ending in CRYOCHIL 

Table A-5 
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Example of CRYOCHIL Output 


*********************************************** 

***** LIQUID hydrogen test fluid ***** 
************************************************ 

***** echo terminal input***** 

Enter the max. receiver tank pressure in psia 

30.00000 

Enter the supply tank saturation pressure in psia 
14 . 69600 

Enter the vent stage pressure pressure drop in psia 

10.00000 

Enter the receiver tank mass in Lbm. 

150.00000 

Enter the receiver tank volume in Ft**3 

50 . 00000 

The tank mass-to-volume ratio is 3.00 Lbm/Ft**3 


Table A-6 
(1 of 4) 
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1 ********************************************* 
Initial temperature for cycle 1 is 540.000 R 

Tank temperature before venting is 516.615 R 

Mass injected in cycle 1 is 0.57329 Lbm. 

Tank vented 4 times 

Tank temperature after venting is 511.123 R 

★ ★★★★★★★★★★★★★A*****************-************** 

Initial temperature for cycle 2 is 511.123 R 
Tank temperature before venting is 487,100 R 
Mass injected in cycle 2 is 0.60757 Lbm. 
Tank vented 4 times 

Tank temperature after venting is 481.482 R 
********************************************** 

Initial temperature for cycle 3 is 481.482 R 
Tank temperature before venting is 457.034 R 
Mass injected in cycle 3 is 0.64766 Lbm. 
Tank vented 4 times 

Tank temperature after venting is 451.328 R 
********************************************** 

Initial temperature for cycle 4 is 451.328 R 
Tank temperature before venting is 426.615 R 
Mass injected in cycle 3 is 0.69396 Lbm. 
Tank vented 4 times 

Tank temperature after venting is 420.838 R 
********************************************** 

Table A-6 
(2 of 4) 
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!********************************************* 
Initial temperature for cycle 5 is 420.838 R 

Tank temperature before venting is 395.940 R 

Mass injected in cycle 5 is 0.74780 Lbm. 


Tank vented 4 times 


Tank temperature after venting 
**************** ************** 


is 390.088 R 


* 


Initial temperature for cycle 6 is 390.088 R 


Tank temperature before venting is 365.002 R 


Mass injected in cycle 6 is 0.81123 Lbm 


Tank vented 4 times 

Tank temperature after venting is 359.047 R 
********************************************** 
Initial temperature for cycle 7 is 359.047 R 

Tank temperature before venting is 333.677 R 

Mass injected in cycle 7 is 0.88737 Lbm. 


Tank vented 4 times 

Tank temperature after venting is 327.566 R 
********************************************** 
Initial temperature for cycle 8 is 327.566 R 

Tank temperature before venting is 301.715 R 

Mass injected in cycle 8 is 0.98125 Lbm. 


Tank vented 4 times 


Tank temperature after venting is 295.359 
********************************************* 


Table A-6 
(3 of 4) 
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Initial temperature for cycle 9 is 295.359 R 
Tank temperature before venting is 268.650 R 
Mass injected in cycle 9 is 1.10154 Lbm. 
Tank vented 4 times 

Tank temperature after venting is 261.905 R 
★ a**************************************^**^ 

l***************************************^^^ 

Initial temperature for cycle 10 is 261.905 R 

************************ fc**.***********^^^*^ 

TFNEW < TARGET — BEGIN NEW CYCLE 


j^****************************^^^^^^.^^^^^^^^^ 

Initial temperature for cycle 10 is 261.905 R 
Tank temperature before venting is 240.059 R 
Mass injected in cycle 10 is 0.95703 Lbm. 
Tank vented 3 times 

Final tank temperature is 235.0000 +/- 0.500 R 
********************************************** 
******************** ****************** Ai m AA , A * 

Total mass after 10 cycle (s) is 8.00870 Lbm. 


Table A-6 
(4 of 4) 
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APPENDIX B 


Input Screens for Sample Problems 
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The following are samples of the screens that the user would see after logging on to 
the VM computer and beginning execution of CRYOTRAN. The user responses for these 
sample runs are marked with a to the right of the input line. In most cases the VM 
system responses are in Capital letters and user responses are in lower case. 

Sample 1, Sinda model of a sphere, all 5 regions defined 
Ready; T=0.01/0.01 13:07:13 

link, cryolib 200 222 rr * 

Ready; T-0.01/0.01 13:07:27 

access 222 m * 

M (222) R/O 

Ready; T-0.01/0.01 13:07:35 

runcryo * 

C (301) R/O 
D (302) R/O 
No filetype specified 

CONNECT- 00:30:42 VIRTCPU- 000:00.71 TOTCPU- 000:01.56 
CONNECT- 00:00:01 VIRTCPU- 000:00.00 TOTCPU- 000:00.01 

Assigning temporary storage destination to disk E 

DASD is being cleared 
DASD 303 DEFINED 0010 CYL 


DASD 304 LINKED R/O; R/W 

BY WUSO; 

R/O BY 

5 USERS 



DMSACP723I 

F (304) R/O 






DMSLIO201W 

The following 

names are 

undefined : 




CYLNDR 

SFEERE MATMNU 

CYLNDS 

SPHNDS 

ULLGET 

ULL1G 

AREACYL 

CYLCDS 

SPHCDS PRPTBL 

DUNPLT 

PLTCYL 

PLTSPH 

CHILL 

NVFILL 

TARGET 







DMSLIO201W 

The following 

names are 

undefined : 




CYLNDR 

MATMNU CYLNDS 

ULL1G 

ARE ACYL 

CYLCDS 

PRPTBL 

DUNPLT 

PLTCYL 

PLTSPH CHILL 

NVFILL 

TARGET 




DMSLIO201W 

The following 

names are 

undefined: 




DUNPLT 

PLTCYL PLTSPH 

CHILL 

NVFILL 

TARGET 




DMSLJO201W The following names are undefined: 
DUNPLT PLTCYL PLTSPH 
DMSLIO740I Execution begins... 


WELCOME TO CRYOTRAN 

YOU WILL BE PROMPTED FOR ALL NECESSARY INPUT. 

READ THE INSTRUCTIONS CAREFULLY. 

TYPE IN THE INPUT DATA CAREFULLY TO AVOID TROUBLE, 

YOU MAY QUIT THE PROGRAM AT ANY INPUT PROMPT BY TYPING A ”Q" (QUIT) 


ENTER THE NUMBER FOR THE DESIRED PROBLEM TYPE 
THE PROBLEM TYPES ARE AS FOLLOWS: 

1 - THERMO/THERMAL SINDA ANALYSIS ON A SPHERE. 

2 - THERMO/THERMAL SINDA ANALYSIS ON A CYLINDER. 

3 - RUN A PRESTORED ANALYSIS PROGRAM 

1 


CHOOSE THE ANALYSIS PROGRAM YOU WISH TO USE. 
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TYPE IN THE NUMBER OF THE DESIRED ANALYSIS. 

1 2D WEDGE WITH INSIDE OF TANK NODALIZED 

2 2D WEDGE SHELL <r NO NODES INSIDE OF TANK 

3 2D WEDGE SHELL - THICK WALL FILL ANALYSIS 


NOW A TITLE FOR THIS PROBLEM. 

THE TITLE LINE MAY BE UP TO 80 CHARACTERS LONG. 
TYPE IN THE TITLE. 

sample model spherel * 


THIS TASK IS BEING SET UP FOR THE CRAY, 
NOW INPUT NECESSARY CRAY INFO. 


WHICH CRAY SYSTEM COS OR UNICOS 
TYPE IN C OR U 
u 

TYPE IN YOUR CRAY USERID, 
userid 


TYPE IN YOUR CRAY PASSWORD, 
password 


TYPE IN NO. OF CRAY CPU SECONDS TO BE USED. 

IF NUMBER OF SECONDS REQUESTED IS < 10, 60 WILL BE USED 


TYPE AMOUNT OF CRAY MEMORYTO BE REQUESTED, 

IF AMOUNT REQUESTED IS < 1,500,000, 1,500,000 WILL BE 


NOW GIVE YOUR JOB A NAME, TYPE IN THE NAME, 
1-7 ALPHEBETIC CHARACTERS, 
spherel 


THE CRAY JCL THAT WAS INPUT IS AS FOLLOWS: 

USERID *= vvglenn 

PASSWORD *= password 

CPU TIME REQUEST = 59 SECS. 

MEMORY REQUEST = 1500000 words 

JOB NAME = spherel 

ARE THESE ALL CORRECT? TYPE Y OR N OR Q 


NOW INPUT SPECIFIC DATA FOR THIS SPHERE. 

INPUT DATA TO DEFINE THE SPHERE MAY BE ANY ONE OF: 


USED. 


QUIT 
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1 

RIN 

(IN.) 

AND 

ROUT 

(IN.) 


2 

TNK 

VOL. (CU.FT. ) 

AND 

WALL 

THICKNESS 

(IN.) 

3 

TNK 

VOL. (CU.FT. ) 

AND 

ROUT 

(IN.) 


4 

RIN 

(IN.) 

AND 

WALL 

THICKNESS 

(IN.) 

5 

ROUT 

(IN.) 

AND 

WALL 

THICKNESS 

(IN. ) 


ENTER A NUMBER 1-5 

4 * 

ENTER INSIDE TANK RADIUS, RIN (IN.). 

20 * 

ENTER WALL THICKNESS (IN.). 

.5 * 


THE GEOMETRY FOR THIS ANALYSIS IS A SPHERE WITH 
VOL- 19.393 FT**3, RIN- 20.000 IN., AND WALL THICKNESS* 0.5000 IN. 


TYPE IN NUMBER OF NODES ALONG CIRCUMFERENCE OF THE SPHERE. 
SOUTH POLE TO NORTH POLE. 

IF VALUE INPUT IS < 10, 20 WILL BE USED AS A DEFAULT. 

25 * 


THIS IS A 2D ANALYSIS, THE WEDGE ANGLE * 1 RAD. 


INPUTTING DATA FOR REGION 1, TANKWALL 

TYPE IN THE NO. OF LAYERS OF NODES THRU REGION 1 
3 * 

TEMPERATURES MAY BE IN DEGF OR DEGR IF NO RADIATION IS PRESENT. 
THE TEMPERATURES WILL BE INPUT IN WHAT UNITS F OR R? 

TYPE IN F OR R 

r * 


TYPE IN THE INITIAL TEMPERATURE FOR THIS REGION (DEG R) 
550 * 


ENTER MATERIAL NUMBER FOR REGION 

101 LIQUID HYDROGEN 

102 LIQUID METHANE 

103 LIQUID NITROGEN 

104 LIQUID OXYGEN 

201 STAINLESS 304A 

202 STAINLESS 347 

203 ALUMINUM 6061 

204 ALUMINUM 2219 

205 ALUMINUM 7075 

206 ALUMINUM OXIDE 

207 INCONEL X-750 
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208 NICKEL 

301 GAS HYDROGEN 

302 GAS METHANE 

303 GAS NITROGEN 

304 GAS OXYGEN 

999 USER DEFINED 

204 


IS THERE TO BE A REGION ON THE OUTSIDE OF THE TANKWALL? 
EG. INSULATION. 

TYPE IN Y OR N 


INPUTTING DATA FOR REGION 2, OUTSIDE LAYER 1 


NOW NEED TO SPECIFY THICKNESS OF REGION 2 
AND THE NUMBER OF LAYERS THRU THE REGION. 

TO DEFINE THE REGION THICKNESS THE INPUT MAY BE: 

1. THE REGION THICKNESS (IN.) 

OR 2. THE THICKNESS OF EACH LAYER IN THE REGION 
TYPE IN 1 OR 2 

* 

1 

TYPE IN THICKNESS (WIDTH) OF REGION 2 (IN.) 

* 

.25 

TYPE IN THE NO. OF LAYERS OF NODES THRU REGION 2 

* 

1 

TYPE IN THE INITIAL TEMPERATURE FOR THIS REGION (DEG R) 

* 

550 


ENTER MATERIAL NUMBER FOR REGION 


101 

LIQUID HYDROGEN 

102 

LIQUID METHANE 

103 

LIQUID NITROGEN 

104 

LIQUID OXYGEN 

201 

STAINLESS 304A 

202 

STAINLESS 347 

203 

ALUMINUM 6061 

204 

ALUMINUM 2219 

205 

ALUMINUM 7075 

206 

ALUMINUM OXIDE 

207 

INCONEL X-750 

208 

NICKEL 

301 

GAS HYDROGEN 

302 

GAS METHANE 

303 

GAS NITROGEN 

304 

GAS OXYGEN 

999 

USER DEFINED 

204 
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IS THERE TO BE A 2ND REGION OUTSIDE OF THE TANKWALL? 
EG. MORE OR DIFFERENT INSULATION. 

TYPE IN Y OR N 

y * 


INPUTTING DATA FOR REGION 3, OUTSIDE LAYER 2 


NOW NEED TO SPECIFY THICKNESS OF REGION 3 
AND THE NUMBER OF LAYERS THRU THE REGION. 

TO DEFINE THE REGION THICKNESS THE INPUT MAY BE: 

1. THE REGION THICKNESS (IN.) 

OR 2. THE THICKNESS OF EACH LAYER IN THE REGION 
TYPE IN 1 OR 2 

2 * 

TYPE IN THICKNESS (WIDTH) OF EACH LAYER OF REGION 3 (IN.) 

.1 * 

TYPE IN THE NO. OF LAYERS OF NODES THRU REGION 3 

2 * 

TYPE IN THE INITIAL TEMPERATURE FOR THIS REGION (DEG R) 

54 0 * 


ENTER MATERIAL NUMBER FOR REGION 

101 LIQUID HYDROGEN 

102 LIQUID METHANE 

103 LIQUID NITROGEN 

104 LIQUID OXYGEN 

201 STAINLESS 304A 

202 STAINLESS 347 

203 ALUMINUM 6061 

204 ALUMINUM 221 9 

205 ALUMINUM 7075 

206 ALUMINUM OXIDE 

207 INCONEL X-730 

208 NICKEL 

301 GAS HYDROGEN 

302 GAS METHANE 

303 GAS NITROGEN 

304 GAS OXYGEN 

999 USER DEFINED 

202 * 


FOR THIS ANALYSIS THE INSIDE OF THE TANK WILL BE NODALIZED 
HOW MANY REGIONS INSIDE OF THE TANK ? 1 OR 2 

2 * 


INPUTTING DATA FOR REGION 4, INSIDE TANK AT WALL 

REGION 4 IS PART OF THE DISTANCE INSIDE THE SPHERE ALONG THE RADIUS, 
FROM THE INSIDE TANK WALL TOWARD THE CENTER OF THE SPHERE 
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WHERE RIN, (THE INSIDE SPHERE RADIUS) 


20.000 


NOW NEED TO SPECIFY THICKNESS OF REGION 4 
AND THE NUMBER OF LAYERS THRU THE REGION. 

TO DEFINE THE REGION THICKNESS THE INPUT MAY BE: 
1. THE REGION THICKNESS (IN.) 

OR 2. THE THICKNESS OF EACH LAYER IN THE REGION 
TYPE IN 1 OR 2 

1 

TYPE IN THICKNESS (WIDTH) OF REGION 4 (IN.) 


TYPE IN THE NO. OF LAYERS OF NODES THRU REGION 4 


TYPE IN THE INITIAL TEMPERATURE FOR THIS REGION (DEG R) 


ENTER MATERIAL NUMBER FOR REGION 


101 

LIQUID HYDROGEN 

102 

LIQUID METHANE 

103 

LIQUID NITROGEN 

104 

LIQUID OXYGEN 

201 

STAINLESS 304A 

202 

STAINLESS 347 

203 

ALUMINUM 6061 

204 

ALUMINUM 2219 

205 

ALUMINUM 7075 

206 

ALUMINUM OXIDE 

207 

INCONEL X-750 

208 

NICKEL 

301 

GAS HYDROGEN 

302 

GAS METHANE 

303 

GAS NITROGEN 

304 

GAS OXYGEN 

999 

USER DEFINED 

101 



INPUTTING DATA FOR REGION 5 r INSIDE TANK AT CENTER 

TYPE IN THE NO. OF I.AYERS OF NODES THRU REGION 5 
15 * 


TYPE IN THE INITIAL TEMPERATURE FOR THIS REGION (DEG R) 


ENTER MATERIAL NUMBER FOR REGION 


101 

LIQUID HYDROGEN 

102 

LIQUID METHANE 

103 

LIQUID NITROGEN 

104 

LIQUID OXYGEN 

201 

STAINLESS 304A 

202 

STAINLESS 347 

203 

ALUMINUM 6061 
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204 

ALUMINUM 2219 

205 

ALUMINUM 7075 

206 

ALUMINUM OXIDE 

207 

INCONEL X-750 

208 

NICKEL 

301 

GAS HYDROGEN 

302 

GAS METHANE 

303 

GAS NITROGEN 

304 

GAS OXYGEN 

999 

USER DEFINED 

101 



THE HEAT TRANSFER MECHANISM INSIDE THE TANK, 

I.E. REGIONS 4 AND 5, IS TO BE: 

1. CONDUCTION ONLY 

2. CONVECTION ONLY 

3. CONDUCTION AND CONVECTION 

TYPE IN 1 2 OR 3 

1 * 


TYPE IN % TANK IS FULL OF LIQUID. 

75 * 

IS THIS ANALYSIS A LOW-G OR 1-G ANALYSIS? 
TYPE IN 0 OR 1 

1 * 


ARE THERE TO BE ANY HEAT EXCHANGERS? 

TYPE IN Y OR N 

y * 


HEAT EXCHANGER INFO, MAX NO. =10 
INPUT FOR HEAT EXCHANGER NO. 1 

TYPE IN THE REGION NUMBER WHERE THE HEAT EXCHANGER GOES. 

A * 

THE HEAT EXCHANGER IS ON TOP OF WHICH LAYER OF REGION 4? 

TYPE IN THE LAYER NO., COUNT LAYERS FROM OUTSIDE 
TOWARD THE CENTER. 

1 * 

TYPE IN THE THETA ANGLE WHERE THE HEAT EXCHANGER STARTS 
COUNT UP FROM THE SOUTH POLE. 

2 * 

TYPE IN THE NUMBER OF THETAS THAT THE HEAT EXCHANGER COVERS. 

4 * 

TYPE IN THE HEAT EXCHANGER TEMPERATURE {DEG R) 


HEAT EXCHANGER NO. 1 SPECIFIED 

ON TOP OF LAYER 1 OF REGION 4 STARTING AT THETA ANGLE 2 FOR 4 NODES, WITH TEMPERATURl: 
- 36.00 

IS THIS CORRECT? 

TYPE IN Y OR N 
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y 

MORE HEAT EXCHANGERS? TYPE 

y 


* 

Y OR N 
★ 


HEAT EXCHANGER INFO, MAX NO. =10 
INPUT FOR HEAT EXCHANGER NO. 2 

TYPE IN THE REGION NUMBER WHERE THE HEAT EXCHANGER GOES. 

4 * 

THE HEAT EXCHANGER IS ON TOP OF WHICH LAYER OF REGION 4? 

TYPE IN THE LAYER NO., COUNT LAYERS FROM OUTSIDE 
TOWARD THE CENTER. 

3 * 

TYPE IN THE THETA ANGLE WHERE THE HEAT EXCHANGER STARTS 

COUNT UP FROM THE SOUTH POLE. 

17 * 

TYPE IN THE NUMBER OF THETAS THAT THE HEAT EXCHANGER COVERS. 

3 * 

TYPE IN THE HEAT EXCHANGER TEMPERATURE (DEG R) 


HEAT EXCHANGER NO. 2 SPECIFIED 

ON TOP OF LAYER 3 OF REGION 4 STARTING AT THETA ANGLE 17 FOR 3 NODES, WITH 
= 36.00 

IS THIS CORRECT? 

TYPE IN Y OR N 

★ 

y 

MORE HEAT EXCHANGERS? TYPE Y OR N 


HEAT EXCHANGER INFO, MAX NO. =10 
INPUT FOR BOAT EXCHANGER NO. 3 

TYPE IN THE REGION NUMBER WHERE THE HEAT EXCHANGER GOES. 

3 * 

THE HEAT EXCHANGER IS’ON TOP OF WHICH LAYER OF REGION 3? 

TYPE IN THE LAYER NO., COUNT LAYERS FROM OUTSIDE 
TOWARD THE CENTER. 

1 * 

TYPE IN THE THETA ANGLE WHERE THE HEAT EXCHANGER STARTS 
COUNT UP FROM THE SOUTH POLE. 

10 * 

TYPE IN THE NUMBER OF THETAS THAT THE HEAT EXCHANGER COVERS. 

3 * 

TYPE IN THE HEAT EXCHANGER TEMPERATURE (DEG R) 

60 * 


HEAT EXCHANGER NO. 3 
ON TOP OF LAYER 1 OF 
60.00 

IS THIS CORRECT? 

TYPE IN Y OR N 

SPECIFIED 
REGION 3 

STARTING AT THETA ANGLE 10 FOR 
* 

3 NODES, WITH 

MORE HEA: EXCHANGERS? 

TYPE 

Y OK N 

* 



TEMPERATURE 


TEMPERATURE 
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THERE MAY BE UP TO TWO BOUNDARY NODES ON THE OUTSIDE OF THE TANKWALL. 
EG. OUTSIDE ATMOSPHERE. 

DO YOU WANT ONE OR MORE OF THESE BOUNDARY NODES? 

TYPE IN Y OR N 

y * 

TYPE IN THE OUTSIDE ATMOSPHERE TEMPERATURE (DEG R) 

600 * 

THE HEAT TRANSFER TO THIS OUTSIDE TEMPERATURE IS TO BE 
CONVECTION OR RADIATION? 

TYPE IN C OR R 

c * 


TYPE IN THE CONVECTION COEFFICIENT, (BTU/HR-FT2-DEG) 
200 * 


DO YOU WANT A 2ND OUTSIDE BOUNDARY NODE? 

TYPE IN Y OR N 

y * 

TYPE IN TH; OUTSIDE ATMOSPHERE TEMPERATURE (DEG R) 

900 * 

THE HEAT TRANSFER TO THIS OUTSIDE TEMPERATURE IS TO BE 
CONVECTION OR RADIATION? 

TYPE IN C OR R 

r * 

TYPE IN THE RADIATION FACTOR (EPS*F) 

.2 * 


ONE OR MORE OF THE OUTSIDE BOUNDARY CONDUCTORS IS A RADIATION CONDUCTOR, 
ALL TEMPERATURES HAVE BEEN CONVERTED TO DEG F. 


IS THERE TO BE A CONSTANT Q INPUT, (SOURCE TERM) 

INTO THE OUTSIDE SURFACE OF THE MODEL? 

TYPE Y OR N 

y * 

THE VALUE OF Q MAY BE SPECIFIED IN 3 WAYS: 

1 CONSTANT Q PER UNIT AREA, (BTU/ (HR-FT2) 

2 CONSTANT Q PER UNIT AREA, (BTU/ (HR-IN2) 

3 0 BASED ON BTU /HR OVER THE ENTIRE SPHERE SURFACE 

TYPE 1, 2, OR 3 

3 * 

TYPE IN THE VALUE OF Q IN BTU/HR ON SPHERE 
12.5 * 

NOW INPUT THE SPECIFIC DATA FOR SINDA 
THIS STNDA ANALYSIS MAY BE: 

1 A STEADY STATE ANALYSIS 

2 A TRANSIENT ANALYSIS 

3 STEADY STATE FOLLOWED BY A TRANSIENT 

4 A TRANSIENT FOLLOWED BY STEADY STATE 

TYPE IN 1, 2, 3, OR 4 

2 * 

A TRANSIENT ANALYSIS IS TO BE DONE, 

THE EXECUTION SUBROUTINE WILL BE EITHER FWDBCK OR CNFRDL 
THIS WILL BE DETERMINED BY THE VALUE OF THE TIME STEP, (DELTIME), 
WHICH WILL BE INPUT BELOW. 
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THE NEXT 4 INPUT VALUES INVOLVE PROBLEM TIME, 
THESE 4 VALUES MAY BE INPUT IN UNITS OF 

SECONDS, MINUTES , OR HOURS 
NOW TYPE IN S M OR H 


NOW TYPE IN THE PROBLEM START TIME (MIN) 

* 

0 


NOW TYPE IN THE PROBLEM END TIME (MIN) 

120 

TYPE IN THE TIME STEP, (DELTIME) , (MIN) TO BE USED. 

IF DELTIME IS UNKNOWN, OR IF YOU TYPE ZERO ( 0 ), 

THE SINDA FORWARD DIFFERENCE METHOD, (CNFRDL) , 

WILL BE USED AND DELTIME WILL BE COMPUTED BY THE PROGRAM 

.001 

TYPE IN THE OUTPUT INTERVAL DTOUT (MIN) TEMPERATURES WILL BE PRINTED EVERY DT MIN 

IF INPUT VALUE . LE . 0, »> .25 HRS. WILL BE USED 

* 


TYPE IN THE CONVERGENCE CRITERIA, DELTA TEMPERATURE 
SUGGESTED VALUE RANGE .01 TO .001 
IF INPUT VALUE . LE . 0 »> .005 WILL BE USED. 

.001 


TYPE IN NLOOP , THE NUMBER OF ITERATION LOOPS ALLOWED 
SUGGESTED RANGE OF VALUES 100 TO 1000 
IF INPUT VALUE IS .LE. 0 >>> 100 WILL BE USED. 

NOTE: SOME STEADY STATE CASES MAY NEED NLOOP > 1000 
500 

THE FOLLOWING IS THE RANGE OF PRESSURES IN THE 
MATERIAL DBASE FOR HYDROGEN IN REGION #4: 


STARTING PRESSURE - 

5. 

.00 

ENDING PRESSURE 

81 . 

.00 

INCREMENT 

2, 

.00 


ENTER THE DESIRED PRESSURE FOR THAT REGION 

* 

49 

IN THE PLOTTING ROUTINE, NTYP=1; 2D SPHERE WEDGE 
DO YOU WANT A PLOT OF THIS GEOMETRY? 

TYPE Y OR N 

★ 

y 
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IN THE SPHERE PLOTTING ROUTINE 
SEND THE GRAPH TO 

1. THE QMS PRINTER 

2. THE TERMINAL SCREEN 

3. SOME OTHER DEVICE 

TYPE IN 1 2 OR 3 


PLOT— RADMAX,RSTEP» 23.9499969 5.32222080 

END OF CRYOTRAN PREPROCESSOR PROGRAM, 

ON TO ANALYSIS PROGRAM 
THE OUTPUT FILE IS CALLED "CRYOTRAN MODEL". 

THIS "CRYOTRAN MODEL" FILE IS A SINDA MODEL. 


USER MAY NOW SUBMIT THE FILE "CRYOTRAN MODEL" 

TO THE CRAY COMPUTER FOR EXECUTION, 

OR MAKE ANY DESIRED MODIFICATIONS WITH AN EDITOR 
PRIOR TO SUBMITTING IT TO THE CRAY. 


TO SUBMIT THE FILE TO CRAY, 

ON THE VM SYSTEM TYPE: CRSUBMIT CRYOTRAN MODEL 

DO YOU WAN! 1 TO GO TO BEGINNING OF CRYOTRAN OR QUIT? 

TYPE Y TO GO BACK TO BEGINNING OF CRYOTRAN, 

OR TYPE N TO QUIT CRYOTRAN. 


ON TO ANALYSIS PROGRAM 
THE OUTPUT FILE IS CALLED "CRYOTRAN MODEL". 

THIS "CRYOTRAN MODEL" FILE IS A SINDA MODEL. 


USER MAY NOW SUBMIT THE FILE "CRYOTRAN MODEL" 

TO THE CRAY COMPUTER FOR EXECUTION, 

OR MAKE ANY DESIRED MODIFICATIONS WITH AN EDITOR 
PRIOR TC SUBMITTING IT TO THE CRAY. 


TO SUBMIT THE FILE TO CRAY, 

ON THE VM SYSTEM TYPE: CRSUBMIT CRYOTRAN MODEL 


IF USER HAS REQUESTED A GEOMETRY PLOT OF THE SINDA MODEL 
THE PLOT DATA IS IN FILE NAMED "QMS PLOTDATA" 

USER MAY PLOT THESE RESULTS BY TYPING; PLOTQA 
END OF DISSPLA 11.0 — 27876 VECTORS IN I PLOTS. 

RUN ON 12/8/89 USING .SERIAL NUMBER 2312 AT NASA LEWIS RESEARCH 
CENTER 

PROPRIETARY SOFTWARE PRODUCT OF COMPUTER ASSOCIATES, INC. 

2729 VIRTUAL STORAGE REFERENCES; 17 READS; A WRITES. 

AFB240I VABEX : ABEND OCCURRED IN FORTRAN PROCESSING OF ORIGINAL ABEND. 

DMSFRE1 61T Invalid DM3FRET call from F3570C, error number 6 

CMS 

FILEL 

DMSABN150W 255 (HEX OQOOFF) doublewords of system storage were not recovered 
Ready; T=*. •*/*.** 07:20:23 
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plotqa * 

Which QMS printer would you like to have your output sent to? 

1) ANALEX 

2) RAC 

3) ERB 

4) DEB 

Enter the number of your choice: 

1 * 

PRT FILE 8336 TO RSCS COPY 001 NOHOLD 

Ready; T-0.13/0.56 07:28:34 


This ends the CryoTran input prompts and the responses to a sample case 1. 


Sample 2 and 3 

Sinda model of sphere with subroutines called, followed by sphere with inside of tank not 
nodalized. As in the previous sample screens the lines containing user responses are marked with 
a *. 


Ready; T-0.01/0.01 11:16:52 

link cryolib 200 222 rr 

DASD 222 LINKED R/O; R/W BY CRYOLIB 

Ready; T-0.01/0.01 11:17:09 

access 222 m 

M (222) R/O 

Ready; T-0.01/0.01 11:17:20 


runcry 

No filetype specified 
C (301) R/O 

The following names are undefined: 
CYLNDR SFEERE MATMNU CYLNDS 

CYLCDS SPHCDS PRPTBL DUNPLT 

TARGET 

The following names are undefined: 
CYLNDR MATMNU CYLNDS ULLlG 

PLTCYL PLTSPH CHJ LL NVFILL 

The following names are undefined: 
DUNPLT PLTCYL PLTSPH CHILL 

The following names are undefined: 
DUNPLT PLTCYL PLTSPH 


The following names are undefined: 


ANGLE 

INTNO 

RESET 

YPOSN 


AREA2D 

MARKER 

RLINT 

GRAF 


BASALF 

MESSAG 

RLMESS 

QMS 


CURVE 

PAGE 

RLVEC 


Execution begins... 


* 


ULLGET ULLlG 
PLTSPH CHILL 

CYLCDS PRPTBL 


SPHNDS 

PLTCYL 


AREACYL 

TARGET 

NVFILL 


DONEPL 

PDEV 

THKCRV 


TARGET 


ENDPL 

POLAR 

TRIPLX 


HEIGHT 
QMS 2 
VECTOR 


AREACYL 

NVFILL 


DUNPLT 


1BM52 

REALNO 

XPOSN 


WELCOME TO CRYOTRAN 

YOU WILL BE PROMPTED FOR ALL NECESSARY INPUT. 

READ THE INSTRUCTIONS CAREFULLY. 

TYPE IN THE INPUT DATA CAREFULLY TO AVOID TROUBLE, 

YOU MAY QUIT THE PROGRAM AT ANY INPUT PROMPT BY TYPING A "Q" (QUIT) 


ENTER THE NUMBER FOR THE DESIRED PROBLEM TYPE 
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THE PROBLEM TYPES ARE AS FOLLOWS: 

1 - THERMO/THERMAL SINDA ANALYSIS ON A SPHERE. 

2 - THERMO/THERMAL SINDA ANALYSIS ON A CYLINDER. 

3 - RUN A PRESTORED ANALYSIS PROGRAM 

1 * 


CHOOSE THE ANALYSIS PROGRAM YOU WISH TO USE. 
TYPE IN THE NUMBER OF THE DESIRED ANALYSIS. 

1 2D WEDGE WITH INSIDE OF TANK NODALIZED 

2 2D WEDGE SHELL - NO NODES INSIDE OF TANK 

3 2D WEDGE SHELL - THICK WALL FILL ANALYSIS 

3 * 


NOW A TITLE FOR THIS PROBLEM. 

THE TITLE LINE MAY BE UP TO 80 CHARACTERS LONG. 

TYPE IN THE TITLE. 

sample run of no nodes in tank., calling subroutines * 


THIS TASK IS BEING SET UP FOR THE CRAY, 
NOW INPUT NECESSARY CRAY INFO. 


WHICH CRAY SYSTEM COS OR UNICOS 
TYPE IN C OR U 


TYPE IN YOUR CRAY USERID, 
userid 


TYPE IN YOUR CRAY PASSWORD . 
password 


TYPE IN NO. OF CRAY CPU SECONDS TO BE USED. 

IF NUMBER OF SECONDS REQUESTED IS < 10, 60 WILL BE USED 


TYPE AMOUNT OF CRAY MEMORYTO BE REQUESTED, 

IF AMOUNT REQUESTED IS < 1,500,000, 1,500,000 WILL BE 


NOW GIVE YOUR JOB A NAME, TYPE IN THE NAME, 
1-7 ALPHEBETIC CHARACTERS. 
sphere2 * 


THE CRAY JCL THAT WAS INPUT IS AS FOLLOWS: 
USERID = userid 

PASSWORD = password 


USED. 
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CPU TIME REQUEST - 59 SECS. 

MEMORY REQUEST - 1500000 words 

JOB NAME “ sphere2 


ARE THESE ALL CORRECT? TYPE Y OR 

y 


N OR Q 

•* 


TO QUIT 


NOW INPUT 
INPUT DATA TO 

1 RIN (IN.) 

2 TNK VOL. (CU .FT . 

3 TNK VOL. (CU.FT. 

4 RIN (IN.) 

5 ROUT (IN.) 


ROUT (IN.) 

WALL THICKNESS (IN.) 
ROUT (IN.) 

WALL THICKNESS (IN.) 
WALL THICKNESS (IN.) 


SPECIFIC DATA FOR THIS SPHERE. 

DEFINE THE SPHERE MAY BE ANY ONE Ob 
AND 
) AND 
) AND 
AND 


ENTER A NUMBER 1 
4 


ENTER INSIDE TANK RADIUS , RIN (IN.). 
24 


ENTER WALL THICKNESS (IN.). 

2 


THE GEOMETRY FOR THIS 
VOL- 33.510 FT* *3# 


ANALYSIS IS A SPHERE WITH 
RIN= 24.000 IN., AND 


WALL THICKNESS' 2.0000 IN. 


type in number of nodes along circumference of the sphere. 

«u. - — »/ 

25 


THIS IS A 2D ANALYSIS, THE WEDGE ANGLE - 1 RAD 


INPUTTING DATA FOR REGION 1, TANKWALL 


TYPE IN THE NO. OF LAYERS OF NODES THRU REGION 1 
4 


TEMPERATURES MAY 
THE TEMPERATURES 
TYPE IN F OR 


BE IN DEGF OR DEGR IF NO RADIATION IS PRESENT. 
WILL BE INPUT IN WHAT UNITS F OR R? 

R 


r 


TYPE IN THE INITIAL TEMPERATURE FOR THIS REGION (DEG R) 
540 


ENTER MATERIAL NUMBER FOR REGION 
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101 

LIQUID HYDROGEN 

102 

LIQUID METHANE 

103 

LIQUID NITROGEN 

104 

LIQUID OXYGEN 

201 

STAINLESS 304A 

20 2 

STAINLESS 347 

203 

ALUMINUM 6061 

204 

ALUMINUM 2219 

205 

ALUMINUM 7075 

206 

ALUMINUM OXIDE 

207 

INCONEL X-750 

208 

NICKEL 

301 

GAS HYDROGEN 

302 

GAS METHANE 

303 

GAS NITROGEN 

304 

GAS OXYGEN 

999 

201 

USER DEFINED 


IS THERE TO BE A REGION ON THE OUTSIDE OF THE TANKWALL? 
EG. INSULATION. 

TYPE IN Y OR N 


ARE THERE TO BE ANY HEAT EXCHANGERS? 
TYPE IN Y OR N 


THERE MAY BE UP TO TWO BOUNDARY NODES ON THE OUTSIDE OF THE TANKWALL 
EG. OUTSIDE ATMOSPHERE . 

DO YOU WANT ONE OK MORE OF THESE BOUNDARY NODES? 

TYPE IN Y OR N 


IS THERE TO BE A CONSTANT Q INPUT, (SOURCE TERM) 

INTO THE OUTSIDE SURFACE OF THE MODEL? 

TYPE Y OR N 

* 

NOW INPUT THE SPECIFIC DATA FOR SINDA 
THIS SINDA ANALYSIS MAY BE; 

1 A STEADY STATE ANALYSIS 

2 A TRANSIENT ANALYSIS 

3 STEADY STATE FOLLOWED BY A TRANSIENT 

4 A TRANSIENT FOLLOWED BY STEADY STATE 

TYPE IN 1, 2, 3, OR 4 

* 

A TRANSIENT ANALYSIS IS TO BE DONE, 

THE EXECUTION SUBROUTINE WILL BE EITHER FWDBCK OR CNFRDL 
THIS WILL BE DETERMINED BY THE VALUE OF THE TIME STEP, (DELTIME) 
WHICH WILL BE INPUT BELOW. ' 


THE NEXT 4 INPUT VALUES INVOLVE PROBLEM TIME, 
THESE 4 VALUES MAY BE INPUT IN UNITS OF 

SECONDS, MINUTES, OR HOURS 
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NOW TYPE IN 


S 


M 


OR 


H 


m 


★ 


NOW TYPE IN THE PROBLEM START TIME (MIN) 


NOW TYPE IN THE PROBLEM END TIME (MIN) 

360 * 

TYPE IN THE TIME STEP , (DELTIME ) f (MIN) TO BE USED. 

IF DELTIME IS UNKNOWN , OR IF YOU TYPE ZERO ( 0 ), 

THE SINDA FORWARD DIFFERENCE METHOD, (CNFRDL) , 

WILL BE USED AND DELTIME WILL BE COMPUTED BY THE PROGRAM 
.0125 * 

TYPE IN THE OUTPUT INTERVAL DTOUT (MIN) TEMPERATURES WILL BE PRINTED EVERY DT MIN. 
IF INPUT VALUE . LE . 0, >>> .25 HRS . WILL BE USED 


TYPE IN THE CONVERGENCE CRITERIA, DELTA TEMPERATURE 
SUGGESTED VALUE RANGE .01 TO .001 
IF INPUT VALUE .LE. 0 >>> .005 WILL BE USED. 

.001 * 


TYPE IN NLOOP, THE NUMBER OF ITERATION LOOPS ALLOWED 
SUGGESTED RANGE OF VALUES 100 TO 1000 
IF INPUT VALUE IS .LE. 0 >>> 100 WILL BE USED. 

NOTE: SOME STEADY STATE CASES MAY NEED NLOOP > 1000 
300 * 

SPECIAL INPUT FOR TANKFILL PROCEDURES 
TYPE IN FLUID FLOW RATE (LB/HR) 

.5 * 

TYPE IN FLUID TEMPERATURE (DEG R) 

NOTE: TEMPERATURE UNITS MUST BE DEG R. 

40 * 

TYPE IN VAPOR TEMPERATURE (DEG R) 

60 * 

FILL THE TANK HOW FULL? TYPE IN PERCENT TO FILL 
95 * 

DO YOU NEED MATERIAL PROPERTIES FOR THE LIQUID? 

TYPE Y OR N 


ENTER MATERIAL NUMBER FOR REGION 


101 

LIQUID HYDROGEN 

102 

LIQUID METHANE 

103 

LIQUID NITROGEN 

10 A 

LIQUID OXYGEN 

201 

STAINLESS 304A 

202 

STAINLESS 347 

203 

ALUMINUM 6061 

204 

ALUMINUM 2219 

205 

ALUMINUM 7075 

206 

ALUMINUM OXIDE 

207 

INCONEL X-750 

208 

NICKEL 

301 

GAS HYDROGEN 
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302 GAS METHANE 

303 GAS NITROGEN 

304 GAS OXYGEN 

999 USER DEFINED 

101 * 

THE FOLLOWING IS THE RANGE OF PRESSURES IN THE 
MATERIAL DBASE FOR HYDROGEN IN REGION #6: 


STARTING PRESSURE - 

5. 

.00 

ENDING PRESSURE 

81. 

.00 

INCREMENT 

2. 

.00 


ENTER THE DESIRED PRESSURE FOR THAT REGION 
49 * 

JCL COMMAND - IRC-FILEDEF CRYSUBS DISK CRYOSUBS THWSEl M 0 

JCL COMMAND - IRC-FILEDEF CRYSUBS CLEAR 0 


IN THE PLOTTING ROUTINE, NTYP-1; 2D SPHERE WEDGE 
DO YOU WANT A PLOT OF THIS GEOMETRY? 

TYPE Y OR N 

n * 

END OF CRYOTRAN PREPROCESSOR PROGRAM, 

ON TO ANALYSIS PROGRAM 

THE OUTPUT FILE IS CALLED "CRYOTRAN MODEL". 

THIS "CRYOTRAN MODEL" FILE IS A SINDA MODEL. 


USER MAY NOW SUBMIT THE FILE "CRYOTRAN MODEL" 

TO THE CRAY COMPUTER FOR EXECUTION, 

OR MAKE ANY DESJKKD MODIFICATIONS WITH AN EDITOR 
PRIOR TO SUBMITTING IT TO THE CRAY. 


TO SUBMIT THE FILE TO CRAY, 

ON THE VM SYSTEM TYPE: CRSUBMIT CRYOTRAN MODEL 

DO YOU WANT TO GO TO BEGINNING OF CRYOTRAN OR QUIT? 

TYPE Y TO GO BACK TO BEGINNING OF CRYOTRAN, 

OR TYPE N TO QUIT CRYOTRAN. 

y * 

BEFORE CONTINUING YOU MAY WANT TO CHANGE THE NAME 
OF SOME OF THE OUTPUT FILES. IF YOU DO NOT CHANGE THE NAME 
OF THE MODEL FILE, THE NEW MODEL OUTPUT OF THE NEW RUN 
WILL OVERWRITE THE MODEL OUTPUT OF THE PREVIOUS RUN. 

DO YOU WANT TO CHANGE THE NAME OF ANY OF YOUR OUTPUT 
FILES FROM THIS RUN BEFORE CONTINUING? 

TYPE IN Y OR N 

y * 

CHANGE THE NAME OF THE FILE "CRYOTRAN INPUTEKO"? 
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TYPE IN Y OR N 


n 

CHANGE THE NAME OF THE FILE 


* 

"CRYOTRAN MODEL"? 


TYPE IN Y OR N 

★ 

y 


TYPE IN THE NEW FILE NAME; FILE TYPE; 

YOU MUST TYPE IN ALL THREE PARTS OF NAME 
sphere2 thkw a 

JCL COMMAND - IRC-RENAME CRYOTRAN MODEL A 


FILE MODE 

FN FT FM 

* 

SPHERE2 THKW A 


WELCOME TO CRYOTRAN 

YOU WILL BE PROMPTED FOR ALL NECESSARY INPUT. 

READ THE INSTRUCTIONS CAREFULLY. 

TYPE IN THE INPUT DATA CAREFULLY TO AVOID TROUBLE, 

YOU MAY QUIT THE PROGRAM AT ANY INPUT PROMPT BY TYPING A 


ENTER THE NUMBER FOR THE DESIRED PROBLEM TYPE 
THE PROBLEM TYPES ARE AS FOLLOWS: 

1 - THERMO /THERMAL SINDA ANALYSIS ON A SPHERE. 

2 - THERMO /THERMAL SINDA ANALYSIS ON A CYLINDER. 

3 - RUN A PRESTORED ANALYSIS PROGRAM 


CHOOSE THE ANALYSIS PROGRAM YOU WISH TO USE. 
TYPE IN THE NUMBER OF THE DESIRED ANALYSIS. 

1 2D WEDGE WITH INSIDE OF TANK NODALIZED 

2 2D WEDGE SHELL - NO NODES INSIDE OF TANK 

3 2D WEDGE SHELL - THICK WALL FILL ANALYSIS 


NOW A TITLE FOR THIS PROBLEM. 

THE TITLE LINE MAY BE UP TO 80 CHARACTERS LONG. 
TYPE IN THE TITLE. 

sample of sphere not nodalized in tank 


THIS TASK IS BEING SET UP FOR THE CRAY, 
NOW INPUT NECESSARY CRAY INFO. 

WHICH CRAY SYSTEM COS OR UNICOS 
TYPE IN C OR U 


TYPE IN YOUR CRAY USERID, 
userid 


0 


Q" (QUIT) 
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TYPE IN YOUR CRAY PASSWORD, 
password * 

TYPE IN NO. OF CRAY CPU SECONDS TO BE USED. 

IF NUMBER OF SECONDS REQUESTED IS < 10, 60 WILL BE USED 

59 * 


TYPE AMOUNT OF CRAY MEMORYTO BE REQUESTED, 

IF AMOUNT REQUESTED IS < 1,500,000, 1,500,000 WILL BE USED. 


NOW GIVE YOUR JOB A NAME, TYPE IN THE NAME, 
1-7 ALPHEBETIC CHARACTERS. 
sphere3 * 


THE CRAY JCL THAT WAS INPUT IS AS FOLLOWS: 

USERID — userid 

PASSWORD = password 

CPU TIME REQUEST - 59 SECS. 

MEMORY REQUEST = 1500000 words 

JOB NAME = sphere3 

ARE THESE ALL CORRECT? TYPE Y OR N OR Q TO QUIT 
Y * 


NOW INPUT SPECIFIC DATA FOR THIS SPHERE. 



INPUT DATA TO DEFINE 

THE 

SPHERE 

MAY BE ANY 

ONE 

1 

RIN (IN.) 

AND 

ROUT 

(IN.) 


2 

TNK VOL. (CU.FT. ) 

AND 

WALL 

THICKNESS 

{IN. 

3 

TNK VOL. {CU.FT. ) 

AND 

ROUT 

(IN.) 


4 

RIN {IN.) 

AND 

WALL 

THICKNESS 

{IN. ; 

5 

ROUT {IN.) 

AND 

WALL 

THICKNESS 

(in. ; 


ENTER A NUMBER 1-5 

2 

ENTER TANK VOLUME -CU.FT.). 

200 

ENTER WALL THICKNESS {IN.). 

.2 


THE GEOMETRY FOR THIS ANALYSIS IS A SPHERE WITH 
VOL= 20G.OOO FT * * 3 , RIN= 43.534 IN., AND WALL THICKNESS- 0.2000 IN. 


TYPE IN NUMBER OF NODES ALONG CIRCUMFERENCE OF THE SPHERE. 
SOUTH POL: TO NORTH POLi . 

IF VALUE NPUT IS < 10, 20 WILL BE USED AS A DEFAULT. 

40 ^ 
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THIS IS A 2D ANALYSIS, ’THE WEDGE ANGLE * 1 RAD. 


INPUTTING DATA FOR REGION 1, TANKWALL 

TYPE IN THE NO. OF LAYERS OF NODES THRU REGION 1 

* 

TEMPERATURES MAY BE IN DEGF OR DEGR IF NO RADIATION IS PRESENT. 
THE TEMPERATURES WILL BE INPUT IN WHAT UNITS F OR R? 

TYPE IN F OR R 


TYPE IN THE INITIAL TEMPERATURE FOR THIS REGION (DEG R) 
54 0 * 


ENTER MATERIAL NUMBER FOR REGION 


101 

LIQUID HYDROGEN 

102 

LIQUID METHANE 

103 

LIQUID NITROGEN 

104 

LIQUID OXYGEN 

201 

STAINLESS 304A 

202 

STAINLESS 347 

203 

ALUMINUM 6061 

204 

ALUMINUM 2219 

205 

ALUMINUM 7075 

206 

ALUMINUM OXIDE 

207 

INCONEL X-750 

208 

NICKEL 

301 

GAS HYDROGEN 

302 

GAS METHANE 

303 

GAS NITROGEN 

304 

GAS OXYGEN 

999 

USER DEFINED 

204 



IS THERE TO BE A REGION Or; THE OUTSIDE OF THE TANKWALL? 
EG. INSULATION. 

TYPE IN Y OR N 


n 


ARE THERE TO BE ANY HEAT EXCHANGERS? 
TYPE IN Y OR N 


THERE MAY BE UP TO TWO BOUNDARY NODES ON THE OUTSIDE OF THE TANKWALL. 
EG. OUTSIDE ATMOSPHERE. 

DO YOU WANT ONE OR MORE OF THESE BOUNDARY NODES? 

TYPE IN ' OR N 
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FOR THIS MODEL, REGION 4 (INSIDE OF TANK), 

IS NOT NODALIZED WITH SINDA NODES; 

DO YOU WANT CONSTANT TEMPERATURE BOUNDARY NODES 
TO CONNECT TO INSIDE OF TANK WALL, OR NOT? 

YOU MAY HAVE: 

1. NO CONSTANT TEMPERATURE BOUNDARY NODES. 

2. A SINGLE SET OF CONSTANT TEMPERATURE NODES. 

3. 2 SETS OF CONSTANT TEMPERATURE NODES TO 

TO SIMULATE LIQUID AND VAPOR IN 1-G. 

TYPE IN 1 2 OR 3 

3 * 

TYPE IN THE TEMPERATURE OF THE LIQUID BNDY NODES DEG (R) 
36 * 

TYPE IN THE TEMPERATURE OF THE VAPOR BNDY NODES DEG (R) 

45 * 

TYPE IN % TANK IS FULL OF LIQUID. 

80 * 


IS THERE TO BE A CONSTANT Q INPUT, (SOURCE TERM) 
INTO THE OUTSIDE SURFACE OF THE MODEL? 

TYPE Y OR N 

* 

NOW INPUT THE SPECIFIC DATA FOR SINDA 
THIS SINDA ANALYSIS MAY BE: 

1 A STEADY STATE ANALYSIS 

2 A TRANSIENT ANALYSIS 

3 STEADY STATE FOLLOWED BY A TRANSIENT 

4 A TRANSIENT FOLLOWED BY STEADY STATE 

TYPE IN 1, 2, 3, ON 4 


TYPE IN THE CONVERGENCE CRITERIA, DELTA TEMPERATURE 
SUGGESTED VALUE RANGE .01 TO .001 
IF INPUT VALUE . LE . 0 >>> .005 WILL BE USED. 

.001 * 


TYPE IN NLOOP , THE HUMBER OF ITERATION LOOPS ALLOWED 
SUGGESTED RANGE OF VALUES 100 TO 1000 
IF INPUT VALUE IS . LE . 0 >>> 100 WILL BE USED. 

NOTE: SOME STEADY STATE CASES MAY NEED NLOOP > 1000 
2000 * 


TEMPERATURES INSIDE OF TANK ARE DEFINED TL- 36.00 DEG R AND TV* 45.00 DEG R 
WANT TO INPUT HL AND HV 'i O COMPUTE CONVECTION COEFICIENTS G-H*A? 

TYPE IN Y OR N 


TYPE IN FILM COEFFICIENT HL (BTU/HR-FT2-R) 
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2400 


TYPE IN FILM COEFFICIENT HV (BTU/HR-FT2-R) 

200 * 


IN THE PLOTTING ROUTINE, NTYP-1; 2D SPHERE WEDGE 
DO YOU WANT A PLOT OF THIS GEOMETRY? 

TYPE Y OR N 

* 

i 

END OF CRYOTRAN PREPROCESSOR PROGRAM, 

ON TO ANALYSIS PROGRAM 
THE OUTPUT FILE IS CALLED "CRYOTRAN MODEL". 

THIS "CRYOTRAN MODEL" FILE IS A SINDA MODEL. 


USER MAY NOW SUBMIT THE FILE "CRYOTRAN MODEL" 

TO THE CRAY COMPUTER FOR EXECUTION, 

OR MAKE ANY DESIRED MODIFICATIONS WITH AN EDITOR 
PRIOR TO SUBMITTING IT TO THE CRAY. 


TO SUBMIT THE FILE TO CRAY, 

ON THE VM SYSTEM T¥PE: CRSUBMIT CRYOTRAN MODEL 

DO YOU WANT TO GO TO BEGINNING OF CRYOTRAN OR QUIT? 

TYPE Y TO GO BACK TO BEGINNING OF CRYOTRAN, 

OR TYPE N TO QUIT CRYOTRAN. 

★ 

ON TO ANALYSIS PROGRAM 
THE OUTPUT FILE IS CALLED "CRYOTRAN MODEL". 

THIS "CRYOTRAN MODEL" FILE IS A SINDA MODEL . 


USER MAY NOW SUBMIT THE FILE "CRYOTRAN MODEL" 

TO THE CRAY COMPUTER FOR EXECUTION, 

OR MAKE ANY DESIRED MODIFICATIONS WITH AN EDITOR 
PRIOR TO SUBMITTING IT TO THE CRAY. 


TO SUBMIT THE FILE TO CRAY, 

ON THE VM SYSTEM TYPE: CRSUBMIT CRYOTRAN MODEL 


IF USER HAS REQUESTED A GEOMETRY PLOT OF THE SINDA MODEL 
THE PLOT DATA IS IN FILE NAMED "QMS PLOTDATA" 

USER MAY PLOT THESE RESULTS BY TYPING: PLOTQA 

Ready; T=2.77/4.95 11:28:47 


This ends the CryoTran input prompts and the responses to a sample cases 2 and 3 
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APPENDIX C 


Sample Problems 


-» 
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Sample sphere model with 5 regions, regions 4 and 5 are nodalized, Q on outside surface, 
3 heat exchangers and 2 outside boundary nodes. Figure 7 is a plot of this sample model. 


# USER-vvgflenn 

# QSUB -r spherel 
» QSUB -eo 

# QSUB -IT 59 

# QSUB -1M 1.5MW * 

# 0 $ 
set -x 
ja 

cat > model << EOF 


PW-password 

# jobname 

I Combine error andetandard output 
I CPU time 
Memory requested 

# End NQS statements 

# set echo 

# SINDA MODEL TO FOLLOW 


BCD 3THERMAL LPCS 

REM THIS SINDA MODEL WAS GENERATED BY CRYOTRAN 

REM SPHERE 2D WEDGE WITH INSIDE OF TANK NODALIZED 

REM WEDGE ANGLE-BETA - 1.0 RADIANS 

BCD 9SAMPLE MODEL SPHERE1 
BCD 9 
END 

BCD 3NODE DATA 

REM NODE TEMPERATURES ARE IN (DEG F) 

REM DIMENSIONS ARE IN (IN.), TIME IS IN (SECS) 

REM SURFACE NODES, INSIDE TANK WALL 

1001# 90.0, -1.000000 $ SURFACE NODES 

REM HEAT EXCHANGER No’. 1, REPLACES NODES 1002 THRU 1005 


GEN 

1006, 20, 1, 

90.0, 

-1.000000 

$ SURFACE NODES 

REM 

REM 

DIFFUSION NODES, REGION 1, TANKWALL 
REGION 1, LAYER NO. 1 


SIM 

2001, 

2, 24, 

90.0, A1204, 

0.547099 

$ ALUMINUM 2219 

SIM 

2002, 

2, 22, 

90.0, A1204, 

1. 632664 

$ ALUMINUM 2219 

SIM 

2003, 

2, 20, 

90.0, A1204, 

2.692478 

S ALUMINUM 2219 

SIM 

2004, 

2, 18, 

90.0, A1204, 

3.709835 

$ ALUMINUM 2219 

SIM 

2005, 

2, 16, 

90.0, A1204 , 

4.668679 

$ ALUMINUM 2219 

SIM 

2006, 

2, 14, 

90.0, A1204 , 

5.553900 

$ ALUMINUM 2219 

SIM 

2007, 

2, 12, 

90.0, A1204 , 

6.351530 

$ ALUMINUM 2219 

SIM 

2008, 

2, 10, 

90.0, A1204 , 

7.048999 

$ ALUMINUM 2219 

SIM 

2009, 

2, B, 

90.0, A1204, 

7.635290 

$ ALUMINUM 2219 

SIM 

2010, 

2, 6, 

90.0, A1204 , 

8.101176 

$ ALUMINUM 2219 

SIM 

2011, 

2, 4, 

90.0, A1204 , 

8.439301 

$ ALUMINUM 2219 

SIM 

2012, 

2 . 2 , 

90.0, A1204, 

8.644333 

$ ALUMINUM 2219 

SIV 

REM 

2013, 

REGION 

90.0, A1204, 
1, LAYER NO. 2 

8.713038 

$ ALUMINUM 2219 

SIM 

2026, 

2, 24, 

90.0, A1204, 

0.530204 

$ ALUMINUM 2219 

SIM 

2027, 

2, 22, 

90.0, A1204, 

1.606119 

$ ALUMINUM 2219 

SIM 

2028, 

2, 20, 

90.0, A1204 , 

2.648705 

$ ALUMINUM 2219 

SIM 

2029, 

2, 18, 

90.0, A1204 , 

3.649517 

$ ALUMINUM 2219 

SIM 

2030, 

2, 16, 

90.0, A1204 , 

4.592772 

$ ALUMINUM 2219 

SIM 

2031, 

2, 14, 

90.0, A1204 , 

5.463598 

$ ALUMINUM 2219 

SIM 

2032, 

2, 12, 

90.0, A1204 , 

6.248263 

$ ALUMINUM 2219 

SIM 

2033, 

2, 10, 

90.0, A1204, 

6. 934390 

$ ALUMINUM 2219 

SIM 

2034, 

2, 8, 

90.0, A1204 , 

7. 511152 

$ ALUMINUM 2219 

SIM 

2035, 

2, 6, 

90.0, A1204, 

7.969460 

$ ALUMINUM 2219 

SIM 

2036, 

2, 4, 

90.0, A1204, 

8.302086 

$ ALUMINUM 2219 

SIM 

2037, 

2 . 2 . 

90.0, A1204, 

8.503784 

$ ALUMINUM 2219 

SIV 

REM 

2038, 

REGION 

90.0, A1204, 
1. LAYER NO. 3 

8.571373 

$ ALUMINUM 2219 

SIM 

2051, 

2, 2V 

90.0, A1204, 

0.529381 

$ ALUMINUM 2219 

SIM 

2052, 

2, 22 , 

90.0, A1204 , 

1.579787 

$ ALUMINUM 2219 

SIM 

2053, 

2, 20, 

90.0, A1204 , 

2.605281 

$ ALUMINUM 2219 

SIM 

2054, 

2, 13, 

90.0, A1204 , 

3.589687 

$ ALUMINUM 2219 

SIM 

2055, 

2, 16, 

90.0, A1204 , 

4.517477 

$ ALUMINUM 2219 

SIM 

2056, 

2, 14, 

90.0, A1204 , 

5.374026 

$ ALUMINUM 2219 

SIM 

2057, 

2, 12, 

90.0, A1204 , 

6.145826 

$ ALUMINUM 2219 

SIM 

2058, 

2, 10, 

90.0, A1204, 

6.820707 

$ ALUMINUM 2219 

SIM 

2059, 

2, 8, 

90.0, A1204, 

7.388011 

$ ALUMINUM 2219 
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SIM 

2060, 

2, 6, 90.0, 

A1204 , 

7.838806 

$ ALUMINUM 2219 

SIM 

2061, 

2, 4, 90.0, 

A1204 , 

8.165982 

9 ALUMINUM 2219 

SIM 

2062, 

2, 2 , 90.0, 

A1204 , 

8.364372 

9 ALUMINUM 2219 

SIV 

2063, 

90.0, 

A1204 , 

8.430852 

S ALUMINUM 2219 

REM 

SURFACE 

NODES, OUTSIDE 

SURFACE 

, REGION 1, 

TANKWALL 

GEN 

3001, 

25, 1, 90.0, 


-1.000000 

$ SURFACE NODES 

REM DIFFUSION NODES, REGION 2, 

OUTSIDE LAYER 1 

REM 

REGION 

2, LAYER NO. 

1 



SIM 

4001, 

2, 24, 90.0, 

A1204 , 

0.837483 

$ ALUMINUM 2219 

SIM 

4002, 

2, 22, 90.0, 

A1204 , 

2.499235 

9 ALUMINUM 2219 

SIM 

4003, 

2, 20, 90.0, 

A1204 , 

4.121567 

S ALUMINUM 2219 

SIM 

4004, 

2, 18, 90.0, 

A1204 , 

5. 678905 

$ ALUMINUM 2219 

SIM 

4005, 

2, 16, 90.0, 

A1204 , 

7.146675 

$ ALUMINUM 2219 

SIM 

4006, 

2, 14, 90.0, 

A1204, 

8.501743 

$ ALUMINUM 2219 

SIM 

4007, 

2, 12, 90.0, 

A1204, 

9.722736 

$ ALUMINUM 2219 

SIM 

4008, 

2, 10, 90.0, 

A1204 , 

10.790398 

S ALUMINUM 2219 

SIM 

4009, 

2, 8, 90.0, 

A1204 , 

11.687881 

$ ALUMINUM 2219 

SIM 

4010, 

2, 6, 90.0, 

A1204 , 

12.401039 

$ ALUMINUM 2219 

SIM 

4011, 

2, 4, 90.0, 

A1204, 

12.918633 

9 ALUMINUM 2219 

SIM 

4012, 

2, 2, 90.0, 

A1204, 

13.232487 

S ALUMINUM 2219 

SIV 

4013, 

90.0, 

A1204, 

13.337662 

9 ALUMINUM 2219 

REM 

SURFACE 

NODES, OUTSIDE 

SURFACE 

, REGION 2, 

OUTSIDE LAYER 1 

GEN 

5001, ; 

25, 1, 90.0, 


-1.000000 

$ SURFACE NODES 

REM 

DIFFUSION NODES, REGION 3, OUTSIDE LAYER ; 

2 

REM 

REGION 

3, IAYER NO. 

1 



SIM 

6001, 

2, 24, 80.0, 

A1202, 

0.343986 

$ STAINLESS 347 

SIM 

6002, 

2, 22, 80.0, 

A1202, 

1.026528 

$ STAINLESS 347 

SIM 

6003, 

2, 20, 80.0, 

A1202, 

1.692882 

$ STAINLESS 347 

SIM 

6004, 

2, 18, 80.0, 

A1202, 

2.332538 

$ STAINLESS 347 

SIM 

6005, 

2, 16, 80.0, 

A1202 , 

2.935409 

S STAINLESS 347 

SIM 

6006, 

2, 14, 80.0, 

A1202, 

3.491985 

$ STAINLESS 347 

SIM 

6007, 

2, 12, 80.0, 

A1202, 

3. 993491 

$ STAINLESS 347 

SIM 

6008, 

2, 10, 80.0, 

A1202 , 

4.432021 

$ STAINLESS 347 

SIM 

6009, 

2, 8, 80.0, 

A1202, 

4.B00650 

$ STAINLESS 347 

SIM 

6010, 

2, 6, 80.0, 

A1202, 

5.093573 

$ STAINLESS 347 

SIM 

6011, 

2, 4, 80.0, 

A1202, 

5.306167 

9 STAINLESS 347 

SIM 

6012, 

2, 2, 80.0, 

A1202, 

5.435080 

9 STAINLESS 347 

SIV 

6013, 

80.0, 

A1202, 

5.478277 

$ STAINLESS 347 

REM 

REGION 

3, LAYER NO. 

2 



SIM 

6026, 

2, 24, 80.0, 

A1202, 

0.340702 

$ STAINLESS 347 

SIM 

6027, 

2, 22, 80.0, 

A1202, 

1.016728 

9 STAINLESS 347 

SIM 

6028, 

2, 20, 80.0, 

A1202, 

1.676720 

S STAINLESS 347 

SIM 

(•02 9, 

2, 18, 80.0, 

A1202, 

2.310270 

9 STAINLESS 347 

SIM 

*030, 

2, 16, 8U. 0, 

A1202, 

2.907384 

9 STAINLESS 347 

SIM 

6031, 

2, 14, 80.0, 

A1202, 

3.458648 

9 STAINLESS 347 

SIM 

6032, 

2 , 12, 80.0, 

A1202 , 

3. 955365 

9 STAINLESS 347 

SIM 

6033, 

2, 10, 80.0, 

A1202 , 

4.389710 

9 STAINLESS 347 

SIM 

6034, 

2, 8, B0 . 0, 

A1202 , 

4.754818 

9 STAINLESS 347 

SIM 

6035, 

2, 6, BO.O, 

A1202, 

5.044944 

9 STAINLESS 347 

SIM 

6036, 

2, 4, 80.0, 

A1202, 

5.255507 

9 STAINLESS 347 

SIM 

6037, 

2, 2, 80.0, 

A1202, 

5.383190 

9 STAINLESS 347 

SIV 

6038, 

80.0, 

A1202, 

5.425976 

9 STAINLESS 347 

REM 

SURFACE 

NODES, OUTSIDE 

SURFACE, 

REGION 3, 

OUTSIDE LAYER 2 

GEN 

7001, 

9, 1, 80.0, 


-1.000000 

9 SURFACE NODES 

REM 

HEAT EXCHANGER NO. 3, REPLACES 

NODES 7010 THRU 7012 

GEN 

7013, 13, 1, 80.0, 


-1.000000 

$ SURFACE NODES 


REM DIFFUSION NODES, REGION 4, INSIDE TANK AT WALL 

REM THIS MODEL; TANK IS 75.% FULL, A 1-G CASE, ULLAGE AT TOP & FLAT 
REM ULLAGE STARTS AT TANK WALL AT THETA POSITION NO. 16 


REM 

(COUNTING 

FROM SOUTH 

POLE) 




REM 

REGION 4, 

LAYER NO. 

1 




SIV 

8001, 

-420.0, 

A1101, 

3.695231 

9 

L-HYDROGEN 

SIV 

8025, 

-420.0, 

A1301, 

3.695231 

$ 

G-HYDROGEN 

SIV 

8002, 

-420.0, 

All 01 , 

11.027384 

$ 

L- HYDROGEN 

SIV 

8024, 

-420.0, 

A1301 , 

11.027384 

9 

G-HYDROGEN 

SIV 

8003, 

-420.0, 

A1101, 

18.185623 

9 

L-HYDROGEN 

SIV 

8023, 

-420.0, 

A1301 , 

18.185623 

9 

G-HYDROGEN 

SIV 

8004, 

-420.0, 

A1101, 

25.057068 

9 

L-HYDROGEN 

SIV 

8022, 

-420.0, 

A1301 , 

25.057068 

9 

G-HYDROGEN 

SIV 

8005, 

-420.0, 

All 01 , 

31.533310 

9 

L-HYDROGEN 
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SIV 

8021, 

-420.0, A1301, 

31.533310 

$ G-HYDROGEN 

SIV 

8006, 

-420.0, A1101 , 

37.512283 

$ L-HYDROGEN 

SIV 

8020, 

-420.0, A1301 , 

37.512283 

$ G-HYDROGEN 

SIV 

8007, 

-420.0, A1101, 

42.899673 

$ L-HYDROGEN 

SIV 

8019, 

-420.0, A1301, 

42.899673 

$ G-HYDROGEN 

SIV 

8008, 

-420.0, A1101 , 

47.610519 

$ L-HYDROGEN 

SIV 

8018, 

-420.0, A1301 , 

47.610519 

$ G-HYDROGEN 

SIV 

8009, 

-420.0, A1101 , 

51.570480 

$ L-HYDROGEN 

SIV 

8017, 

-420.0, A1301 , 

51.570480 

$ G-HYDROGEN 

SIV 

8010, 

-420.0, A1101, 

54.717178 

$ L-HYDROGEN 

SIV 

0016, 

-420.0, A1301 , 

54.717178 

$ G-HYDROGEN 

SIV 

8011, 

-420.0, All 01 , 

57.000931 

$ L-HYDROGEN 

SIV 

8015, 

-420.0, A1101 , 

57.000931 

$ L-HYDROGEN 

SIV 

8012, 

-420.0, All 01 , 

58.385773 

$ L-HYDROGEN 

SIV 

8014, 

-420.0, A1101, 

58.385773 

$ L-HYDROGEN 

SIV 

8013, 

-420.0, A1101, 

58.649808 

$ L-HYDROGEN 

REM 

REGION 4, 

LAYER NO. 2 



SIV 

8026, 

-420.0, A1101 , 

3.233808 

$ L-HYDROGEN 

SIV 

8050, 

-420.0, A1301 , 

3.233808 

$ G-HYDROGEN 

SIV 

8027, 

-420.0, A1101 , 

9.650397 

$ L-HYDROGEN 

SIV 

8049, 

-420.0, A1301 , 

9. 650397 

$ G-HYDROGEN 

SIV 

0028, 

-420.0, All 01 , 

15. 914793 

$ L-HYDROGEN 

SIV 

8048, 

-420.0, A1301, 

15. 914793 

$ G-HYDROGEN 

SIV 

8029, 

-420.0, All 01 , 

21. 928192 

$ L-HYDROGEN 

SIV 

8047, 

-420.0, A1301 , 

21.928192 

$ G-HYDROGEN 

SIV 

8030, 

-420.0, All 01 , 

27.595749 

$ L-HYDROGEN 

SIV 

8046, 

-420.0, A1301 , 

27.595749 

$ G-HYDROGEN 

SIV 

8031, 

-420.0, A1101, 

32.828140 

$ L-HYDROGEN 

SIV 

8045, 

-420.0, A1301 , 

32.828140 

$ G-HYDROGEN 

SIV 

8032, 

-420,0, All 01 , 

37.542770 

$ L-HYDROGEN 

SIV 

8044, 

-420.0, A1301 , 

37.542770 

$ G-HYDROGEN 

SIV 

8033, 

-420.0, A1101 , 

41.665390 

$ L-HYDROGEN 

SIV 

8043, 

-420.0, A1301, 

41.665390 

5 G-HYDROGEN 

SIV 

8034, 

-420.0, A1101, 

45.130859 

$ L-HYDROGEN 

SIV 

8042, 

-420.0, A1301 , 

45.130859 

$ G-HYDROGEN 

SIV 

8035, 

-420.0, A1101, 

47.864628 

$ L-HYDROGEN 

SIV 

6041, 

-420.0, A1301 , 

47.884628 

$ G-HYDROGEN 

SIV 

8036, 

-420.0, All 01 , 

49.883224 

$ L-HYDROGEN 

SIV 

8040, 

-420.0, All 01 , 

49.883224 

$ L-HYDROGEN 

SIV 

8037, 

-420.0, A1101 , 

51.095139 

$ L-HYDROGEN 

SIV 

8039, 

-420.0, A1101, 

51.095139 

$ L-HYDROGEN 

SIV 

8036, 

-420.0, A1101 , 

51.501236 

$ L-HYDROGEN 

REM 

REGION 4, 

LAYER NO. 3 



SIV 

8051, 

-420.0, A1101 , 

2.803146 

$ L-HYDROGEN 

SIV 

8075, 

-420.0, A1301, 

2.803146 

$ G-HYDROGEN 

SIV 

8052, 

-420.0, A1101 , 

8.365207 

$ L-HYDROGEN 

SIV 

8074, 

-420.0, A1301, 

0.365207 

$ G-HYDROGEN 

SIV 

8053, 

-420.0, A1101, 

13.795338 

$ L-HYDROGEN 

SIV 

8073, 

-420.0, A1301 , 

13.795338 

$ G-HYDROGEN 

SIV 

8054, 

-420.0, All 01 , 

19.007904 

$ L-HYDROGEN 

SIV 

6072, 

-420.0, A1301 , 

19.007904 

$ G-HYDROGEN 

SIV 

8055, 

-420.0, All 01 , 

23. 920685 

$ L-HYDROGEN 

SIV 

8071, 

-420.0, A1301 , 

23. 920685 

$ G-HYDROGEN 

SIV 

8056, 

-420.0, All 01 , 

28.456238 

$ L-HYDROGEN 

SIV 

8070, 

-420.0, A1301 , 

28.456238 

$ G-HYDROGEN 

SIV 

8057, 

-420.0, A1101, 

32.543030 

S L-HYDROGEN 

SIV 

8069, 

-420.0, A1301, 

32.543030 

$ G-HYDROGEN 

SIV 

8058, 

-420.0, A1101 , 

36.116608 

$ L-HYDROGEN 

SIV 

8068, 

-420.0, A1301, 

36.116608 

$ G-HYDROGEN 

SIV 

8059, 

-420.0, A1101 , 

39.120575 

$ L-HYDROGEN 

SIV 

6067, 

-420.0, A1301 , 

39.120575 

$ G-HYDROGEN 

SIV 

8060, 

-420.0, All 01 , 

41 . 507599 

$ L-HYDROGEN 

SIV 

8066, 

-420.0, A1301 , 

41.507599 

5 G-HYDROGEN 

SIV 

8061, 

-420.0, All 01 , 

43.240051 

$ L-HYDROGEN 

SIV 

i065. 

-420.0, All 01 , 

43.240051 

$ L-HYDROGEN 

SIV 

8062, 

-420.0, All 01 , 

44 . 290558 

$ L-HYDROGEN 

SIV 

8064, 

-420.0, A1101, 

44. 290558 

$ L-HYDROGEN 

SIV 

8063, 

-420.0, A1101, 

44 . 642563 

$ L-HYDROGEN 

REM 

REGION 4, 

LAYER NO. 4 



SIV 

8076, 

-420.0, A1101, 

2.403246 

$ L-HYDROGEN 
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SIV 

8100, 

-420.0, A1301 , 

2.403246 

$ G-HYDROGEN 

SIV 

8077, 

-420.0, A1101 , 

7.171817 

$ L- HYDROGEN 

SIV 

8099, 

-420.0, A1301 , 

7.171017 

9 G-HYDROGEN 

SIV 

8070, 

-420.0# AUDI, 

11.827278 

9 L-HYDROGEN 

SIV 

8098, 

-420.0, A1301 , 

11.827278 

$ G-HYDROGEN 

SIV 

8079, 

-420.0, A1101 , 

16.296219 

$ L-HYDROGEN 

SIV 

8097, 

-420.0, A1301 , 

16.296219 

$ G-HYDROGEN 

SIV 

8080, 

-420.0, A1101, 

20.508133 

$ L-HYDROGEN 

SIV 

8096, 

-420.0, A1301 , 

20.508133 

9 G-HYDROGEN 

SIV 

8081 , 

-420.0, All 01 , 

24.396637 

9 L-HYDROGEN 

SIV 

8095, 

-420.0, A1301 , 

24.396637 

9 G-HYDROGEN 

SIV 

8082, 

-420.0, A1101 , 

27. 900406 

9 L-HYDROGEN 

SIV 

8094, 

-420.0, A1301 , 

27.900406 

9 G-HYDROGEN 

SIV 

8063, 

-420.0, All 01 , 

30.964172 

$ L-HYDROGEN 

SIV 

8093, 

-420.0, A1301 , 

30.964172 

$ G-HYDROGEN 

SIV 

8084, 

-420.0, A1101 , 

33.539597 

9 L-HYDROGEN 

SIV 

8092, 

-420.0, A1301, 

33.539597 

9 G-HYDROGEN 

SIV 

8085, 

-420.0, A1101, 

35.586060 

9 L-HYDROGEN 

SIV 

8091, 

-420.0, A11Q1, 

35.586060 

9 L-HYDROGEN 

SIV 

8086, 

-420.0, A1101, 

37.071350 

9 L-HYDROGEN 

SIV 

8090, 

-420.0, All 01 , 

37.071350 

$ L-HYDROGEN 

SIV 

8087, 

-420.0, A1101, 

37.972000 

9 L-HYDROGEN 

SIV 

6089, 

-420.0, A1101 , 

37.972000 

9 L-HYDROGEN 

SIV 

8088, 

-420.0, All 01 , 

38.273804 

$ L-HYDROGEN 

REM 

SURFACE NODES 

, OUTSIDE SURFACE, 

REGION 5, 

INSIDE TANK AT CENTER 

GEN 

9001, 25, 1 

, -420.0, 

-1.000000 

$ SURFACE NODES 

REM 

DIFFUSION NODES, REGION 5, INSIDE TANK AT 

CENTER 

REM 

REGION 5, 

liAYER NO. 1 



SIV 

10001, 

-420.0, A1101, 

1. 655709 

9 L-HYDROGEN 

SIV 

10025, 

-420.0, A1301, 

1.655709 

9 G-HYDROGEN 

SIV 

10002, 

-420.0, A1101, 

4.941003 

9 L-HYDROGEN 

SIV 

10024, 

-420.0, A1301 , 

4. 941003 

9 G-HYDROGEN 

SIV 

10003, 

-420.0, A1101 , 

8.148369 

9 L-HYDROGEN 

SIV 

10023, 

-420.0, A1301 , 

0.148369 

$ G-HYDROGEN 

SIV 

10004, 

-420.0, A1101, 

11.227234 

$ L-HYDROGEN 

SIV 

10022, 

-420.0, A1301 , 

11.227234 

$ G-HYDROGEN 

SIV 

10005, 

-420.0, A1101, 

14.129028 

$ L-HYDROGEN 

SIV 

10021, 

-420.0, A1301, 

14.129028 

$ G-HYDROGEN 

SIV 

10006, 

-420.0, A11Q1 , 

16.807999 

$ L-HYDROGEN 

SIV 

10020, 

-420.0, A1301 , 

16.607999 

$ G-HYDROGEN 

SIV 

10007, 

-420.0, A1101, 

19.221909 

$ L-HYDROGEN 

SIV 

10019, 

-420.0, A1301 , 

19.221909 

9 G-HYDROGEN 

SIV 

10008, 

-420.0, A1101, 

21.332672 

9 L-HYDROGEN 

SIV 

10018, 

-420.0, A1301 , 

21.332672 

5 G-HYDROGEN 

SIV 

10C09, 

-420.0, A1101 , 

23,107010 

$ L-HYDROGEN 

SIV 

10017, 

-420.0, A1301 , 

23.107010 

$ G-HYDROGEN 

SIV 

10010, 

-420.0, All 01 , 

24.516937 

$ L-HYDROGEN 

SIV 

10016, 

-420.0, All 01 , 

24.516937 

9 L-HYDROGEN 

SIV 

10011, 

-420.0, All 01 , 

25.540222 

$ L-HYDROGEN 

SIV 

10015, 

-420.0, All 01 , 

25.540222 

$ L-HYDROGEN 

SIV 

10012, 

-420.0, A1101, 

26.160721 

$ L-HYDROGEN 

SIV 

10014, 

-420.0, All 01 , 

26.160721 

$ L-HYDROGEN 

SIV 

10013, 

-420.0, A1101 , 

26.368637 

$ L-HYDROGEN 

REM 

REGION 5, 

LAYER NO. 2 



SIV 

10026, 

-420.0, A1101 , 

1.435211 

$ L-HYDROGEN 

SIV 

10050, 

-420.0, A1301, 

1 . 435211 

9 G-HYDROGEN 

SIV 

10027, 

-420.0, All 01 , 

4 . 282986 

$ L-HYDROGEN 

SIV 

10049, 

-420.0, A1301 , 

4.282986 

$ G-HYDROGEN 

SIV 

10028, 

-420.0, A1101, 

7.063215 

$ L-HYDROGEN 

SIV 

10048, 

-420.0, A1301 , 

7.063215 

$ G-HYDROGEN 

SIV 

10029, 

-420.0, All 01 , 

9.732048 

9 L-HYDROGEN 

SIV 

10047, 

-420.0, A1301 , 

9.732048 

$ G-HYDROGEN 

SIV 

10030, 

-420.0, All 01 , 

12.247398 

9 L-HYDROGEN 

SIV 

10046, 

-420.0, A1301 , 

12.247398 

$ G-HYDROGEN 

SIV 

10031, 

-420.0, All 01 , 

14.569603 

$ L-HYDROGEN 

SIV 

10045, 

-420.0, A1301, 

14.569603 

$ G-HYDROGEN 

SIV 

10032, 

-420.0, A1101, 

16.662033 

$ L-HYDROGEN 

SIV 

10044, 

-420.0, A1301, 

16.662033 

$ G-HYDROGEN 

SIV 

10033, 

-420.0, A1101, 

18.491699 

$ L-HYDROGEN 

SIV 

10043, 

-420.0, A1301, 

18.491699 

$ G-HYDROGEN 
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SIV 

10034, 

-.420.0, A1101, 

20.029724 $ L-HYDROGEN 

SIV 

10042, 

-420.0, A1301 , 

20.029724 $ G-HYDROGEN 

SIV 

10035, 

-420.0, All 01 , 

21.251877 $ L-HYDROGEN 

SIV 

10041, 

-420.0, AUDI, 

21.251877 $ L-HYDROGEN 

SIV 

10036, 

-420.0, AllOl, 

22.138885 $ L-HYDROGEN 

SIV 

10040, 

-420.0, AllOl, 

22.138885 $ L-HYDROGEN 

SIV 

10037, 

-420.0, AllOl, 

22.676758 $ L-HYDROGEN 

SIV 

10039, 

-420.0, AllOl, 

22.676758 $ L-HYDROGEN 

SIV 

10038, 

-420.0, AllOl, 

22.856995 $ L-HYDROGEN 

REM 

SIV 

REGION 5, 
10051, 

LAYER NO. 3 

-420.0, AllOl, 

1.230462 $ L-HYDROGEN 

SIV 

10075, 

-420.0, A1301, 

1.230462 $ G-HYDROGEN 

SIV 

10052, 

-420.0, AllOl, 

3.671969 $ L-HYDROGEN 

SIV 

10074, 

-420.0, A1301 , 

3.671969 $ G-HYDROGEN 

SIV 

10053, 

-420.0, AllOl, 

6.055569 $ L-HYDROGEN 

SIV 

10073, 

-420.0, A1301 , 

6.055569 $ G-HYDROGEN 

SIV 

10054, 

-420.0, AllOl, 

B. 343666 $ L-HYDROGEN 

SIV 

10072, 

-420.0, A1301 , 

8,343666 $ G-HYDROGEN 

SIV 

10055, 

-420.0, AllOl, 

10.500168 $ L-HYDROGEN 

SIV 

10071, 

-420.0, A1301 , 

10.500168 $ G-HYDROGEN 

SIV 

10056, 

-420.0, AllOl, 

12.491009 $ L-HYDROGEN 

SIV 

10070, 

-420.0, A1301, 

12.491089 $ G-HYDROGEN 

SIV 

10057, 

-420.0, AllOl, 

14.285011 $ L-HYDROGEN 

SIV 

10069, 

-420.0, A1301, 

14.285011 $ G-HYDROGEN 

SIV 

10058, 

-420.0, AllOl, 

15.853661 $ L-HYDROGEN 

SIV 

10068, 

-420.0, A1301 , 

15.853661 $ G-HYDROGEN 

SIV 

10059, 

-420.0, AllOl, 

17.172256 $ L-HYDROGEN 

SIV 

10067, 

-420.0, AllOl, 

17.172256 S L-HYDROGEN 

SIV 

10060, 

-420.0, AllOl, 

18.220062 $ L-HYDROGEN 

SIV 

10066, 

-420.0, AllOl, 

18.220062 $ L-HYDROGEN 

SIV 

10061, 

-420.0, AllOl, 

18.980530 $ L-HYDROGEN 

SIV 

10065, 

-420.0, AllOl, 

18.980530 $ L-HYDROGEN 

SIV 

10062, 

-420.0, AllOl, 

19.441666 $ L-HYDROGEN 

SIV 

10064, 

-420.0, AllOl, 

19.441666 $ L-HYDROGEN 

SIV 

10063, 

-420.0, AllOl, 

19.596176 S L-HYDROGEN 

REM 

SIV 

REGION 5, 
10076, 

LAYER NO. 4 

-420.0, AllOl, 

1.041463 $ L-HYDROGEN 

SIV 

10100, 

-420.0, A13Q1, 

1.041463 $ G-HYDROGEN 

SIV 

10077, 

-420.0, AllOl, 

3.107956 $ L-HYDROGEN 

SIV 

10099, 

-420.0, A1301 , 

3.107956 $ G-HYDROGEN 

SIV 

10078, 

-420.0, AllOl, 

5.125433 $ L-HYDROGEN 

SIV 

10098, 

-420.0, A1301, 

5.125433 $ G-HYDROGEN 

SIV 

10079, 

-420.0, AllOl, 

7.062079 $ L-HYDROGEN 

SIV 

10097, 

-420.0, A1301, 

7.062079 S G-HYDROGEN 

SIV 

10080, 

-420.0, AllOl, 

8.887344 $ L-HYDROGEN 

SIV 

10096, 

-420.0, A1301, 

8.887344 $ G-HYDROGEN 

SIV 

10081, 

-420.0, AllOl, 

10.572456 $ L-HYDROGEN 

SIV 

10095, 

-420.0, A1301 , 

10.572456 S G-HYDROGEN 

SIV 

10082, 

-420.0, AllOl, 

12.090836 $ L-HYDROGEN 

SIV 

10094, 

-420.0, A1301, 

12.090836 S G-HYDROGEN 

SIV 

10083, 

-420.0, AllOl, 

13.418541 $ L-HYDROGEN 

SIV 

10093, 

-420.0, A1301 , 

13.418541 $ G-HYDROGEN 

SIV 

10084, 

-420.0, AllOl, 

14.534615 $ L-HYDROGEN 

SIV 

10092, 

-420.0, AllOl, 

14.534615 $ L-HYDROGEN 

SIV 

10085, 

-420.0, AllOl, 

15.421478 $ L-HYDROGEN 

SIV 

10091, 

-420.0, AllOl, 

15.421478 $ L-HYDROGEN 

SIV 

10086, 

-420.0, AllOl, 

16.065125 $ L-HYDROGEN 

SIV 

10090, 

-420.0, AllOl, 

16.065125 $ L-HYDROGEN 

SIV 

10087, 

-420.0, AllOl, 

16.455414 $ L-HYDROGEN 

SIV 

10089, 

-420.0, AllOl, 

16.455414 $ L-HYDROGEN 

SIV 

10088, 

-420.0, AllOl, 

16.586212 $ L-HYDROGEN 

REM 

SIV 

REGION 5, 
10101, 

LAYER NO. 5 

-420.0, AllOl, 

0.868214 $ L-HYDROGEN 

SIV 

10125, 

-420.0, A13 01 , 

0.868214 $ G-HYDROGEN 

SIV 

10102, 

-420.0, AllOl, 

2.590941 $ L-HYDROGEN 

SIV 

10124, 

-420.0, A1301, 

2.590941 $ G-HYDROGEN 

SIV 

10103, 

-420.0, AllOl, 

4.272809 $ L-HYDROGEN 

SIV 

10123, 

-420.0, A1301 , 

4.272809 $ G-HYDROGEN 

SIV 

10104, 

-420.0, AllOl, 

5.887291 $ L-HYDROGEN 

SIV 

10122, 

-420.0, A1301 , 

5.887291 $ G-HYDROGEN 
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SIV 

10105, 


-420.0, 

A1101, 

7.408922 

$ 

L-HYDROGEN 

SIV 

10121, 


-420.0, 

A1301 , 

7.408922 

$ 

C-HYDROGEN 

SIV 

10106, 


-420.0, 

A1101 , 

8.813713 

$ 

L-HYDROGEN 

SIV 

10120, 


-420.0, 

A1301, 

8.813713 

$ 

G-HYDROGEN 

SIV 

10107, 


-420.0, 

All 01 , 

10.079506 

$ 

L-HYDROGEN 

SIV 

10119, 


-420.0, 

A1301 , 

10.079506 

$ 

G-HYDROGEN 

SIV 

10108, 


-420.0, 

A11Q1 , 

11.186348 

$ 

L-HYDROGEN 

SIV 

10118, 


-420.0, 

A1101 , 

11.186348 

$ 

L-HYDROGEN 

SIV 

10109, 


-420.0, 

All 01 , 

12.116753 

$ 

L-HYDROGEN 

SIV 

10117, 


-420.0, 

All 01 , 

12.116753 

$ 

L-HYDROGEN 

SIV 

10110, 


-420.0, 

All 01 , 

12.856087 

$ 

L-HYDROGEN 

SIV 

10116, 


-420.0, 

All 01 , 

12.856087 

$ 

L-HYDROGEN 

SIV 

10111, 


-420.0, 

AllOl, 

13.392670 

$ 

L-HYDROGEN 

SIV 

10115, 


-420.0, 

A1101, 

13.392670 

$ 

L-HYDROGEN 

SIV 

10112, 


-420.0, 

A1101, 

13.718040 

$ 

L-HYDROGEN 

SIV 

10114, 


-420.0, 

A1101, 

13.718040 

$ 

L-HYDROGEN 

SIV 

10113, 


-420.0, 

A1101, 

13.827072 

S 

L-HYDROGEN 

REM 

REGION 

5. 

LAYER NO. 

6 




SIV 

10126, 


-420.0, 

All 01 , 

0.710715 

$ 

L-HYDROGEN 

SIV 

10150, 


-420.0, 

A1301, 

0.710715 

$ 

G-HYDROGEN 

SIV 

10127, 


-420.0, 

All 01 , 

2.120929 

$ 

L-HYDROGEN 

SIV 

10149, 


-420.0, 

A1301, 

2.120929 

$ 

G-HYDROGEN 

SIV 

10128, 


-420.0, 

A1101, 

3.497696 

$ 

L-HYDROGEN 

SIV 

10148, 


-420.0, 

A1301 , 

3.497696 

$ 

G-HYDROGEN 

SIV 

10129, 


-420.0, 

A1101, 

4.819302 

$ 

L-HYDROGEN 

SIV 

10147, 


-420.0, 

A1301, 

4.819302 

$ 

G-HYDROGEN 

SIV 

10130, 


-420.0, 

A1101, 

6.064899 

$ 

L-HYDROGEN 

SIV 

10146, 


-420.0, 

A1301, 

6.064899 

$ 

G-HYDROGEN 

SIV 

10131, 


-420.0, 

A11Q1, 

7.214853 

$ 

L-HYDROGEN 

SIV 

10145, 


-420.0, 

A1301, 

7.214853 

$ 

G-HYDROGEN 

SIV 

10132, 


-420.0, 

All 01 , 

8.251022 

$ 

L-HYDROGEN 

SIV 

10144, 


-420.0, 

A1301 , 

8.251022 

$ 

G-HYDROGEN 

SIV 

10133, 


-420.0, 

A1101, 

9.157074 

$ 

L-HYDROGEN 

SIV 

10143, 


-420.0, 

A1101, 

9.157074 

$ 

L-HYDROGEN 

SIV 

10134, 


-420.0, 

A1101, 

9. 918701 

$ 

L-HYDROGEN 

SIV 

10142, 


-420.0, 

A1101, 

9.918701 

$ 

L-HYDROGEN 

SIV 

10135, 


-420.0, 

All 01 , 

10.523918 

$ 

L-HYDROGEN 

SIV 

10141, 


-420.0, 

All 01 , 

10.523918 

$ 

L-HYDROGEN 

SIV 

10136, 


-420.0, 

A1101 , 

10.963158 

$ 

L-HYDROGEN 

SIV 

10140, 


-420.0, 

A1101, 

10.963158 

$ 

L-HYDROGEN 

SIV 

10137, 


-420.0, 

All 01 , 

11.229507 

$ 

L-HYDROGEN 

SIV 

10139, 


-420.0, 

All 01 , 

11.229507 

$ 

L-HYDROGEN 

SIV 

10138, 


-420.0, 

A1101, 

11.318764 

$ 

L-HYDROGEN 

REM 

kEGION 

5, 

LAYER NO. 

7 




SIV 

10151, 


-420.0, 

A1101, 

0.568965 

$ 

L-HYDROGEN 

SIV 

10175, 


-420.0, 

A1301 , 

0.568965 

s 

G-HYDROGEN 

SIV 

10152, 


-420.0, 

A1101, 

1.697919 

$ 

L-HYDROGEN 

SIV 

10174, 


-420.0, 

A1301, 

1.697919 

$ 

G-HYDROGEN 

SIV 

10153, 


-420.0, 

All 01 , 

2.800095 

s 

L-HYDROGEN 

SIV 

10173, 


-420.0, 

A1301 , 

2.800095 

s 

G-HYDROGEN 

SIV 

10154, 


-420.0, 

A1101, 

3.858111 

$ 

L-HYDROGEN 

SIV 

1 J 172, 


-420.0, 

A1301 , 

3.858111 

$ 

G-HYDROGEN 

SIV 

1 J155, 


-420.0, 

A11Q1 , 

4.855280 

$ 

L-HYDROGEN 

SIV 

10171, 


-420.0, 

A1301, 

4.855280 

s 

G-HYDROGEN 

SIV 

10156, 


-420.0, 

A1101, 

5.775880 

s 

L-HYDROGEN 

SIV 

10170, 


-420.0, 

A1301 , 

5.775880 

$ 

G-HYDROGEN 

SIV 

10157, 


-420.0, 

AllOl , 

6. 605392 

$ 

L-HYDROGEN 

SIV 

10169, 


-420.0, 

A1101 , 

6.605392 

s 

L-HYDROGEN 

SIV 

10158, 


-420.0, 

AllOl, 

7.330735 

s 

L-HYDROGEN 

SIV 

10168, 


-420.0, 

AllOl, 

7.330735 

$ 

L-HYDROGEN 

SIV 

10159, 


-420.0, 

AllOl, 

7. 940461 

s 

L-HYDROGEN 

SIV 

10167, 


-420.0, 

AllOl, 

7.940461 

$ 

L-HYDROGEN 

SIV 

10160, 


-420.0, 

AllOl, 

8.424965 

$ 

L-HYDROGEN 

SIV 

10166, 


-420.0, 

AllOl, 

8.424965 

$ 

L-HYDROGEN 

SIV 

10161, 


-420.0, 

AllOl, 

8.776604 

$ 

L-HYDROGEN 

SIV 

10165, 


-420.0, 

AllOl, 

8.776604 

s 

L-HYDROGEN 

SIV 

10162, 


-420.0, 

AllOl, 

8. 989830 

$ 

L-HYDROGEN 

SIV 

10164, 


-420.0, 

AllOl, 

8 . 989830 

$ 

L-HYDROGEN 

SIV 

10163, 


-420,0, 

AllOl, 

9.061279 

s 

L-HYDROGEN 

REM 

REGION 

5 , 

LAYER NO. 

8 
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SIV 10176, 
S IV 10200, 
SIV 10177, 
SIV 10199, 
SIV 10176, 
SIV 10198, 
SIV 10179, 
SIV 10197, 
SIV 10180, 
SIV 10196, 
SIV 10181, 
SIV 10195, 
SIV 10182, 
SIV 10194, 
SIV 10183, 
SIV 10193, 
SIV 10184, 
SIV 10192, 
SIV 10185, 


SIV 

10191, 

SIV 

10186, 

SIV 

10190, 

SIV 

10187, 

SIV 

10189, 

SIV 

10188, 

REM 

REGION 

SIV 

10201, 

SIV 

10225, 

SIV 

10202, 

SIV 

10224, 

SIV 

10203, 

SIV 

10223, 

SIV 

10204, 

SIV 

10222, 

SIV 

10205, 

SIV 

10221, 

SIV 

10206, 

SIV 

10220, 

SIV 

10207, 

SIV 

10219, 

SIV 

10208, 

SIV 

10218, 

SIV 

10209, 

SIV 

10217, 

SIV 

10210, 

SIV 

10216, 

SIV 

10211, 

SIV 

10215, 

SIV 

10212, 

SIV 

10214, 

SIV 

10213, 


REM REGION 5, 


SIV 

10226, 

SIV 

10250, 

SIV 

10227, 

SIV 

10249, 

SIV 

10228, 

SIV 

10248, 

SIV 

10229, 

SIV 

10247, 

SIV 

10230, 

SIV 

10246, 

SIV 

10231, 

SIV 

10245, 

SIV 

10232, 

SIV 

10244, 

SIV 

10233, 

SIV 

10 24 3, 

SIV 

10234, 

SIV 

10242 


-420.0, A1101 , 
-420.0, A1301 , 
-420.0, A1101, 
-420.0, A1301, 
-420.0, A1101 , 
-420.0, A1301, 
-420.0, A1101 , 
-420.0, A1301, 
-420.0, A1101, 
-420.0, A1101 , 
-420.0, All 01 , 
-420.0, A1101, 
-420.0, A1101 , 
-420.0, A1101 , 
-420.0, A1101 , 
-420.0, A1101, 
-420.0, A1101, 
-420.0, A1101, 
-420.0, All 01 , 
-420.0, All 01 , 
-420.0, A1101, 
-420.0, A1101, 
-420.0, A1101 , 
-420.0, All 01 , 
-420.0, A1101, 
LAYER NO. 9 
-420.0, A1101, 
-420.0, A1301, 
-420.0, A1101, 
-420.0, All 01 , 
-420.0, Al 101, 
-420.0, A1101, 
-420.0, A1101, 
-420.0, All 01 , 
-420.0, A1101 , 
-420.0, A1101, 
-420.0, A1101, 
-420.0, All 01 , 
-420.0, All 01 , 
-420.0, A1101, 
-420.0, A1101, 
-420.0, A1101, 
-420.0, A1101 , 
-420.0, A1101, 
-420.0, A1101, 
-420.0, A1101 , 
-420.0, A1101 , 
-420.0, Al 1 01 , 
-420.0, A1101 , 
-420.0, All 01 , 
-420.0, A1101 , 
LAYER NO. 10 
-420.0, A1301 , 
-420.0, A1301 , 
-420.0, A1301, 
-420.0, Al 3 01 , 
-420.0, A1301 , 
-420.0, A1301, 
-420.0, A1301, 
-420.0, A1301, 
-420.0, A1301, 
-420.0, A1301 , 
-420.0, A1301, 
-420.0, A1301, 
-420.0, A1301, 
-420.0, A1301 , 
-420.0, A13Q1, 
-420.0, A1301, 
-420.0, A1301, 
-420.0, A1301, 


0.442967 $ L-HYDROGEN 
0.442967 $ G-HYDROGEN 
1.321908 $ L-HYDROGEN 
1.321908 $ G-HYDROGEN 
2.180004 $ L-HYDROGEN 
2.180004 $ G-HYDROGEN 
3.003719 $ L-HYDROGEN 
3.003719 $ G-HYDROGEN 
3.780062 $ L-HYDROGEN 
3.780062 $ L-HYDROGEN 
4.496792 $ L-HYDROGEN 
4.496792 $ L-HYDROGEN 
5.142606 $ L-HYDROGEN 
5.142606 $ L-HYDROGEN 
5.707319 $ L-HYDROGEN 
5.707319 $ L-HYDROGEN 
6.102019 $ L-HYDROGEN 
6.182019 $ L-HYDROGEN 
6.559229 $ L-HYDROGEN 
6.559229 $ L-HYDROGEN 
6.832996 $ L-HYDROGEN 
6.832996 $ L-HYDROGEN 
6.999003 $ L-HYDROGEN 
6.999003 $ L-HYDROGEN 
7.054631 $ L-HYDROGEN 

0.332717 $ L-HYDROGEN 
0.332717 $ G- HYDROGEN 
0.992901 $ L-HYDROGEN 
0.992901 $ L-HYDROGEN 
1.637425 $ L-HYDROGEN 
1.637425 $ L-HYDROGEN 
2.256126 $ L-HYDROGEN 
2.256126 $ L-HYDROGEN 
2.839247 $ L-HYDROGEN 
2.839247 $ L-HYDROGEN 
3.377590 $ L-HYDROGEN 
3.377590 $ L-HYDROGEN 
3.862667 $ L-HYDROGEN 
3.662667 $ L-HYDROGEN 
4 . 286831 $ L-HYDROGEN 
4.286831 $ L-HYDROGEN 
4.643383 $ L-HYDROGEN 
4.643383 $ L-HYDROGEN 
4.926710 $ L-HYDROGEN 
4.926710 5 L-HYDROGEN 
5.132339 $ L-HYDROGEN 
5.132339 $ L-HYDROGEN 
5.257029 $ L-HYDROGEN 
5.257029 $ L-HYDROGEN 
5.298812 $ L-HYDROGEN 

0.238218 $ G-HYDROGEN 
0.238218 $ G-HYDROGEN 
0.710693 $ G-HYDROGEN 
0.710893 S G-HYDROGEN 
1.172358 $ G-HYDROGEN 
1.172358 $ G-HYDROGEN 
1.615333 9 G-HYDROGEN 
1.615333 $ G-HYDROGEN 
2.032833 $ G-HYDROGEN 
2.032833 $ G-HYDROGEN 
2.418274 $ G-HYDROGEN 
2.418274 9 G-HYDROGEN 
2.765579 $ G-HYDROGEN 
2.765579 $ G-HYDROGEN 
3.069269 $ G-HYDROGEN 
3.069269 $ G-HYDROGEN 
3.324553 S G- HYDROGEN 
3.324553 $ G-HYDROGEN 
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SIV 

10235, 

-420.0, A1301, 

3.527408 S G-HYDROGEN 

SIV 

10241, 

-420.0, A1301, 

3.527408 $ G-HYDROGEN 

SIV 

10236, 

-420.0, A1301 , 

3.674633 $ G-HYDROGEN 

SIV 

10240, 

-420,0, *1301, 

3.674633 $ G-HYDROGEN 

SIV 

10237, 

-420. 0, A1301, 

3.763907 $ G-HYDROGEN 

SIV 

10239, 

-420.0, A1301, 

3.763907 $ G-HYDROGEN 

SIV 

10238, 

-420.0, A1301 , 

3.793823 $ G-HYDROGEN 

REM 

REGION 5, 

LAYER NO. 11 


SIV 

10251, 

-420,0, A1301 , 

0.159468 $ G-HYDROGEN 

SIV 

10275, 

-420,0, A1301 , 

0.159468 $ G-HYDROGEN 

SIV 

10252, 

-420.0, A1301, 

0.475887 $ G-HYDROGEN 

SIV 

10274, 

-420.0, A1301, 

0.475887 $ G-HYDROGEN 

SIV 

10253, 

-420.0, A1301, 

0.784801 $ G-HYDROGEN 

SIV 

10273, 

-420.0, A1301 , 

0.784801 $ G-HYDROGEN 

SIV 

10254, 

-420.0, A1301 , 

1.001338 $ G-HYDROGEN 

SIV 

10272, 

-420.0, A1301 , 

1.001338 9 G-HYDROGEN 

SIV 

10255, 

-420.0, A1301 , 

1.360822 $ G-HYDROGEN 

SIV 

10271, 

-420.0, A1301 , 

1.360822 $ G-HYDROGEN 

SIV 

10256, 

-420.0, A1301, 

1.618845 $ G-HYDROGEN 

SIV 

10270, 

-420.0, A1301 , 

1.618045 $ G-HYDROGEN 

SIV 

10257, 

-420.0, A1301 , 

1.851336 $ G-HYDROGEN 

SIV 

10269, 

-420.0, A1301 , 

1.851336 $ G-HYDROGEN 

SIV 

10258, 

-420.0, A1301, 

2.054634 $ G-HYDROGEN 

SIV 

10268, 

-420.0, A1301 , 

2.054634 $ G-HYDROGEN 

SIV 

10259, 

-420.0, A1301, 

2.225527 $ G-HYDROGEN 

SIV 

10267, 

-420.0, A1301 , 

2.225527 $ G-HYDROGEN 

SIV 

10260, 

-420.0, A1301 , 

2.361322 $ G-HYDROGEN 

SIV 

10266, 

-420.0, A1301 , 

2.361322 $ G-HYDROGEN 

SIV 

10261, 

-420.0, A1301 , 

2.459879 $ G-HYDROGEN 

SIV 

10265, 

-420.0, A1301, 

2.459879 $ G-HYDROGEN 

SIV 

10262, 

-420.0, A1301, 

2.519641 $ G-HYDROGEN 

SIV 

10264, 

-420.0, A1301 , 

2.519641 $ G-HYDROGEN 

SIV 

10263, 

-420.0, A1301 , 

2.539666 $ G-HYDROGEN 

REM 

REGION 5, 

LAYER NO. 12 


SIV 

10276, 

-420.0, A1301 , 

0.096468 $ G-HYDROGEN 

SIV 

10300, 

-420.0, A1301 , 

0.096468 $ G-HYDROGEN 

SIV 

10277, 

-420.0, A1301 , 

0.287803 $ G-HYDROGEN 

SIV 

10299, 

-420.0, A1301 , 

0.287883 $ G-HYDROGEN 

SIV 

10278, 

-420.0, A1301, 

0.474757 $ G-HYDROGEN 

SIV 

10298, 

-420.0, A1301 , 

0.474757 $ G-HYDROGEN 

SIV 

10279, 

-420.0, A1301 , 

0.654143 S G-HYDROGEN 

SIV 

10297, 

-420.0, A1301 , 

0.654143 $ G-HYDROGEN 

SIV 

10280, 

-420.0, A1301 , 

0.823214 $ G-HYDROGEN 

SIV 

10296, 

-420.0, A1301, 

0.823214 $ G-HYDROGEN 

SIV 

10281, 

-420.0, A1301 , 

0.979301 $ G-HYDROGEN 

SIV 

10295, 

-420.0, A1301 , 

0.979301 S G-HYDROGEN 

SIV 

10282, 

-420.0, A1301 , 

1.119945 $ G-HYDROGEN 

SIV 

10294, 

-420.0, A1301 , 

1.119945 S G-HYDROGEN 

SIV 

10283, 

-420.0, A1301 , 

1.242927 $ G-HYDROGEN 

SIV 

10293, 

-420.0, A1301 , 

1 . 242927 $ G-HYDROGEN 

SIV 

10284, 

-420.0, A1301, 

1.346305 $ G-HYDROGEN 

SIV 

10292, 

-420.0, A1301, 

1.346305 $ G-HYDROGEN 

SIV 

10285, 

-420.0, A1301 , 

1.428453 $ G-HYDROGEN 

SIV 

10291, 

-420.0, A1301 , 

1.428453 $ G-HYDROGEN 

SIV 

10286, 

-420.0, A1301, 

1.488074 $ G-HYDROGEN 

SIV 

10290, 

-420.0, A1301 , 

1.488074 $ G-HYDROGEN 

SIV 

10287, 

-420.0, A1301 , 

1.524227 $ G-HYDROGEN 

SIV 

10289, 

-420.0, A1301 , 

1.524227 $ G-HYDROGEN 

SIV 

10288, 

-420.0, A1301 , 

1.536342 $ G-HYDROGEN 

REM 

REGION 5, 

LAYER NO. 13 


SIV 

10301, 

-420.0, A1301 , 

0.049218 $ G-HYDROGEN 

SIV 

10325, 

-420.0, A1301 , 

0.049218 $ G-HYDROGEN 

SIV 

10302, 

-420.0, A1301 , 

0.146879 9 G-HYDROGEN 

SIV 

10324, 

-420.0, A1301 , 

0.146879 $ G-HYDROGEN 

SIV 

10303, 

-420.0, A1301 , 

0.242223 $ G-HYDROGEN 

SIV 

30323, 

-420.0, A1301 , 

0.242223 $ G-HYDROGEN 

SIV 

10304, 

-420.0, A1301 , 

0.333747 9 G-HYDROGEN 

SIV 

10322, 

-420.0, A1301, 

0.333747 9 G-HYDROGEN 

SIV 

10305, 

-420.0, A1301 , 

0.420007 9 G-HYDROGEN 

SIV 

10321, 

-420.0, A1301 , 

0.420007 9 G-HYDROGEN 
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S IV 

10306, 

-420.0, A1301 , 

0.499644 

$ 

G-HYDROGEN 


SIV 

10320, 

-420.0, A1301, 

0.499644 

$ 

G-HYDROGEN 


SIV 

10307, 

-420.0, A1301 , 

0.571401 

$ 

G-HYDROGEN 


SIV 

10319, 

-420.0, A1301, 

0.571401 

$ 

G-HYDROGEN 


SIV 

10308, 

-420.0, A1301 , 

0.634147 

$ 

G-HYDROGEN 


SIV 

10318, 

-420.0, A1301 , 

0.634147 

$ 

G-HYDROGEN 


SIV 

10309, 

-420.0, A1301 , 

0.686891 

S 

G-HYDROGEN 


SIV 

10317, 

-420.0, A1301 , 

0. 686891 

$ 

G-HYDROGEN 


SIV 

10310, 

-420.0, A1301, 

0.728803 

$ 

G-HYDROGEN 


SIV 

10316, 

-420.0, A1301 , 

0.728803 

$ 

G-HYDROGEN 


SIV 

10311, 

-420.0, A1301 , 

0.759222 

$ 

G-HYDROGEN 


SIV 

10315, 

-420.0, A1301 , 

0,759222 

$ 

G-HYDROGEN 


SIV 

10312, 

-420.0, A1301 , 

0.777667 

$ 

G-HYDROGEN 


SIV 

10314, 

-420.0, A1301 , 

0.777667 

$ 

G-HYDROGEN 


SIV 

10313, 

-420.0, A1301 , 

0.783848 

$ 

G-HYDROGEN 


REM 

REGION 5, 

LAYER NO. 14 





SIV 

10326, 

-420.0, A1301 , 

0.017719 

$ 

G-HYDROGEN 


SIV 

10350, 

-420.0, A1301 , 

0.017719 

$ 

G-HYDROGEN 


SIV 

10327, 

-420.0, A1301, 

0.052876 

$ 

G-HYDROGEN 


SIV 

10349, 

-420.0, A1301, 

0.052876 

$ 

G-HYDROGEN 


SIV 

10328, 

-420.0, A1301 , 

0.087200 

$ 

G-HYDROGEN 


SIV 

10348, 

-420.0, A1301, 

0.087200 

$ 

G-HYDROGEN 


SIV 

10329, 

-420.0, A1301 , 

0.120149 

$ 

G-HYDROGEN 


SIV 

10347, 

-420.0, A1301 , 

0.120149 

$ 

G-HYDROGEN 


SIV 

10330, 

-420.0, A1301 , 

0.151202 

$ 

G-HYDROGEN 


SIV 

10346, 

-420.0, A1301 , 

0.151202 

$ 

G-HYDROGEN 


SIV 

10331, 

-420.0, A1301 , 

0. 179872 

$ 

G-HYDROGEN 


SIV 

10345, 

-420.0, A1301 , 

0. 179872 

$ 

G-HYDROGEN 


SIV 

10332, 

-420.0, A1301 , 

0.205704 

$ 

G-HYDROGEN 


SIV 

10344, 

-420.0, A1301 , 

0.205704 

$ 

G- HYDROGEN 


SIV 

10333, 

-420.0, A1301 , 

0.228293 

$ 

G-HYDROGEN 


SIV 

10343, 

-420.0, A1301 , 

0.228293 

$ 

G-HYDROGEN 


SIV 

10334, 

-420.0, A1301 , 

0.247281 

$ 

G-HYDROGEN 


SIV 

10342, 

-420.0, A1301 , 

0.247281 

$ 

G-HYDROGEN 


SIV 

10335, 

-420.0, A1301 , 

0.262369 

$ 

G-HYDROGEN 


SIV 

10341, 

-420.0, A1301 , 

0.262369 

$ 

G-HYDROGEN 


SIV 

10336, 

-420.0, A1301 , 

0.273320 

$ 

G-HYDROGEN 


SIV 

10340, 

-420.0, A1301 , 

0.273320 

$ 

G-HYDROGEN 


SIV 

10337, 

-420.0, A1301 , 

0.279960 

S 

G-HYDROGEN 


SIV 

10339, 

-420.0, A1301 , 

0.279960 

s 

G-HYDROGEN 


SIV 

10338, 

-420.0, A1301, 

0.282185 

$ 

G-HYDROGEN 


REM 

REGION 5, 

LAYER NO. 15 





SIV 

10351, 

-420.0, A1301, 

0.001969 

$ 

G-HYDROGEN 


SIV 

10375, 

-420.0, A1301, 

0.001969 

$ 

G-HYDROGEN 


SIV 

10352, 

-420.0, A1301 , 

0.005875 

s 

G-HYDROGEN 


SIV 

10374, 

-420.0, A1301 , 

0 . 005875 

s 

G-HYDROGEN 


SIV 

10353, 

-420.0, A1301 , 

0.009609 

$ 

G-HYDROGEN 


SIV 

10373, 

-420.0, A1301 , 

0.009689 

$ 

G-HYDROGEN 


SIV 

10354, 

-420.0, A1301 , 

0.013350 

$ 

G-HYDROGEN 


SIV 

10372, 

-420.0, A1301 , 

0.013350 

$ 

G-HYDROGEN 


SIV 

10355, 

-420.0, A1301, 

0.016800 

$ 

G-HYDROGEN 


SIV 

1C 371, 

-420.0, A1301, 

0.016800 

$ 

G-HYDROGEN 


SIV 

10 3 5 6, 

-420.0, A1301 , 

0.019986 

$ 

G-HYDROGEN 


SIV 

10370, 

-420.0, A13Q1 , 

0.019986 

$ 

G-HYDROGEN 


SIV 

10357, 

-420.0, A1301, 

0.022856 

$ 

G-HYDROGEN 


SIV 

10369, 

-420.0, A1301, 

0.022856 

$ 

G-HYDROGEN 


SIV 

10358, 

-420.0, A1301, 

0.025366 

s 

G-HYDROGEN 


SIV 

10368, 

-420.0, A1301, 

0.025366 

$ 

G-HYDROGEN 


SIV 

10359, 

-420.0, A1301, 

0.027476 

$ 

G-HYDROGEN 


SIV 

10367, 

-420.0, A1301, 

0.027476 

$ 

G-HYDROGEN 


SIV 

10360, 

-420.0, A1301 , 

0.029152 

$ 

G-HYDROGEN 


SIV 

10366, 

-420.0, A1301, 

0.029152 

$ 

G-HYDROGEN 


SIV 

10361, 

-420.0, A1301, 

0.030369 

$ 

G-HYDROGEN 


SIV 

10365, 

-420.0, A1301 , 

0.030369 

$ 

G-HYDROGEN 


SIV 

10362, 

-420.0, A1301, 

0.031107 

$ 

G-HYDROGEN 


SIV 

10364, 

-420.0, A1301, 

0.031107 

$ 

G-HYDROGEN 


SIV 

10363, 

-420.0, A1301 , 

0.031354 

$ 

G-HYDROGEN 



-20001, 

-424.0, 1.000000 


S HEAT EXCHANGER 

1 


-20002, 

-424.0, 1.000000 


$ HEAT EXCHANGER 

2 


-20003, 

-400.0, 1.000000 


$ HEAT EXCHANGER 

3 
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-20301, 140.0, 1.000000 

-20302, 440.0, 1.000000 


$ OUTSIDE ATMOS 1 
$ OUTSIDE ATMOS 2 


END 


BCD 

3 SOURCE DATA 





GEN 

7001, 2,24, 7 . 8334E-03 

S 

Q (BTU/HR) 

BASED 

ON 

GEN 

7002, 2,22, 2.3376E-02 

s 

Q (BTU/HR) 

BASED 

ON 

GEN 

7003, 2,20, 3.8551E-02 

$ 

Q (BTU/HR) 

BASED 

ON 

GEN 

7004, 2,18, 5 . 31 17E-02 

$ 

Q (BTU/HR) 

BASED 

ON 

GEN 

7005, 2,16, 6.6846E-02 

$ 

Q (BTU/HR) 

BASED 

ON 

GEN 

7006, 2,14, 7.9521E-02 

$ 

Q (BTU/HR) 

BASED 

ON 

GEN 

7007, 2,12, 9.0941E-02 

$ 

Q (BTU/HR) 

BASED 

ON 

GEN 

7008, 2,10, 1 . 0093E-01 

$ 

G (BTU/HR) 

BASED 

ON 

GEN 

7009, 2, 8, 1 . 0932E-01 

$ 

Q (BTU/HR) 

BASED 

ON 

GEN 

7010, 2, 6, 1 . 1599E-01 

s 

Q (BTU/HR) 

BASED 

ON 

GEN 

7011, 2, 4, 1 . 2083E-01 

$ 

Q (BTU/HR) 

BASED 

ON 

GEN 

7012, 2, 2, 1 . 2377E-01 

$ 

G (BTU/HR) 

BASED 

ON 


1 . 2475E-01 $ Q (BTU/HR) BASED 


12 . 50BTU/HR ON SPHERE 
12 . 50BTU/HR ON SPHERE 
1 2 . 50BTU/HR ON SPHERE 
1 2 . 5QBTU/HR ON SPHERE 
12 . 50BTU/HR ON SPHERE 
12 . 50BTU/HR ON SPHERE 
12 . 50BTU/HR ON SPHERE 
1 2 . 50BTU/HR ON SPHERE 
12. 50 BTU/HR ON SPHERE 
1 2 . 5QBTU/HR ON SPHERE 
12 . 5QBTU/HR ON SPHERE 
12 . 50BTU/HR ON SPHERE 
ON 12 . 50BTU/HR ON SPHERE 


END 

BCD 3CONDUCTOR DATA 
REM RADIAL CONDUCTORS, 

REM RADIAL 

SIV 1, 

SIV 2, 

SIV 3, 

SIV 4, 

SIV 5, 

SIV 6, 

SIV 7, 

SIV e, 

SIV 9, 

SIV 10, 

SIV 11, 

SIV 12, 

SIV 13, 

SIV 14, 

SIV 15, 

SIV 16, 

SIV 17, 

SIV 18, 

SIV 19, 

SIV 20, 

SIV 21, 

SIV 22, 

SIV 23, 

SIV 24, 

SIV 25, 


CONDUCTION 


)UCTORS 

REGION 1, 

LAYER 1 

1001, 

2001, 

A6204, 

1025, 

2025, 

A6204, 

20001, 

2002, 

A6204, 

1024, 

2024, 

A6204, 

20001, 

2003, 

A6204 , 

1023, 

2023, 

A6204, 

20001, 

2004, 

A6204, 

1022, 

2022, 

A6204, 

20001, 

2005, 

A6204, 

1021, 

2021, 

A6204, 

1006, 

2006, 

A6204, 

1020, 

2020, 

A6204, 

1007, 

2007, 

A6204, 

1019, 

2019, 

A6204, 

03 

O 

o 

2008, 

A6204, 

o 

M 

as 

2018, 

A6204, 

1009, 

2009, 

A6204 , 

1017, 

2017, 

A6204, 

1010, 

2010, 

A6204, 

1016, 

2016, 

A6204, 

1011, 

2011, 

A6204, 

1015, 

2015, 

A6204, 

1012, 

2012, 

A6204, 

1014, 

2014, 

A6204, 

1013, 

2013, 

A6204, 


REM 

RADIAL 

CONDUCTORS REGION 1, LAYER 

DIM 

26, 

2,1, 

2001,24, 

2026, 24 , A6204 , 

DIM 

28, 

2,1, 

2002,22, 

2027, 22, A6204 , 

DIM 

10, 

2,1, 

2003, 20, 

2028, 20 , A62Q4 , 

DIM 

32, 

2,1, 

2004,19, 

2029, 18, A6204 , 

DIM 

34, 

2,1, 

2005, 16, 

2030, 16, A6204, 

DIM 

36, 

2,1, 

2006,14, 

2031, 14, A6204 , 

DIM 

38, 

2,1, 

o 

o 

»-» 

r>o 

2032, 12, A62G4 , 

DIM 

40, 

2,1, 

2008, 10, 

2033, 10, A6204 , 

DIM 

42, 

2,1, 

2009, B, 

2034, 8 , A6204 , 

DIM 

44, 

2,1, 

2010, 6, 

2035, 6, A6204, 

DIM 

46, 

2,1, 

2011, 4, 

2036, 4, A6204 , 

DIM 

48, 

2,1, 

2012, 2, 

2037, 2, A6204 , 

DIM 

50, 

1,1, 

2013, 0, 

2038, 0, A6204, 

REM 

radial 

CONDUCTORS REGION 1, LAYER 

DIM 

51, 

2,1, 

2026, 24, 

2051, 24, A6204, 

DIM 

53, 

2,1, 

2027,22, 

2052, 22 , A6204 , 

DIM 

55, 

2,1, 

2028,20, 

2053, 20, A6204 , 

DIM 

57, 

2,1, 

2029, 18, 

2054, 18,A6204 ( 

DIM 

59, 

2,1, 

2030,16, 

2055, 16, A6204, 

DIM 

61, 

2,1, 

2031,14, 

2056, 1 4, A6204 ( 

DIM 

63, 

2,1, 

2032,12, 

2057, 12, A6204 , 

DIM 

65, 

2,1, 

2033,10, 

, 2058, 10,A6204 

DIM 

67, 

2,1, 

2034, 8, 

t 2059, 8, A6204 


TO BOUNDARY 1-4 

3 . 7 95743E+01 
3.795743E+01 
1 . 132733E+02 
1 .132733E+02 

1 . 8 68028E+02 
1 .868028E+02 
2 . 573862E+02 
2.573862E+02 
3 . 239102E+02 
3 . 239102E+02 

3 . 8 53262E+0 2 
3 . 853262E+02 
4 . 406655E+02 
4 . 4 0665 5E+ 0 2 
4 . 8 90552E + 0 2 
4 . 890552E+02 
5.29731 9E+02 
5 , 2 9731 9E+02 
5 . 620549E+02 
5 . 62054 9E+0 2 
5 . 855137E+02 
5.855137E+02 
5 . 997388E+02 
5 . 997388E+02 
6 . 045054E+02 

1 TO LAYER 2 
3. 827370 E+ 01, A 62 04, 
1.142172E+02, A6204, 

1 . 883593E+02 , A6204 , 
2.S953O0E+O2, A6204, 
3.266091E+02,A6204, 
3. 885371 E+02,A6204, 
4. 443372E+02,A6204, 

4 . 931304 E+Q2,A6204, 
5. 341462 £+02, A62 04, 
5. 667383E+02, A6204, 

5 . 903926E+02 , A6204 , 
6. 047361 E+02,A6204, 
6.095425E+02,A6204, 
2 TO LAYER 3 
3. 891029E+01 , A6204, 
1.161168E+02, A6204, 
1 . 91 4922E+02 , A62Q4 , 
2.638474E+02,A6204, 
3.320415E+02,A6204, 
3. 949993E+02,A6204, 

, 4.517275E+02,A6204, 

, 5.013323E+02,A6204, 

, 5.430303E+02,A6204, 


3 . 859138E+01 
1 . 151651E+02 
1 . 899227E+02 
2. 616851E+02 
3. 293198E+02 
3 . 917617E+02 
4 . 480251E+02 
4 . 972234E+02 
5.385793E+02 
5 . 714419E+02 
5 . 952927E+02 
6. 097551E+02 
6. 146016E+02 

3 . 923051E+01 
1 . 170724E+02 
1 . 930679E+02 
2 . 660188E+02 
3. 347742E+02 
3 . 982502E+02 
4 . 554451E+02 
5 . 054583E+02 
5. 474993E+02 
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DIM 

DIM 

DIM 

DIM 

REM 

SIM 

SIM 

SIM 

SIM 

SIM 

SIM 

SIM 

SIM 

SIM 

SIM 


69, 2,1, 2035, 6, 2060, 6,A6204, 5 . 761 646E+02 , A6204 , 
71 2,1, 2036, 4, 2061, 4,A6204, 6 . 0021 22E+02, A6204, 
73^ 2,1, 2037, 2, 2062, 2,A6204, 6. 147942E+02, A6204, 
75 ] 1,1, 2038, 0, 2063, 0,A6204, 6. 196807E+02, A6204, 


RADIAL CONDUCTORS REGION 1, LAYER 3 
76, 2,1, 2051,24, 3001,24, A6204, 

2052,22, 3002,22, A6204, 
2053,20, 3003,20, A6204, 


78, 

80, 

82, 

84, 

86 , 

88 , 

90 , 

92, 

94, 


2 , 1 , 

2 , 1 , 

2 , 1 , 

2 , 1 , 

2 , 1 , 

2 , 1 , 

2 , 1 , 

2 , 1 , 

2 , 1 , 


TO BOUNDARY 1-2 
3 . 955209E+01 
1 .180322E+02 
1.946507E+02 


2054,18, 3004,18, A6204, 2.681995E+02 
2055,16, 3005,16, A6204, 3.3751B6EKJ2 
3006,14, A6204, 

A6204, 

A6204, 

A6204, 

6, A6204, 


2056,14, 
2057,12, 
2058,10, 
2059, 8, 
2C60, 


6, 


3007,12, 
3008, 10, 

3009, 8, 

3010, 


SIM 

96, 

2,1, 

2061 , 4 , 

3011, 4, A6204 

SIM 

98, 

2,1, 

2062, 2, 

3012, 2, A6204 

SIM 

100, 

1,1, 

2063, 0, 

3013, 0, A6204 

REM 

CIRCUMFERENTIAL CONDUCTORS; Y- DIREi 

REM 

CIRCUMFERENTIAL CONDUCTORS REGION 1 

DIM 

101, 

2,1, 

2001,23, 

2002, 23, A6204, 

DIM 

103, 

2,1, 

2002,21, 

2003, 21, A6204 , 

DIM 

105, 

2,1, 

2003,19, 

2004, 19, A6204 , 

DIM 

107, 

2,1, 

2004,17, 

2005, 17 , A6204 , 

DIM 

109, 

2,1, 

2005,15, 

2006, 15 , A62Q4 , 

DIM 

111, 

2,1, 

2006,13, 

2007, 13, A6204, 

DIM 

113, 

2,1, 

2007,11, 

2008, 11, A6204, 

DIM 

115, 

2,1, 

2008, 9, 

2009, 9, A6204 , 

DIM 

117, 

2,1, 

2009, 7, 

2010, 7 , A62Q4 , 

DIM 

119, 

2,1, 

2010, 5, 

2011, 5 , A6204 , 

DIM 

121, 

2,1, 

2011, 3, 

2012, 3, A6204 , 

DIM 

123, 

2,1, 

2012, 1, 

2013, 1 , A6204 , 


REM 

CIRCUMFERENTIAL CONDUCTORS REGION 1, 

DIM 

125, 

2,1, 

2026,23, 

2027, 23, A6204 , 

DIM 

127, 

2,1, 

2027,21, 

2028, 21 , A62Q4, 

DIM 

129, 

2,1, 

2028,19, 

2029, 19, A6204 , 

DIM 

131, 

2,1, 

2029,17, 

2030, 17 , A6204 , 

DIM 

133, 

2,1, 

2030,15, 

2031, 15 , A6204 , 

DIM 

135, 

2,1, 

2031,13, 

2032, 13, A6204, 

DIM 

137, 

2,1, 

2032,11, 

2033, 11, A6204 , 

DIM 

139, 

2,1, 

2033, 9, 

2034, 9, A6204 , 

DIM 

141, 

2,1, 

2034, 7, 

2035, 7 , A6204 , 

DIM 

143, 

2,1, 

2035, 5, 

2036, 5, A6204 , 

DIM 

145, 

2,1, 

2036, 3, 

2037, 3, A6204 , 

DIM 

147, 

2,1, 

2037, 1, 

2038, 1, A6204 , 

REM 

CIRCUMFERENTIAL CONDUCTORS REGION 1 

DIM 

149, 

2,1, 

2051,23, 

2052, 23 , A6204 , 

DIM 

151, 

2,1, 

2052,21, 

2053, 21 , A6204 , 

DIM 

153, 

2,1, 

2053,19, 

2054, 19 # A6204, 

DIM 

155, 

2,1, 

2054,17, 

2055, 17 , A62Q4 , 

DIM 

157, 

2,1, 

2055,15, 

2056, 15, A6204 , 

DIM 

159, 

2,1, 

2056,13, 

2057, 13 , A62Q4 , 

DIM 

161, 

2,1, 

2057,11, 

2058, 11, A6204 , 

DIM 

163, 

2,1, 

2058, 9, 

2059, 9, A6204 , 

DIM 

165, 

(N 

2059, 7, 

2060, 7 , A6204 , 

DIM 

167, 

2,1, 

2060, 5, 

2061, 5, A6204, 

DIM 

169, 

2,1, 

2061, 3, 

2062, 3, A6204 , 

DIM 

171, 

2,1, 

2062, 1, 

, 2063, 1 , A6204 , 

REM 

RADIAL CONDUCTORS, 

CONDUCTION 


4 .015146E+02 
4 . 591790E+02 
5.096018E+02 
5 . 519873E+02 
5 . 856682E+02 
6 . 101 125E+02 
6 . 249351E+02 
6.299023E+02 
TION, CONDUCTION 
LAYER NUMBER 1 
1 . 662292E-Q1, A6204, - 
4 . 960644E-01 , A6204 , 1 
8 . 18Q760E-01, A6204, 

1 . 127185E+00, A6204, 

1 . 418519E+00, A6204, 
1. 687482E+00,A6204, 
1. 929832E+00,A6204, 

2 . 141749E+Q0, A6204, 

2 . 31 9886E+00, A6204, 
2. 461440 E+ 00, A 62 04, 

2 . 564175E+00, A6204, 
2. 626471E+00,A6204, 

, LAYER NUMBER 2 
1. 662292 E-Q1/A62 04, 

4 . 960645E-01 , A6204, 
8. 1807 64E-01, A6204, 

1 . 127187E+00, A6204, 

1 . 41851 9E+Q0, A6204, 
1. 687482E+00,A6204, 
1. 929832E+00, A6204, 

2 . 14 1749E+00 , A6204 , 
2.319886E+00,A6204, 
2. 461439E+00, A6204, 

2 . 564175E+00, A6204, 

2 . 626471E+00, A6204, 

, LAYER NUMBER 3 
1. 662292E-01,A6204, 

4 . 960643E-01 , A6204, 
8 . 180760E-01 , A6204, 
1 .127186E+00, A6204, 
1 , 418519E+00, A62Q4, 
1 . 687482E+00, A6204, 
1.929832E+00, A6204 , 
2 . 141746E+00, A6204, 

, 2. 319886E+00, A6204, 

, 2. 461440E+00, A62Q4, 
r 2. 564175E+00 , A6204 , 
r 2 . 626471E+00, A6204 , 


REM 

SIM 

SIM 

SIM 

SIM 

SIM 

SIM 

SIM 

SIM 

SIM 

SIM 


RADIAL CONDUCTORS REGION 2, LAYER 


173 , 
175 , 
177 , 
179 , 
1 01 , 
1 83 , 
185 , 
187 , 
189 , 

191, 


1, 
1 , 
1, 
, ' A , 
1, 
1, 
1, 
.1, 

■ 1 , 
rl, 


3001,24, 
3002,22, 
3003, 20, 
3004,18, 
3005, 1 6, 
3006, 14, 
3007, 12, 
3008,10, 

3009, 8, 

3010, 6, 


4001,24, A6204, 
4002,22, A6204, 
4003,20, A6204, 
4004,18, A6204, 
4005,16, A6204, 
4006,14, A6204, 
4007,12, A6204 
4008, 10, 

4009, 8, 

4010, 6, 


A6204, 
A6204, 
A6204 , 


TO BOUNDARY 
2.66372BE+01 
7 . 949152E+01 
1.310920E+02 
1 .806254E+02 
2 . 273097E+Q2 
2 . 704Q94E+02 
3 . 0 92446E + 02 
3 . 432Q31E+02 
3.717488E+02 
3 . 944319E+0 2 


2 - 1 


. 80 9060E+02 
. 051519E+02 
. 198540E+02 
. 247805E+02 


. 960644E-01 
. 180760E-01 
1 , 127185E+00 
1 . 418519E+00 
1. 6874B2E+00 
1. 929832E+00 
2 . 141749E+00 
2 . 31 9886E+00 
2 . 4614 40E+00 
2.564175E+00 
2. 626471E+00 
2 . 647346E+00 

4 . 960645E-01 
8 . 180764E-01 
1 . 127187E+00 
1 . 418519E+00 
1 . 687482E+00 
1. 929832E+00 
2 . 141749E+00 
2 . 31 9886E+00 
2.461439E+00 
2 . 564175E+00 
2 . 626471E+00 
2 . 647346E+00 

4 . 960643E-01 
8. 180760E-01 
1 . 127186E+00 
1 . 418519E+00 
1 . 687482E+00 
1 . 929832E+00 
2 . 141748E+00 
2 . 319886E+00 
2 . 4614 40E+Q0 
2. 564175E+00 
2 . 62 6471E+00 
2 . 6473 46E+00 


79 


SIM 

193, 

2,1, 

3011, 4, 4011, 4, 

A6204, 

4 . 10894 5E+02 

SIM 

195, 

2,1, 

3012, 2, 4012, 2, 

A6204, 

4.208772E+02 

SIM 

197, 

1,1, 

3013, 0, 4013, 0, 

A6204, 

4 . 242222E+02 

REM 

RADIAL 

CONDUCTORS REGION 2, LAYER 1 

TO BOUNDARY 

SIM 

198, 

2,1, 

4001,24, 5001,24, 

A6204, 

2 . 696213E+01 

SIM 

200, 

2,1, 

4002,22, 5002,22, 

A6204, 

8 . 046094E+0 1 

SIM 

202, 

2,1, 

4003,20, 5003,20, 

A6204, 

1.326908E+02 

SIM 

204, 

2,1, 

4004,18, 5004,18, 

A6204, 

1 . 82020OE+O2 

SIM 

206, 

2,1, 

4005,16, 5005, 16, 

A6204, 

2 . 300818E+02 

SIM 

208, 

2,1, 

4006,14, 5006,14, 

A6204, 

2 . 737070E+02 

SIM 

210, 

2,1, 

4007,12, 5007,12, 

A6204, 

3 . 130161E+02 

SIM 

212, 

2,1, 

4008,10, 5008,10, 

A6204, 

3 . 4 73887E+02 

SIM 

214, 

2,1, 

4009, 0, 5009, 8, 

A6204 , 

3 .762822E+02 

SIM 

216, 

2,1, 

4010, 6, 5010, 6, 

A6204, 

3.992419E+02 

SIM 

218, 

2,1, 

4011, 4, 5011, 4, 

A6204, 

4 . 1 59053E+02 

SIM 

220, 

2,1, 

4012, 2, 5012, 2, 

A6204, 

4 . 2 60098E+02 

SIM 

222, 

1,1, 

4013, 0, 5013, 0, 

A6204, 

4 . 2 93958E+02 


REM CIRCUMFERENTIAL CONDUCTORS; Y- DIRECTION, CONDUCTION 
REM CIRCUMFERENTIAL CONDUCTORS REGION 2, LAYER NUMBER 1 


DIM 

223, 

CM 

4001,23, 

4002, 23, A6204, 

2.493440E-01,A6204, 

DIM 

225, 

2,1, 

4002,21, 

4003, 21, A6204, 

7. 440972 E- 01, A 62 04, 

DIM 

227, 

2,1, 

4003,19, 

4004, 19, A6204, 

1. 227115 E+ 00, A6204, 

DIM 

229, 

2,1, 

4004,17, 

4005, 17, A6204, 

1. 690781E+00, A6204, 

DIM 

231, 

2,1, 

4005,15, 

4006, 15, A6204 , 

2.127781E+00,A6204, 

DIM 

233, 

2,1, 

4006, 13, 

4007, 13, A6204 , 

2.531224E+00,A6204, 

DIM 

235, 

2,1, 

4007,11, 

4008, 11, A6204, 

2. 894751 E+00,A6204, 

DIM 

237, 

2,1, 

4008, 9, 

4009, 9, A6204 , 

3.212626E+00,A6204, 

DIM 

239, 

2,1, 

4009’, 7, 

4010, 7, A6204 , 

3. 479833 E+ 00, A 6204, 

DIM 

241, 

2,1, 

4010, 5, 

4011, 5, A6204, 

3 , 6921 63 £+00, A 62 04, 

DIM 

243, 

2,1, 

4011, 3, 

4012, 3, A6204 , 

3.846264E+00,A6204, 

DIM 

245, 

2,1, 

4012, 1, 

4013, 1 , A6204 , 

3. 939709E+00, A6204, 

REM 

REM 

RADIAL 

RADIAL 

CONDUCTORS, CONDUCTION 

CONDUCTORS REGION 3, LAYER 1 TO BOUNDARY 3- 2 

SIM 

247, 

2,1, 

5001,24, 

6001,24, A6202, 

6.797668E+01 

SIM 

249, 

2,1, 

5002,22, 

6002,22, A6202, 

2.028573E+02 

SIM 

251, 

2,1, 

5003,20, 

6003 f 20, A6202, 

3.345383E+02 

SIM 

253, 

2,1, 

5004,18, 

6004,18, A6202, 

4 . 6094 4 1E+0 2 

SIM 

255, 

2,1, 

5005, 1 6, 

6005,16, A6202, 

5 . 800601E + 02 

SIM 

257, 

2, 1, 

5006,14, 

6006,14, A6202, 

6, 900679E+02 

SIM 

259, 

2, 1, 

5007,12, 

6007,12, A6202, 

7 . 891729E+02 

SIM 

2 61, 

2,1, 

5008,10, 

6008,10, A6202, 

0 . 758328E+02 

SIM 

.63, 

2,1, 

5009, 8, 

6009, 8, A6202, 

9. 486792E+02 

SIM 

2 65, 

2,1, 

5010, 6, 

6010, 6, A6202, 

1 . 006565E + 03 

SIM 

. i>7. 

2,1, 

5011, 4, 

6011, 4, A6202, 

1 .048577E+03 

SIM 

2 69, 

2,1, 

5012, 2, 

6012, 2, A6202, 

1 .074052E+03 

SIM 

271, 

1,1, 

5013, 0, 

6013, 0, A6202, 

1.082588E+03 

REM 

RADIAL 

CONDUCTORS REGION 3, LAYER 1 

TO LAYER 2 

DIM 

272, 

2,1, 

6001,24, 

6026, 24, A6202, 

6. 830429E+01 , A6202, 

DIM 

274, 

2,1, 

6002,22, 

6027, 22, A6202, 

2.038349E+02, A6202, 

DIM 

276, 

2,1, 

6003,20, 

6028, 20, A6202, 

3 . 361506E+02, A6202, 

DIM 

278, 

2,1, 

6004,18, 

6029, 18, A6202, 

4.631653E+02,A6202, 

DIM 

280, 

2,1, 

6005, 16, 

6030, 16, A6202, 

5.828757E+02,A6202, 

DIM 

282, 

2,1, 

6006, 14, 

6031, 14,A6202, 

6.933936E+02,A6202, 

DIM 

284, 

2,1, 

6007,12, 

6032, 12, A6202, 

7. 929763E+02, A6202, 

DIM 

286, 

2,1, 

6008, 10, 

6033, 10, A6202 , 

8 . 800537E+02 , A6202, 

DIM 

2B8, 

2,1, 

6009, 8, 

6034, 8 , A6202, 

9. 53 2512 E+ 02, A6202, 

DIM 

290, 

2,1, 

6010, 6, 

6035, 6, A6202, 

1.011416E+03,A6202, 

DIM 

2 92, 

2,1, 

6011, 4, 

6036, 4, A6202, 

1. 053630 E+ 03, A62 02, 

DIM 

2 94, 

2,1, 

6012, 2, 

6037, 2, A6202, 

1 .079228E+03, A6202, 

DIM 

296, 

1,1, 

6013, 0, 

6038, 0, A6202, 

1 . 087806E+03, A6202, 

REM 

RADIAL 

CONDUCTORS REGION 3, LAYER 2 

TO BOUNDARY 3- 4 


SIV 

? 97, 

6026, 

7001, 

A6202, 

6 . 89617 6E + 01 

SIV 

2 98, 

6050, 

7025, 

A6202, 

6.896176Ef01 

SIV 

2 99, 

6027, 

7002, 

A6202, 

2 . 057 971E * 02 

SIV 

300, 

6049, 

7024, 

A6202, 

2.057971E t02 

SIV 

301, 

6028, 

7003, 

A6202, 

3 . 393865E+02 

SIV 

302, 

6048, 

7023, 

A6202, 

3 . 393865E + 02 

SIV 

303, 

6029, 

7004, 

A6202, 

4 . 676240E+02 

SIV 

304, 

6047, 

7022, 

A6202, 

4 . 676240E+02 

SIV 

305, 

6030, 

7005, 

A6202, 

5 . 884863E + 0 2 


7.440972E-01 
1 . 2271 15E+00 
1 . 690781E+00 
2 . 127781E+00 
2.531224E+00 
2 . 894751E+00 
3 . 21 2626E+00 
3. 479933E+00 
3.692163E+00 
3. 846264E+00 
3. 939709E+00 
3. 971023E+00 


6 . 863269E+01 
2.048150E+02 
3.377671E+02 
4 . 653926E+02 
S. 856785E+02 
6. 967273E+02 
. 9678 88E+02 
. 84 28 52E+02 
9. 578347E+02 
.016279E+03 
.058697E+03 
. 084417E+03 
. 093036E+03 


80 



S IV 
S IV 
SIV 
SIV 
SIV 
SIV 
SIV 
SIV 
SIV 
SIV 
SIV 
SIV 
SIV 
SIV 
SIV 
SIV 
REM 
REM 


306, 

6046, 

7021, 

A6202, 5 . 884863E+02 

307, 

6031, 

7006, 

A6202, 7.0006B1E+02 

308, 

6045, 

7020, 

A6202, 7 .000 6B1E+Q2 

309, 

6032, 

7007, 

A6202, 8.006094E+02 

310, 

6044, 

7019, 

A6202, 8 . 006094E+02 

311, 

6033’, 

7008, 

A6202, 0 . 885251E+02 

312, 

6043, 

7018, 

A6202, 8 . 005251E+O2 

313, 

6034, 

7009, 

A6202, 9. 624272E+02 

314, 

6042, 

7017, 

A6202, 9 . 624272E+02 

315, 

6035, 

20003, 

A6202, 1.021152E+03 

316, 

6041, 

7016, 

A6202, 1 . 021 152E+03 

317, 

6036, 

20003, 

A6202, 1 . 063772E+03 

316, 

6040, 

7015, 

A6202, 1 . 0 63772E+03 

319, 

6037, 

20003, 

A6202, 1.089617E+03 

320, 

6039, 

7014, 

A6202, 1 . 089617E+03 

321, 

6038, 

7013, 

A6202, 1 . 098277E+03 


LiR'-unrLM.nii/kjj / - » 

CIRCUMFERENTIAL CONDUCTORS REGION 3, LAYER NUMBER 1 

-- 9. 973752E-02, A6202, 

2. 976390E-01, A6202, 
4 . 9084 63E-01 , A6202, 
6 . 763121 E- 01, A 62 02, 
8 . 5111 26E-01 , A6202, 
1.O12409E+OO, A6202, 


DIM 

322, 

to 

»-* 

6001,23, 

6002, 23,A6202, ( 

DIM 

324, 

2,1, 

6002,21, 

6003, 21,A6202, : 

DIM 

326, 

2,1, 

6003,19, 

6004, 19,A6202, 

DIM 

328, 

2,1, 

6004,17, 

6005, 17, A6202, 

DIM 

330, 

2,1, 

6005,15, 

6006, 15, A6202, 

DIM 

332, 

K3 
1 — ‘ 

6006, 13, 

6007, 13, A6202 , 

DIM 

334, 

2,1, 

6007,11, 

6008, 11 , A6202 , 

DIM 

336, 

2,1, 

6008, 9, 

6009, 9, A6202 , 

DIM 

338, 

2,1, 

6009, 7, 

6010, 7, A6202, 

DIM 

340, 

2,1, 

6010, 5, 

6011, 5, A6202, 

DIM 

342, 

2,1, 

6011, 3, 

6012, 3, A6202 , 

DIM 

344, 

2,1, 

6012, 1, 

6013, 1 , A6202 , 

REM 

CIRCUMFERENTIAL CONDUCTORS REGION 3, 

DIM 

346, 

2,1, 

6026,23, 

6027, 23, A6202 , 

DIM 

348, 

2,1, 

6027,21, 

6028, 21 , A6202, 

DIM 

350, 

2,1, 

6028, 19, 

6029, 19, A6202 , 

DIM 

352, 

2,1, 

6029,17, 

6030, 17, A6202, 

DIM 

354, 

2,1, 

6030,15, 

6031, 15, A6202 , 

DIM 

356, 

2,1, 

6031,13, 

6032, 13 , A6202 , 

DIM 

358, 

2,1, 

6032,11, 

6033, 11 , A6202 , 

DIM 

360, 

2,1, 

6033, 9, 

6034, 9, A6202, 

DIM 

3 62, 

2,1, 

6034, 7, 

6035, 7, A6202, 

DIM 

364, 

2,1, 

6035, 5, 

6036, 5 , A6202, 

DIM 

366, 

2,1, 

6036, 3, 

6037, 3 , A6202 , 

DIM 

368, 

2,1, 

6037, 1, 

6038, 1,A6202, 

REM 

RADIAL 

CONDUCTORS, 

CONDUCTION 

REM 

RADIAL 

CONDUCTORS REGION 4, LAYER ] 

SIV 

370, 


1001, 

8001, A61Q1, 

SIV 

371, 


1025, 

8025, A6301, 

SIV 

372, 


20001, 

8002, A6101 , 

SIV 

373, 


1024, 

8024, A6301, 

SIV 

374, 


20001, 

8003, A6101, 

SIV 

375, 


1023, 

8023, A6301, 

SIV 

376, 


20001, 

8004, A6101, 

SIV 

377, 


1022, 

8022, A6301 

SIV 

378, 


2)001, 

8005, A6101 

SIV 

379, 


1021, 

8021, A6301 


SIV 

SIV 

SIV 

SIV 

SIV 

SIV 

SIV 

SIV 

SIV 

SIV 

SIV 

SIV 

SIV 

SIV 

SIV 


3 80 , 

381, 

382, 

383, 

384, 
3 85, 

386, 

387, 
398, 

389, 

390, 

391, 

392, 

393, 

394, 


1006, 

1020 , 

1007, 
1019, 

1008, 
1018, 

1009, 
1017, 

1010, 
1016, 
101V, 
1015, 
1012, 
1014, 
1013, 


8006, 

8020, 

8007, 
8019, 

8008, 
8018, 

8009, 
8017, 

8010, 
8016, 
8011, 
8015, 
8012, 
8014, 
8013, 


9, 97 37 52 E- 02, A 62 02, 
2 . 976389E-01 , A6202, 
4 . 908462E-01 , A6202, 
6 . 763124E-01 , A6202, 
8. 511118 E- 01 , A6202, 
1 . 012489E+00, A6202, 
1 . 157900 E+ 00, A6202, 
1. 285049E+00, A6202, 


1 .538506E+00,A6202, 
1 . 575884 E+ 00, A 62 02, 

. TO BOUNDARY 4-1 
4 . 883705E + 00 
4 , 88370SE + 00 
, 1 . 4 57 405E+01 
, 1 . 4 57 405E + 01 

, 2 . 403455E+01 
, 2 . 403455E+01 
( 3.311601E+01 
, 3 . 311 6Q1E-* 01 
, 4 . 167517E+01 
, 4 . 1 67 51 7E+01 
A6101, 4 . 957712E+01 
A6301 , 4 . 957712E+Q1 
A6101, 5.669720E+01 
A6301, 5 . 669720E+01 
A6101, 6.292319E+01 
A6301 , 6.292319E^01 
A6101, 6. B15675E+01 
A6301, 6.815675E+01 
A6101, 7 . 231549E + 01 
A6301 , 7.231 54 9E + 01 
A6101, 7 . 53337 9E + 01 
A6101, 7 . 533379E + 01 
A6101, 7 . 71 6400E + 01 

A6101, 7 . 71 6400E+01 
A6101, 7.777728E+01 


2 . 97 63 90E-01 
4 . 9084 63E-01 
6. 7631 21E-01 
8. 511126E-01 
1 . 012489E+00 
1 . 157900E+00 
1 . 285050E+00 
1 , 391932E+00 
1 . 47 6865E+0Q 
1. 538506E+00 
1 . 575884E+00 
1 . 588408E+00 

2. 9763B9E-01 
4. 908462E-01 
6. 763124E-01 
8.511110E-O1 
1.012489E+00 
1 . 157900E+00 
1 . 205O49E+OO 
1 . 391932E+00 
1. 476865E+00 
1 . 538506E+00 
1 . 575884E+00 
1 . 588408E+00 
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REM 

RADIAL 

CONDUCTORS REGION 4, LAYER 

I TO LAYER 2 


DIM 

395, 

1,1, 

6001,24, 

, 6026, 24, A61Q1, 

4.578548E+00,A6101, 

4.283237E+00 

DIM 

396, 

1,1, 

8025, 24, 

, 0050, 24, A6301, 

4. 578548 E+ 00, A 6301, 

4 . 283237E+00 

DIM 

397, 

1,1, 

8002,22, 

, 8027, 22, A6101, 

1.366340E+01/A6101, 

1.278213E+01 

DIM 

390, 

1,1, 

6024,22, 

, 804 9, 22, A6301, 

1.366340E+01,A6301, 

1 . 270213E+O1 

DIM 

399, 

1,1, 

8003,20, 

8028, 20, A6101, 

2. 253276E+01 , A6101, 

2.107942E+01 

DIM 

400, 

1,1, 

8023, 20, 

8048, 20, A6301 , 

2 . 253276E+01 , A6301, 

2 . 107942E+01 

DIM 

401, 

1,1, 

8004,18, 

8029, 18, A6101 , 

3 . 104677 E+01 , A6101, 

2 . 9O44 20E+O1 

DIM 

402, 

1,1, 

8022,18, 

8047, 18, A6301 , 

3.104677E+01,A6301, 

2 . 904428E+01 

DIM 

403, 

1,1, 

8005, 16, 

8030, 16, A6101 , 

3 . 907111E+01 , A6101 , 

3 . 655109E+01 

DIM 

404, 

1,1, 

8021,16, 

0046, 16, A6301, 

3 . 907111 E+01,A6301, 

3 . 655109E+01 

DIM 

405, 

1,1, 

8006,14, 

8031, 14, A6101, 

4 , 647931E+01 , A6101, 

4 . 3481 4 6E+01 

DIM 

406, 

1,1, 

8020,14, 

804 5, 14, A6301, 

4. 647931E+01, A6301, 

4 . 348146E+01 

DIM 

407, 

1,1, 

8007,12, 

8032,12, A6101, 

5. 315454E+01, A6101, 

4 . 972612E+01 

DIM 

408, 

1,1, 

8019, 12, 

8044, 12, A6301 , 

5. 315454 E+ 01, A 63 01, 

4 . 972612E+01 

DIM 

409, 

1,1, 

9008,10, 

8033, 10, A6101, 

5.899147E+01, A6101, 

5. 510658E+Q1 

DIM 

410, 

1,1, 

8018,10, 

8043, 10, A6301, 

5. 899147 £+01, A63 01, 

5 . 510658E+Q1 

DIM 

4U, 

1,1, 

8009, 8, 

8034, 8, A6101, 

6.389801E+01,A6101, 

5. 977667E+01 

DIM 

412, 

1,1, 

8017, 8, 

8042, 8, A6301, 

6« 389801E+01 , A6301, 

5. 977667E+01 

DIM 

413, 

1,1, 

8010, 6, 

8035, 6, A6101, 

6.779689E+01,A6101, 

6. 342407E+01 

DIM 

414, 

1,1, 

8016, 6, 

8041, 6, A6301 , 

6.779689E+01,A6301, 

6. 342407E+01 

DIM 

415, 

1,1, 

8011, 4, 

8036, 4, A6101 , 

7 . 062659E+01 , A6101, 

6. 607126E+01 

DIM 

416, 

1,1, 

8015, 4, 

8040, 4, A6101, 

7.062659E+01,A6101, 

6.607126E+01 

DIM 

417, 

1,1, 

8012, 2, 

8037, 2, A6101 , 

7 . 234245E+01,A6101, 

6. 767645E+01 

DIM 

418, 

1,1, 

8014, 2, 

8039, 2, A6101 , 

7. 234245 E+01,A6101, 

6. 767645E+01 

DIM 

419, 

1,1, 

9013, 0, 

8038, 0, A6101 , 

7 . 291742E+01, A6101, 

6 . 821432E+01 

REM 

RADIAL 

CONDUCTORS REGION 4, LAYER 2 

! TO LAYER 3 


SIV 

420, 


8026, 

0051, A6101, 

3 . 99777 2E+GQ 


SIV 

421, 


8026, 

8026, A6101, 

3 . 997772E+Q0 


SIV 

422, 


8050, 

8075, A6301, 

3 . 997772E+GQ 


SIV 

423, 


8026, 

8050, A6301, 

3 . 997772E+00 


SIV 

424, 


8027, 

8052, A6101, 

1 .193023E+01 


SIV 

425, 


8027, 

8027, A6101, 

1.193023E+01 


SIV 

426, 


8049, 

8074, A6301, 

1 . 1 93023E+0 1 


SIV 

427, 


8027, 

8049, A6301, 

1 . 1 93Q23E+0 1 


SIV 

428, 


8020, 

8053, A6101, 

1 . 967453E+01 


SIV 

429, 


8028, 

0020, A6101, 

1 .967453E+01 


SIV 

430, 


8040, 

8073, A6301, 

1 . 967453E+01 


SIV 

431, 


8028, 

8040, A6301, 

1 .967453E+01 


SIV 

432, 


8029, 

8054, A6101, 

2 . 7 10854E+01 


SIV 

433, 


8029, 

8029, A6101, 

2 . 710854E+0 1 


SIV 

434 , 


8047, 

8072, A6301, 

2 . 710854E+01 


SIV 

435, 


8029, 

8047, A6301, 

2 . 7 10854E+O 1 


SIV 

436, 


8030', 

8055, A6101, 

3.411504Ei01 


SIV 

437, 


8030, 

8030, A6101, 

3 . 411504E+01 


SIV 

438, 


8046, 

8071, A6301, 

3 . 411504E+01 


SIV 

439, 


8030, 

8046, A6301, 

3 , 411 5Q4E+01 


SIV 

440, 


8031, 

8056, A6101, 

4 . 058351E+01 


SIV 

441, 


8031, 

8031, A6101, 

4 . Q58351E+01 


SIV 

442, 


8045, 

8070, A6301, 

4 . 058351E+01 


SIV 

443, 


8031, 

8045, A6301, 

4 . 058351E+01 


SIV 

444, 


8032, 

8057, A6101, 

4 . 6411 99E+01 


SIV 

445, 


8032, 

8032, A6101, 

4 . 641 1 99E+01 


SIV 

446, 

20002, 

8069, A6101, 

4.32121 6E + 01 


SIV 

147, 


8032, 

20002, A6301, 

4 . 321 21 6E+01 


SIV 

448, 


8033, 

8058, A61Q1, 

5.150851E401 


SIV 

449, 


8033, 

8033, A6101, 

5 . 1 50851E* 01 


SIV 

450, 

20002, 

8068, A6101 , 

4 . 7 95732E + 01 


SIV 

451, 


8033, 

20002, A6301, 

4 . 7 95732E + Q1 


SIV 

4 52, 


8034, 

8059, A6101, 

5 . 579269E-* 01 


SIV 

4 53, 


8034, 

0034, A6101, 

5 . 579269E+01 


SIV 

454, 

20002, 

8067, A6101, 

5.194 611E+01 


SIV 

4 55, 


8034, 

20002, A6301, 

5 . 1 94 611E+01 


SIV 

4 56, 


8035, 

8060, A6101 , 

5 . 91 9704E+01 


SIV 

4 57, 


8035, 

8035, A6101, 

5 . 91 9704E + 01 


SIV 

4 58, 


8041 , 

8066, A6301, 

5 . 9197Q4E+01 


SIV 

459, 


8035, 

0041, A6301, 

5. 919704 E *01 


SIV 

4 60, 


8036, 

B061, A6101 , 

6 . 1 66777E * 01 


SIV 

461, 


8036, 

6036, A6101 , 

6 . 1 66777K * 01 


SIV 

4 62, 


8040, 

8065, A6101 , 

6 . 1 66777E* 01 
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SIV 

463, 


8036, 

8040, A6101, 6 . 1 66777E+01 


SIV 

464, 


8037, 

8062, A6101, 6.31 6599E+01 


SIV 

465, 


8037, 

8037, A6101, 6 . 3 16599E+01 


SIV 

466, 


8039, 

8064, A6101, 6 . 316599E+0I 


SIV 

467, 


8037, 

8039, A6101 , 6 . 3 1 6599E+01 


SIV 

4 68, 


8038, 

8063, A6101, 6 . 366803E+01 


SIV 

469, 


803B, 

0038, A6101, 6 . 366803E+01 


REM 

RADIAL 

CONDUCTORS REGION 4, LAYER 3 TO LAYER 4 


DIM 

470, 

1,1, 

8051, 24, 

8076, 24 , A6101 , 3. 456367E+00, A6101, 

3. 200432E+00 

DIM 

471, 

1,1, 

8075,24, 

8100, 24, A6301, 3. 456367E+00 , A6301 , 

3 . 200432E+00 

DIM 

472, 

1,1, 

8052,22, 

8077, 22, A6101 , 1.031456E+01,A6101, 

9. 55Q795E+00 

DIM 

473, 

1,1, 

8074,22, 

8099, 22 , A6301, 1 . 031456E+01 , A6301 , 

9. 550795E+00 

DIM 

474, 

1,1, 

8053,20, 

8078, 20, A6101 , 1 . 701007E+01 , A6101 , 

1 . 575Q52E+01 

DIM 

475, 

1,1, 

8073,20, 

8098, 20, A6301 , 1 . 701007E+01 , A6301, 

1 . 575G52E+01 

DIM 

476, 

1,1, 

8054,18, 

807 9, 18, A6101 , 2 . 34 3735E+01 , A6101, 

2. 17Q186E+01 

DIM 

477, 

1,1, 

8072,18, 

8097, 18 , A6301 , 2 . 343735E+01 , A6301, 

2 . 1701 86E+01 

DIM 

478, 

1,1, 

8055, 16, 

0080, 16, A6101 , 2.949496E+01, A6101, 

2.731093E+01 

DIM 

479, 

1,1, 

8071,16, 

8096, 16, A6301 , 2 . 94 94 96E+01 , A6301, 

2 . 731093E+01 

DIM 

480, 

1,1, 

8056,14, 

8081, 14 , A6101 , 3. 508745 E+ 01, A 61 01, 

3 . 248930E+01 

DIM 

481, 

1,1, 

8070,14, 

8095, 14 , A6301 , 3 . 50B745E+01 , A6301 , 

3 . 248930E+01 

DIM 

482, 

1,1, 

8057,12, 

8082, 12 , A6101 , 4 . 012659E+01 , A6101 , 

3 . 715529E+01 

DIM 

483, 

1,1, 

80 69, 12, 

8094, 12, A6301 , 4 . 012659E+01 , A6301 , 

3 . 715529E+01 

DIM 

464, 

1,1, 

8058,10, 

8083, 10, A6101, 4 . 453290E+01 , A6101, 

4 . 123537E+Q1 

DIM 

485, 

1,1, 

6068,10, 

8093, 10, A6301, 4 . 453290E+01 , A6301, 

4 . 123537E+01 

DIM 

486, 

1,1, 

8059, 8, 

8084, 8, A6101 , 4 . 823691E+01 , A6101 , 

4 . 466505E+01 

DIM 

487, 

1,1, 

8067, 8, 

8092, B, A6301 , 4 . 823691E+01 , A6301 , 

4 . 466505E+01 

DIM 

488, 

1,1, 

8060, 6, 

8085, 6, A6101 , 5 . 118018E+01 , A6101 , 

4 . 739043E+01 

DIM 

489, 

1,1, 

8066, 6, 

B091 , 6, A6301 , 5 . 118018E+01 , A6101, 

4 . 739043E+01 

DIM 

4 90, 

1,1, 

8061, 4, 

8086, 4 , A6101 , 5 . 331635E+01 , A6101, 

4. 936835E+01 

DIM 

491, 

1,1, 

8065, 4, 

8090, 4 , A6101 , 5. 331635 E+ 01, A 61 01, 

4. 936035E+Q1 

DIM 

492, 

1,1, 

8062, 2, 

8087, 2 , A6101 , 5 . 4611 66E+01 , A6101, 

5 . 056776E+01 

DIM 

4 93 , 

1,1, 

8064, 2, 

8089, 2 , A61 01 , 5 . 4611 66E+01 , A6101 , 

5 . 05 6776E+01 

DIM 

494, 

1,1, 

8063, 0, 

8068, 0, A6101 , 5. 504570E+01 , A6101 , 

5 . 096970E+01 

REM 

RADIAL 

CONDUCTORS REGION 4, LAYER 4 TO BOUNDARY 4- 5 


SIM 

495, 

1,1, 

8076, 24, 

9001,24, A6101, 2 . 954338E+00 


SIM 

4 96, 

1,1, 

8100, 24, 

9025,24, A6301, 2.954338E+00 


SIM 

4 97, 

1,1, 

B077 , 22, 

9002,22, A6101, 8.816401E+00 


SIM 

4 98, 

1,1, 

8099,22, 

9024,22, A6301, 8.816401E+00 


SIM 

4 99, 

1,1, 

BO 78 , 20, 

9003,20, A6101, 1.453942E+01 


SIM 

5 JO, 

1,1, 

6098,20, 

9023,20, A6301, 1.453942E+01 


SIM 

501, 

1,1, 

8079,18, 

9004,18, A6101, 2 .003314E+01 


SIM 

• :2, 

1,1, 

8097,18, 

9022,18, A6301, 2.003314E+01 


SIM 

5 03, 

1,1, 

8080,16, 

9005,16, A6101 , 2.521091E+01 


SIM 

504, 

1,1, 

0096, 16, 

9021,16, A6301, 2.521091E+01 


SIM 

505, 

1,1, 

8081,14, 

9006,14, A6101, 2 . 999109E+0 1 


SIM 

506, 

1,1, 

8095, 14, 

9020,14, A6301, 2.999109E+01 


SIM 

50 7, 

1,1, 

8082,12, 

9007,12, A6101 , 3 . 429828E+01 


SIM 

5 08, 

1,1, 

8094, 12, 

9019,12, A6301, 3.429828E+01 


SIM 

509, 

1,1, 

8083, 10, 

9006,10, A6101, 3 . 806462E+01 


SIM 

510, 

1,1, 

8093,10, 

9018,10, A6301, 3 . 806462E+01 


SIM 

511, 

1,1, 

8084, 8, 

9009, 8, A6101, 4 . 1 23061E+01 


SIM 

512, 

1,1, 

8092, 8, 

9017, 8, A6301, 4.123061E+01 


SIM 

513, 

1,1, 

6085, 6, 

9010, 6, A6101, 4.374638E+01 


SIM 

514, 

1,1, 

8091, 6, 

9016, 6, A6101, 4 .374 638E + 01 


SIM 

515, 

1,1, 

8086, 4, 

9011, 4, A6101, 4 . 5 57 227E + 01 


SIM 

516, 

1,1, 

8090, 4, 

9015, 4, A6101 , 4 . 557227E-* 01 


SIM 

517, 

1,1, 

8087, 2, 

9012, 2, A6101 , 4.667944EH01 


SIM 

518, 

1,1, 

8089, 2, 

9014, 2, A6101 , 4 .667944E+01 


SIM 

519, 

1,1, 

8088, 0, 

9013, 0, A6101, 4 . 705046E+01 


REM 

CIRCUMFERENTIAL CONDUCTORS; Y- DIRECTION, CONDUCTION 


REM 

CIRCUMFERENTIAL CONDUCTORS REGION 4, LAYER NUMBER 1 


DIV 

5 20, 


8001, 

8002, A6101, 1.246719E+G0, A6101 , 

3 . 720487E+0Q 

DIV 

522, 


8002, 

8003, A6101, 3. 720487 E+ 00, A 61 01, 

6. 135579E+00 

DIV 

524 , 


8003, 

8004, A6101, 6. 135579E+00,A6101, 

8 . 453903E+00 

DIV 

526, 


8004, 

8005, A6101 , 8 . 453903E+00, A6101, 

1 . 063890E+01 

DIV 

528, 


8005, 

8006, A6101 , 1 . 063890E+01,A6101, 

1 . 265613E+01 

DIV 

530, 


0006, 

8007, A6101 , 1.265613E+01,A6101, 

1 . 447375E+01 

DIV 

532, 


8007, 

8008, A6101 , 1 . 447375E+01, A6101, 

1 . 606313E+01 

DIV 

534, 


8008, 

8009, A6101, 1 . 606313E+01, A6101 , 

1 . 739915E+01 

DIV 

536, 


8009, 

8010, A6101, 1. 739915 E+ 01, A6 101, 

1 . 846080E+01 
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DIV 538, 8010, 8011, A6101, 1 . 846080E + 01 , A61Q1 , 1 . 923131E+01 

DIV 540, 8011, 8012, A6101, 1. 923131E+01 , A6101, 1.969855E+01 

DIV 542, 0012, 8013, A6101, 1 . 969855E+01 , A6101 , 1.985509E+01 

REM CIRCUMFERENTIAL CONDUCTOR* REGION 4, LAYER NUMBER 2 
DIV 544, 8026, 8027, A6101, 1 . 24 6719E+00 , A6101 , 3.720487E+00 

DIV 546, 8027, 8028, A6101, 3 . 720487E+00 , A6101 , 6.135579E+00 

DIV 548, 8028, 8029, A6101, 6. 135579E+00 , A6101 , 8.453907E+00 

DIV 550, 8029, 8030, A6101, 8 . 453907E+00 , A6101 , 1.063891E+01 

DIV 552, 8030, 8031, A6101, 1 . 063891E+01 , A6101 , 1.265613E+01 

DIV 554, 8031, 8032, A6101, 1 . 265613E+01 , A6101, 1.447375E+01 

DIV 556, 8032, 8033, A6101, 1 . 447375E+01 , A6101 , 1.606313E+01 

DIV 558, 8033, 8034, A6101, 1 . 606313E+01 , A6101 , 1.739915E+01 

DIV 560, 8034, 8035, A6101, 1 . 739915E+01 , A6101 , 1.846080E+01 

DIV 562, 8035, 8036, A6101, 1 . B4 6080E+01 , A6101 , 1.923132E+01 

DIV 564, 8036, 8037, A6101, 1 . 923132E+01 , A6101, 1.969855E+01 

DIV 566, 8037, 8038, A6101, 1 . 969855E+01 , A6101 , 1.985510E+Q1 

REM CIRCUMFERENTIAL CONDUCTORS REGION 4, LAYER NUMBER 3 
DIV 568, 8051, 8052, A6101, 1 . 24 6719E+00, A6101 , 3.720488E+00 

DIV 570, 8052, 8053, A6101, 3 . 720488E+00, A6101 , 6.135580E+00 

DIV 572, 8053, 8054, A6101, 6 . 13 5580E+00 , A6101 , 8.453905E+00 

DIV 574, 0054, 8055, A6101, 6 . 453905E+00 , A6101 , 1.063891E+01 

DIV 576, 8055, 8056, A6101, 1 . 0638 91 E+01 , A6101 , 1.265613E+01 

DIV 578, 8056, 8057, A6101, 1 . 265613E+01 , A6101 , 1.447375E+01 

DIV 580, 8057, 8058, A6101, 1 . 447375E+01 , A6101 , 1.606313E+01 

DIV 582, 8050, 8059, A6101, 1 . 606313E+01 , A6101, 1.739915E+01 

DIV 584, 3059, 8060, A6101, 1 . 739915E+01 , A6101, 1.846080E+01 

DIV 586, 3060, 8061, A6101, 1 . 84 6080E+01 , A6101, 1.923132E+01 

DIV 588, 3061, 8062, A6101, 1 . 923132E+01 , A6101 , 1.969855E+01 

DIV 590, 3062, 8063, A6101, 1 . 969655E+01 , A6101 , 1.985510E+01 

REM CIRCUMFERENTIAL CONDUCTORS REGION 4, LAYER NUMBER 4 
DIV 592, 8076, 8077, A6101, 1 . 24 6717E+00, A6101, 3.720484E+00 

DIV 594, 8077, 8078, A6101, 3 . 720484E+00 , A6101 , 6.135574E+00 

DIV 596, 8078, 8079, A6101, 6. 135574E+00, A6101, B.453902E+00 

DIV 598, 8079, 8080, A6101, 8 . 453902E+00, A6101, 1.063890E+01 

DIV 600, 8060, 8081, A6101, 1 . 063890E+01 , A6101, 1.265612E+01 

DIV 602, 8061, 8082, A6101, 1 . 265612E+01 , A6101, 1.447374E+01 

DIV 604, 8082, 8083, A6101, 1 . 447374E+01 , A6101, 1.606311E+01 

DIV 606, 8083, 8084, A6101, 1 . 606311E+01 , A6101, 1.739914E+0I 

DIV 608, 8084, 8085, A6101, 1 . 739914E+01 , A6101, 1.846078E+01 

DIV 610, 8085, 8086, A6101, 1 . 846078E+01 , A6101, 1.923131E+01 

DIV 612, 8086, 8087, A6101, 1 . 923131E+01 , A6101, 1.969853E+01 

DIV 614, 8087, 8088, A6101, 1 . 969853E+01 , A6101, 1.985509E+01 

REM RADIAL CONDUCTORS, CONDUCTION 

REM RADIAL CONDUCTORS REGION 5, LAYER 1 TO BOUNDARY 5-4 
SIM 616, 1,1, 9001,24,10001,24, A6101, 3.426590E+00 

SIM 617, 1,1, 9025,24,10025,24, A6301, 3.426590E+00 

SIM 618, 1,1, 9002,22,10002,22, A6101, 1.022570E+01 

SIM 619, 1,1, 9024,22,10024,22, A6301, 1.022570E+01 

SIM 620, 1,1, 9003,20,10003,20, A6101, 1.6B6354E+01 

SIM 621, 1,1, 9023,20,10023,20, A6301, 1.686354E+01 

SIM 622, 1,1, 9004,18,10004,18, A6101, 2.323544E+01 

SIM 623, 1,1, 9022,18,10022,18, A6301, 2.323544E+01 

SIM 624, 1,1, 9005,16,10005,16, A6101, 2.924G88E+01 

SIM 625, 1,1, 9021,16,10021,16, A63G1, 2.924088E+01 

SIM 626, 1,1, 9006,14,10006,14, A6101, 3.478519E+01 

SIM 627, 1,1, 9020,14,10020,14, A6301, 3.478519E+01 

SIM 628, 1,1, 9007,12,10007,12, A6101, 3.978088E+01 

SIM 629, 1,1, 9019,12,10019,12, A6301, 3.978088E+01 

SIM 630, 1,1, 9008,10,10008,10, A6101, 4.414926E+01 

SIM 631, 1,1, 9018', 10, 10018, 10, A6301, 4.414926E + 01 

SIM 632, 1,1, 9009, 8,10009, 8, A6101, 4.782135E+01 

SIM 633, 1,1, 9017, 8,10017, 8, A6301, 4.782135E*01 

SIM 634, 1,1, 9010, 6,10010, 6, A6101, 5.073926E+01 

SIM 635, 1,1, 9016, 6,10016, 6, A6101, 5.073926E+01 

SIM 636, 1,1, 9011, 4,10011, 4, A6101, 5.285699E+01 

SIM 637, 1,1, 9015, 4,10015, 4, A6101, 5.285699E+01 

SIM 638, 1,1, 9012, 2,10012, 2, A6101, 5.414114E+01 

SIM 639, 1,1, 9014, 2,10014, 2, A6101, 5 . 4 14 11 4E+01 

SIM 640, 1,1, 9013, 0,10013, 0, A6101, 5.457147E+01 

REM RADIAL CONDUCTORS REGION 5, LAYER 1 TO LAYER 2 
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DIM 

641, 

1,1,10001,24,10026, 

24, A6101, 

3. 190217 E+ 00, A 61 01, 

2. 977718E+00 

DIM 

642, 

1,1,10025,24, 10050, 

24 , A6301 , 

3 . 198217E+00 , A6301 , 

2 . 977718E+00 

DIM 

643, 

1,1,10002,22,10027, 

22 , A6101 , 

9. 544186 E+ 00, A 61 01, 

8.8861 68E+00 

DIM 

644, 

1,1, 10024,22, 10049, 22, A6301, 

9.544186E+00,A6301, 

6 . 88 61 68E+00 

DIM 

645, 

1,1,10003,20,10028, 

20, A6101, 

1.573963 E+01, A 61 01, 

1 . 465447E+01 

DIM 

646, 

1,1,10023,20,10048, 

20, A63Q1 , 

1 . 57 3 963 E+01, A 6301 , 

1 . 465447E+01 

DIM 

647, 

1,1,10004,18, 10029, 

18, A6101 , 

2. 168666E+01, A6101 , 

2 . 01 9167E+01 

DIM 

64B, 

1,1,10022,18,10047, 

18, A6301 , 

2. 168686E+01 , A6301, 

2 . 01 91 67E+01 

DIM 

649, 

1,1,10005,16,10030, 

16, A6101, 

2 . 72 9204E+01 , A6101 , 

2 . 541042E+01 

DIM 

650, 

1,1,10021,16,10046, 

16, A6301, 

2 . 72 92 04 E+01 , A6301 , 

2 . 541042E+01 

DIM 

651, 

1,1,10006,14,10031, 

14, A6101 , 

3. 246680 E+01, A6101, 

3 . 022842E+01 

DIM 

652, 

1,1,10020,14,10045, 

14 , A6301 , 

3. 246680 E+01, A 63 01, 

3 . 022842E+01 

DIM 

653, 

1,1,10007,12,10032, 

12 , A61 01 , 

3. 712958 E+01, A6101, 

3 . 456970E+01 

DIM 

654, 

1,1,10019,12,10044, 

12, A6301 , 

3. 7129 58 E+01, A6301, 

3 . 456970E+01 

DIM 

655, 

1,1,10008, 10, 10033, 

10, A6101 , 

4. 120682 E+01, A 61 01, 

3 . 836584E+01 

DIM 

656, 

1,1,10018,10, 10043, 

10, A6301, 

4. 120682 E+01, A 63 01, 

3 . 83 6584E+01 

DIM 

657, 

1,1,10009, 8,10034, 

8 , A6101 , 

4. 463416 E+01, A61 01 , 

4 . 15568BE+0I 

DIM 

658, 

1,1,10017, 8,10042, 

8, A6301, 

4. 463416 E+01, A6301, 

4 . 155688E+01 

DIM 

659, 

1,1,10010, 6,10035, 

6, A6101 , 

4. 735760 E+01, A6101 , 

4 . 409256E+01 

DIM 

660, 

1,1,10016, 6,10041, 

6, A6101 , 

4 .73576QE+01, A6101, 

4 . 409256E+01 

DIM 

661, 

1,1,10011, 4,10036, 

4, A6101 , 

4 . 933423E+01 , A6101, 

4 . 593289E+01 

DIM 

662, 

1,1,10015, 4,10040, 

4, A6101 , 

4. 933423 E+01 , A6101 , 

4 . 593289E+01 

DIM 

663, 

1,1,10012, 2,10037, 

2, A6101 , 

5. 053278 E+01, A61 01, 

4 . 704883E+01 

DIM 

664, 

1,1,10014, 2,10039, 

2, A6101 , 

5. 053278 E+01, A6101 , 

4 . 704883E+01 

DIM 

665, 

1,1,10013, 0,10038, 

, 0 , A6101 , 

5 . 093439E+01 , A 6101, 

4 . 742279E+01 

REM 

RADIAL 

CONDUCTORS REGION ! 

5, LAYER 

2 TO LAYER 3 



DIM 666, 1,1, 10026, 24, 10051, 24, A6101, 2.765093E+00,A6101, 2.560345Et00 
DIM 667, 1,1, 10050, 24, 10075,24, A6301, 2.765093E+00,A6301, 2.560345E+00 
DIM 668, 1,1, 10027, 22, 10052, 22, A6101, 8.251652E+00,A6101, 7.640636E+00 
DIM 669, 1,1, 10049, 22,10074, 22, A6301, 8.251652E+00.A6301, 7.640636E+00 
DIM 670, 1,1, 10028, 20, 10053, 20, A6101, 1.360807E+01,A6101, 1.260043E+01 
DIM 671, 1,1, 10048, 20, 10073, 20, A6301, 1 . 360807E+01 , A6301, 1.260043E+01 
DIM 672, 1,1, 10029, 18, 10054, 18, A6101, 1.874988E+01,A6101, 1.736150E+01 
DIM 673, 1,1, 10047, 18, 10072, 18, A6301, 1 . B74988E+01, A6301, 1 . 736150E+01 
DIM 674, 1,1, 10030, 16, 10055, 16, A6101, 2 . 359598E-MU , A6101, 2.1B4B75E+01 
DIM 675, 1 , 1 , 10046, 16, 10071, 16, A6301, 2 . 3595 98E+01, A6301, 2.1B4875E+01 
DIM 676, 1,1, 10031, 14, 10056, 14, A6101, 2 . 806998E+01, A6101, 2.599146E+01 
DIM (77, 1,1, 10045, 14, 10070, 14, A6301, 2 . 806998E+01, A6301, 2.599146E+01 
DIM (7 B, 1, 1, 10032,12,10057, 12, A6101, 3 . 210129E+01 , A6101, 2.972426E+01 
DIM 6/9, 1,1, 10044,12, 10069, 12, A6301, 3 . 210129E+01 , A6301, 2.-972426E+01 
DIM 680, 1,1, 10033, 10, 10058, 10, A6101, 3. 562631E+01 , A6101, 3.29882BE+01 
DIM 681, 1 , 1 , 10043,10,10068, 10, A6301, 3. 562631E+01 , A6301, 3.298828E+01 
DIM 682, 1,1,10034, 8,10059, B.A6101, 3 . 858951E+01 , A6101 , 3.573203E+01 
DIM 68), 1,1,10042, 9,10067, B,A6301, 3 . 858951E+01 , A6101, 3.573203E+01 
DIM 684, 1,1,10035, 6,10060, 6.A6101, 4 . 094415E601 , A6101, 3.791232E+01 
DIM 687, 1,1,10041, 6,10066, 6,A6101, 4 . 094415E+01 , A6101, 3.791232E+01 
DIM 686, 1,1,10036, 4,10061, 4.A6101, 4 . 265305E+01 , A6101, 3.949469E+01 
DIM 687, 1,1,10040, 4,10065, 4,A6101, 4 . 265305E+01 , A6101, 3.949469E+01 
DIM 688, 1,1,10037, 2,10062, 2,A6101, 4 . 368933E+01 , A6101, 4.045422E+01 
DIM 689, 1,1,10039, 2,10064, 2,A6101, 4 . 368933E+01 , A6101, 4.045422E+01 
DIM 690, 1,1,10038, 0,10063, 0,A6101, 4 . 403656E+01 , A6101, 4.077573E+01 
REM RADIAL CONDUCTORS REGION 5, LATER 3 TO LATER 4 

DIM 691, 1 , 1 , 10051, 24, 10076, 24, A6101, 2.363470E+00,A6101, 2.174473E+00 
DIM 692, 1,1, 10075, 24, 10100, 24, A6301, 2 . 363470E+ 00, A6301 , 2.174473E+00 
DIM 693, 1,1, 10052, 22, 10077, 22, A6101, 7.053120E(0O,A6101, 6.489105E+00 
DIM 694, 1 , 1 , 10074, 22, 10099, 22, A6301, 7.053120E+00,A6301, 6.489105E+00 
DIM 695, 1,1, 10053, 20, 10078, 20, A6101, 1 . 163154E+01, A6101, 1.070140E+01 
DIM 696, 1,1, 10073, 20, 10098, 20, A6301, 1.163154E+01,A6301, 1.070140E601 
DIM 697, 1,1, 10054, 18, 10079, 18, A6101, 1 . 602650E+01 , A6101 , 1 . 4744 93E+01 
DIM 698, 1 , 1 , 10072, 18, 10097, IB, A6301, 1. 602650E+01, A6301 , 1.474493E+01 
DIM 699, 1,1,10055, 16, 10080, 16, A6101, 2.016873E+01 ,A6101, 1.855589E+01 
DIM 700, 1,1, 10071, 16, 10096, 16, A6301, 2 . 01 6873E+01, A6301, 1.855589E+01 
DIM 701, 1 , 1 , 10056,14, 10081,14, A6101, 2 . 399287E+01, A6101, 2.207425E+01 
DIM 702, 1,1, 10070, 14, 10095, 14, A6301, 2.399287E+01,A6301, 2. 207425E601 
DIM 703, 1 , 1 , 10057, 12, 10082, 12, A6101, 2.743B64E+01,A6101, 2.524448E+01 
DIM 704, 1,1, 10069, 12, 10094, 12, A6301, 2.743864E+01,A6301, 2.524448E+01 
DIM 705, 1 , 1 , 10058, 10,10083, 10, A6101, 3.045172E+01,A6101, 2.801659E+01 
DIM 706, 1,1, 10068, 10, 10093, 10, A6301, 3 . 045172E+01, A6301, 2.801659E+01 
DIM 707, 1,1,10059, 8,10084, 8.A6101, 3. 2984 50E+01, A6101, 3.034685E601 
DIM 708, 1,1,10067, 8,10092, B,A6101, 3 . 2984 50E+01 , A61 01 , 3.034685E+01 
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DIM 709, 1,1,10060, 6,10085, 6,A6101, 3 . 499710E+01, A6101, 3.219852E+01 
DIM 710, 1,1,10066, 6,10091, 6,A6101, 3 . 499710E+01, A6101, 3.219B52E+01 
DIM 711, 1,1,10061, 4,10086, 4,A6101, 3 . 64 5779E+01 , A6101, 3.354242E+01 
DIM 712, 1,1,10065, 4,10090, 4,A6101, 3 . 64 5779E+01 , A6101 , 3.354242E+01 
DIM 713, 1,1,10062* 2,10087, 2,A6101, 3. 734354E+01, A6101, 3.435733E+01 
DIM 714, 1,1,10064, 2,10089, 2,A6101, 3. 734354E+01, A6101, 3.435733E+01 
DIM 715, 1,1,10063, 0,10088, 0,A6101, 3. 764035E+01 , A6101, 3.463037E+01 
REM RADIAL CONDUCTORS REGION 5, LAYER 4 TO LAYER 5 

DIM 716, 1,1, 10076, 24, 10101, 24, A6101, 1 . 993349E+00, A6101, 1.820100E+00 
DIM 717, 1,1, 10100, 24, 10125, 24, A6301, 1 . 993349E+00 , A6301 , 1.820100E+00 
DIM 718, 1, 1,10077, 22, 10102, 22, A6101, 5. 948589E+00, A6101, 5.431578E+00 
DIM 719, 1, 1,10099, 22, 10124, 22, A6301, 5 . 948589E+00 , A6301, 5.431578E+00 
DIM 720, 1,1, 10078, 20, 10103, 20, A6101, 9. 810020E+00, A6101, 8.957396E+00 
DIM 721, 1, 1,10098, 20, 10123, 20, A6301, 9. 810020E+00, A6301, 8.957396E+00 
DIM 722, 1,1, 10079, 18, 10104, 18, A6101, 1 . 351674E+01, A6101, 1.234195E+01 
DIM 723, 1,1, 10097, 18, 10122, 18, A6301, 1 . 351674E+01 , A6301, 1.234195E+01 
DIM 724, 1, 1, 10080, 16, 10105, 16, A6101, 1 . 701027E+01 , A6101, 1.5531B6E+01 
DIM 725, 1,1, 10096, 16,10121, 16, A6301, 1 . 701027E+01 , A6301, 1.553186E+01 
DIM 726, 1,1, 10001, 14, 10106,14, A6101, 2. 023557E+01, A6101, 1.847681E+01 
DIM 727, 1,1, 10095, 14, 10120, 14, A6301, 2 . 023557E+01 , A6301, 1.847681E+01 
DIM 728, 1,1,10082,12, 10107, 12, A6101, 2 . 31 4172E+01 , A6101, 2.113039E+01 
DIM 729, 1, 1, 10094, 12, 10119, 12, A6301, 2 . 314172E+01 , A6301, 2.113039E+01 
DIM 730, 1,1, 10083, 10, 10108, 10, A6101, 2 . 568294E+01 , A6101, 2.345074E+01 
DIM 731, 1, 1,10093, 10, 10118, 10, A6301, 2 . 568294E+01 , A6101, 2.345074E+01 
DIM 732, 1,1,10084, 8,10109, 8,A6101, 2 . 781908E+01 , A6101, 2.540123E+01 
DIM 733, 1,1,10092, 8,10117, 8,A6101, 2. 781908E+01 , A6101, 2.540123E+01 
DIM 734, 1,1,10085, 6,10110, 6,A6101, 2 . 951653E+01 , A6101, 2.695114E+01 
DIM 735, 1,1,10091, 6,10116, 6,A6101, 2 . 951653E+01 , A6101 , 2.695114E+01 
DIM 736, 1,1,10086, 4,10111, 4,A6101, 3 . 074847E+01 , A6101 , 2.807602E+01 
DIM 737, 1,1,10090, 4,10115, 4,A6101, 3 . 07 4847E+01 , A6101 , 2.807602E+01 
DIM 738, 1,1,10087, 2,10112, 2,A6101, 3 . 14 9551E+01 , A6101 , 2.875812E+01 
DIM 739, 1,1,10089, 2,10114, 2,A6101, 3 . 14 9551E+01 , A6101 , 2.875812E+01 
DIM 740, 1,1,10088, 0,10113, 0,A6101, 3 . 174583E+01 , A6101 , 2.898669E+01 
REM RADIAL CONDUCTORS REGION 5, LAYER 5 TO LAYER 6 

DIM 741, 1,1,10101, 24, 10126, 24, A6101, 1 . 654726E+00, A6101, 1.497227E+00 
DIM 742, 1,1,10125,24,10150, 24, A6301, 1 . 65 4726E+00 , A6301 , 1.497227E+00 
DIM 743, 1, 1, 10102', 22, 10127, 22, A6101, 4 . 938065E+00, A6101, 4.468052E+00 
DIM 744, 1, 1, 10124, 22, 10149, 22, A6301, 4 . 938065E+00, A6301, 4.468052E+00 
DIM 745, 1,1, 10103,20,10128, 20,A6101, 8 . 143528E+00, A6101, 7.368414E+00 
DIM 746, 1,1, 10123,20, 10148, 20, A6301, 8 . 143528E+00, A6301, 7.368414E+00 
DIM 747, 1,1, 10104, 18, 10129, 18, A6101, 1 . 122056E+01 , A6101, 1.015257E+01 
DIM 748, 1, 1, 10122, 18, 10147, 18, A6301, 1 . 122056E+01 , A6301 , 1.015257E+01 
DIM 49, 1, 1, 10105,16, 10130, 16, A6101, 1 . 41 2063E+01 , A6101 , 1.277661E+01 
DIM ,50, 1,1, 10121, 16, 10146, 16, A6301, 1 . 412063E+01 , A6301, 1.277661E+01 
DIM 751, 1,1 , 10106, 14, 10131, 14, A6101, 1 . 679800E+01, A6101, 1.519916E+01 
DIM 752, 1,1, 10120, 14, 10145, 14, A6301, 1 . 67 9800E+01 , A6301 , 1.S19916E+01 
DIM 753, 1,1, 10107, 12, 10132, 12, A6101, 1 . 921048E+01 , A6101, 1.738200E+01 
DIM 754, 1,1, 10119,12, 10144, 12, A6301, 1 . 921048E+01 , A6301, 1.738200E+01 
DIM 755, 1,1,10108,10, 10133, 10,A6101, 2 . 132001E+01 , A6101 , 1.929074E+01 
DIM 756, 1,1, 10118,10, 10143, 10, A6101, 2 . 132001E+01 , A6101, 1.929074E+01 
DIM 757, 1,1,10109, 8,10134, 8,A6101, 2. 309328E+01 , A6101, 2.089522E+01 
DIM 758, 1,1,10117, 8,10142, 8,A6101, 2 . 30 9328E+01 , A6101 , 2.089522E+01 
DIM 759, 1,1,10110, 6,10135, 6,A6101, 2 . 450237E+01 , A6101, 2.217020E+01 
DIM 760, 1,1,10116, 6,10141, 6,A6101, 2 . 450237E+01 , A6101 , 2.217020E+01 
DIM 761, 1,1,10111, 4,10136, 4,A6101, 2 . S52504E+01 , A6101 , 2.309552E+01 
DIM 762, 1,1,10115, 4,10140, 4,A6101, 2 . S52504E+01 , A6101 , 2.309552E+01 
DIM 763, 1,1,10112, 2,10137, 2,A6101, 2 . 61 451 6E+01 , A6101 , 2.365663E+01 
DIM 764, 1,1,10114, 2,10139, 2,A6101, 2. 61 451 6E+01 , A6101, 2.365663E+01 
DIM 765, 1,1,10113, 0,10138, 0,A6101, 2. 635297E+01, A6101, 2.384465E+01 
REM RADIAL CONDUCTORS REGION 5, LAYER 6 TO LAYER 7 

DIM 766, 1, 1,10126, 24, 10151, 24, A6101, 1 . 347602E+00 , A6101 , 1.205853E+00 
DIM 767, 1, 1, 10150, 24,10175, 24, A6301, 1 .347602E+00, A6301, 1.205853E+00 
DIM 768, 1,1, 10127, 22, 10152, 22, A6101, 4 . 021540E+00 , A6101 , 3.598530E+00 
DIM 769, 1,1,10149,22, 10174, 22,A6301, 4 . 021540E+00 , A6301, 3.598530E+00 
DIM 770, 1,1,10128,20, 10153, 20,A6101, 6. 632057E+00,A6101, 5.934456E+00 
DIM 771, 1,1, 10148, 20, 10173, 20, A6301, 6. 632057E+00, A6301, 5.934456E+00 
DIM 772, 1,1,10129, 18, 10154, 18, A6101, 9. 137983E+00, A6101, 8.176792E+00 
DIM 773, 1, 1, 10147,18, 10172, 18, A6301, 9. 137983E+00, A6301, 8.176792E+00 
DIM 774, 1, 1,10130, 16, 10155, 16, A6101, 1. 149979E+01 , A6101, 1.029017E+01 
DIM 775, 1, 1, 10146, 16, 10171 , 1 6, A6301 , 1 . 14 9979E+01 , A6301 , 1.029017E+01 
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DIM 776, 1,1, 10131,14, 10156, 14, A6101, 1.368024E+01,A6101, 1.224127E+01 
DIM 777, 1,1, 10145, 14, 10170, 14, A6301, 1 . 368024E+ 01, A6301, 1.224127E+01 
DIM 778, 1,1,10132,12, 10157, 12, A6101, 1 . 5644 95E+01, A6101, 1.399932E+01 
DIM 779, 1,1, 10144, 12 , 101*9, 12 , A6301, 1 . 5644 95E+01, A6101, 1.399932E+01 
DIM 780, 1,1, 10133, 10, 10158, 10, A6101, 1 . 736293E+01, A6101, 1.553659E+01 
DIM 781, 1,1, 10143, 10, 10168, 10, A6101, 1.736293E+01,A6101, 1.553659E+01 
DIM 782, 1,1,10134, 8,10159, 8,A6101, 1 . 880707E+01, A6101, 1.682883E+01 
DIM 783, 1,1,10142, 8,10167, 8,A6101, 1 . 880707E+01, A6101, 1.682883E+01 
DIM 784, 1,1,10135, 6,10160, 6,A6101, 1 . 995462E+01, A6101, 1.785567E+01 
DIM 785, 1,1,10141, 6,10166, 6,A6101, 1 . 995462E+01,A6101, 1.785567E+01 
DIM 786, 1,1,10136, 4,10161, 4,A6101, 2.078749E*01,A6101, 1.860092E+01 
DIM 787, 1,1,10140, 4,10165, 4,A6101, 2 . 078749E+01 , A6101, 1.860092E+01 
DIM 788, 1,1,10137, 2,10162, 2,A6101, 2 . 129253E101, A6101, 1.905284E+01 
DIM 789, 1,1,10139, 2,10164, 2,A6101, 2. 129253E+01 , A6101, 1.905284E+01 
DIM 790, 1,1,10138, 0,10163, 0,A6101, 2 . 146175E+01, A6101, 1.920427E+01 


REM 

RADIAL 

CONDUCTORS REGION 5, LAYER 

7 TO LAYER 8 

9. 459796E-01 

DIM 

791, 

1,1, 10151, 24, 10176, 24, A6101, 

1 . 071979E+00, A6101 , 

DIM 

792, 

1 , 1 , 10175,24,10200, 24,A6301, 

1 . 071979E+00, A6301, 

9. 459796E-01 

DIM 

793, 

1, 1,101 52, 22, 10177, 22, A61 01, 

3 . 199020E+00, A6101 , 

2 . 823009E+00 

DIM 

794, 

1,1,10174,22, 10199, 22,A6301, 

3. 199020 E+ 00, A 63 01, 

2.823009E+00 

DIM 

795, 

1,1,10153,20, 10178, 20, A61 01 , 

5. 275610 E+ 00, A 61 01, 

4 . 655519E+00 

DIM 

796, 

1,1,10173,20,10198, 20 , A6301 , 

5.275610E+00, A6301, 

4 . 655519E+00 

DIM 

7 97, 

1,1,10154,18, 10179, 18, A6101, 

7. 26 90 03 E+ 00, A 61 01, 

6 . 41461QE+0Q 

DIM 

798, 

1,1, 10172, 18, 10197, IB, A6301, 

7. 269003E+00, A6301, 

6. 414610E+00 

DIM 

799, 

1,1, 10155, 16, 10180,1 6, A6101, 

9. 147751E+00,A6101, 

8 . 072533E+00 

DIM 

600, 

1,1,10171,16, 10196, 16, A6301, 

9.147751E+0Q,A6101, 

8 . 072533E+00 

DIM 

801, 

1 , 1 , 10156-, 14, 10181, 14 , A61 01 , 

1. 088224 E+ 01, A6101 , 

9. 603149E+Q0 

DIM 

802, 

1,1,10170,14, 10195, 14 , A6301 , 

1. 088224 E+ 01, A 61 01, 

9. 603149E+00 

DIM 

803, 

1,1,10157,12, 10182, 12 , A6101 , 

1 . 244511E+01, A6101, 

1 . 098232E+01 

DIM 

804, 

1, 1,10169,12, 10194, 12, A6101, 

, 1. 244511 E+ 01, A6101, 

1 . 098232E+01 

DIM 

805, 

1,1,10158,10, 10183, 10, A6101 , 

, 1.381171 E+01,A6 101, 

1 . 218830E+01 

DIM 

806, 

1, 1,10168, 10, 10193, 10, A6101, 

r 1 .381171E+01,A6101, 

1 . 218830E+01 

DIM 

607, 

1,1,10159, 8,10184, 8 , A6101 , 

r 1 . 496049E+01,A6101, 

1 . 320205E+01 

DIM 

808, 

1,1,10167, 8,10192, 8 , A6101 , 

, 1 . 496049E+01 , A6101 , 

1 . 320205E+01 

DIM 

809, 

1,1,10160, 6,10185, 6, A61 01 , 

r 1. 587334 E+ 01, A6101, 

1 . 4007 60E+01 

DIM 

810, 

1,1,10166, 6,10191, 6, A6101 , 

, 1. 5873 34 E+ 01, A 61 01, 

1 „ 40076QE+01 

DIM 

811, 

1,1,10161, 4,10186, 4 , A61 01 , 

, 1. 653584E+01,A6101, 

1 . 459224E+01 

DIM 

812, 

1,1,10165, 4, 101 90, 4 , A6101 , 

, 1. 65 3584 E+ 01, A 61 01, 

1 . 459224E+01 

DIM 

813, 

1,1,10162, 2,10187, 2 , A6101 , 

, 1. 693758 E+ 01 , A6101, 

1 . 4 94676E+01 

DIM 

814, 

1,1,10164, 2,10189, 2, A6101 , 

, 1.693758E+01 , A6101 , 

1 . 494676E+01 

DIM 

REM 

815, 

RADIAL 

1,1,10163, 0,10108, 0, A6101 
CONDUCTORS REGION 5, LAYER 

, 1. 707220 E+ 01, A6 101, 
6 TO LAYER 9 

1 . 506556E+01 


DIM 816, 1,1, 10176, 24, 10201, 24, A6101, 8 . 278551E-01 , A6101, 7.176057E-01 

DIM 817, 1 , 1 , 10200, 24, 10225, 24, A6301, 8 . 278551E-01 , A6301, 7.176057E-01 

DIM 818, 1,1, 10177, 22, 10202, 22, A6101, 2 . 4704 99E+00, A6101, 2.141491E+00 

DIM 819, 1,1, 10199, 22, 10224, 22, A6301, 2 . 470499E+00, A6101, 2.141491E+00 

DIM 820, 1,1, 10178, 20, 10203, 20, A6101, 4.074184E+00,A6101, 3.531607E+00 

DIM 821, 1,1,10198,20, 10223, 20, A6301, 4.074184E+00,A6101, 3.531607E+00 

DIM 622, 1 , 1 , 10179, 18,10204, 18, A6101, 5. 613619E+00,A6101, 4.866026E+00 

DIM 823, 1, 1,10197, 18, 10222, 18, A6301, 5 . 613619E+00, A6101, 4.866026E+00 

DIM 824, 1,1, 10180, 16, 10205, 16, A6101, 7 . 064514E+00, A6101 , 6.123699E+00 

DIM 825, 1,1, 10196, 16, 10221, 16, A6101, 7 . 064514E+00, A6101, 6.123699E+00 

DIM 826, 1,1, 10181, 14, 10206, 14, A6101, 8 . 404005E+00, A6101, 7.284601E+00 

DIM 827, 1,1, 10195, 14, 10220,14, A6101, 8 . 404005E+00, A6101, 7.284801E+00 

DIM 828, 1,1,10182,12, 10207, 12, A6101, 9. 610958E+00,A6101, 8.331018E+00 

DIM 929, 1 , 1 , 10194, 12,10219,12, A6101, 9. 610958EtOO, A6101, 8.331018E+00 

DIM 830, 1,1, 10183, 10, 10208, 10, A6101, 1 . 06663SE+01 , A6101, 9.245857E+00 

DIM 831, 1,1, 10193, 10, 10218, 10, A6101, 1 . 066635E+01 , A6101, 9.245857E+00 

DIM 832, 1,1,10184, 8,10209, 8,A6101, 1 . 155351E+01 , A6101, 1.001487E+01 

DIM 833, 1,1,19192, 8,10217, 8,A6101, 1 . 155351E+01, A6101, 1.001487E+01 

DIM 834, 1,1,10185, 6,10210, 6.A6101, 1 . 225847E+01,A6101, 1.062595E+01 

DIM 835, 1,1,10191, 6,10216, 6,A6101, 1 . 225847E+01,A6101 , 1.062595E+01 

DIM 636, 1,1,10186, 4,10211, 4.A6101, 1 . 27 70UE+01, A6101, 1.106945E+01 

DIM 637, 1,1,10190, 4,10215, 4,A6101, 1 . 2770UE+01 , A6101 , 1.106945E+01 

DIM 838, 1,1,10187, 2,10212, 2,A6101, 1 . 308036E+01, A6101, 1.133838E+01 

DIM 839, 1,1,10189, 2,10214, 2,A6101, 1 ,308036E+01,A6101, 1.133838E+01 

DIM 840, 1,1,10188, 0,10213, 0,A6101, 1,318432E+01,A6101, 1.1428S0E+01 

REM RADIAL CONDUCTORS REGION 5, LAYER 9 TO LAYER 10 

DIM 841, 1,1, 10201, 24, 10226,24, A6101, 6. 15231 2E-01 , A6101 , 5.207317E-01 

DIM 842, 1,1, 10225, 24, 10250, 24, A6301, 6. 152312E-01,A6101, 5.207317E-01 


87 


DIM 843, 1,1, 10202, 22, 10227, 22, A6101, 1 . 83 5985E+00, A6101, 1.553978E+00 
DIM 844, 1,1, 10224, 22, 10249,22, A6101, 1 . 83 5985E+00, A6101, 1.553978E+00 
DIM 845, 1,1, 10203, 20, 10228,20, A6101, 3. 027784E+00, A6101, 2.562716E+00 
DIM 846, 1, 1,10223,20, 10248, 20, A6101, 3. 027784E+00, A6101, 2.562716E+00 
DIM 847, 1,1, 10204,18, 10229, 18, A6101, 4 . 171833E+00, A6101, 3.531038E+00 
DIM 848, 1,1,10222, 18, 10247, 18, A6101, 4. 171833E+00, A6101, 3.531038E+00 
DIM 849, 1, 1, 10205, 16, 10230, 16, A6101, 5. 250086E+00, A6101, 4.443672E+00 
DIM 850, 1,1, 10221, 16, 10246, 16, A6101, 5 . 250086E+00 , A6101 , 4.443672E+00 
DIM 851, 1,1, 10206,14, 10231, 14,A6101, 6. 245544E+00, A6101, 5 . 286228E+ 00 
DIM 852, 1,1, 10220, 14,10245, 14,A6101, 6. 245544E+00, A6101, 5.2B6228E+00 
DIM 853, 1,1, 10207,12, 10232, 12, A61Q1, 7. 142506E+00, A6101, 6.045418E+Q0 
DIM 854, 1,1, 10219, 12, 10244, 12, A6101, 7. 142506E+00, A6101, 6.045418E+00 
DIM 855, 1,1, 10208,10, 10233, 10, A6101, 7. 926832E+00, A6101, 6.709270E+00 
DIM 856, 1,1,10218,10, 10243, 10, A6101, 7 . 926832E+00, A6101, 6.709270E+00 
DIM 857, 1,1,10209, 8,10234, 8,A6101, 8. 5B6138E+00, A6101, 7.267307E+00 
DIM 856, 1,1,10217, 8,10242, 8,A6101, 8. 586138E+00, A6101, 7 . 267307E+00 
DIM 859, 1,1,10210, 6,10235, 6,A6101, 9. 110041E+00, A6101, 7.710737E+00 
DIM 860, 1,1,10216, 6,10241, 6,A6101, 9. 110041E+00, A6101, 7.710737E+00 
DIM 861, 1,1, 1021 1^ 4,10236, 4,A6101, 9 . 490273E+00, A6101, 8.032566E+00 
DIM 862, 1,1,10215, 4,10240, 4,A6101, 9. 490273E+00, A6101, 8.032566E+00 
DIM 863, 1,1,10212, 2,10237, 2,A6101, 9 . 720B39E+QD, A6101, 8.227716E+00 
DIM 864, 1,1,10214, 2,10239, 2,A6101, 9 . 720839E+00, A6101, 8.227716E+00 
DIM 865, 1,1,10213, 0,10238, 0,A6101, 9 . 798100E+00, A6101, B.293112E+00 
REM RADIAL CONDUCTORS REGION 5, LAYER 10 TO LAYER 11 

DIM 866, 1,1,10226,24, 10251, 24,A6101, 4 . 341072E-01 , A6101, 3.553575E-01 
DIM 867, 1, 1, 10250, 24, 10275, 24, A6101, 4. 341072E-01, A6101, 3.553575E-01 
DIM 868, 1,1, 10227, 22,10252, 22, A6101, 1 . 295471 E+00 , A6101 , 1.060465E+00 
DIM 869, 1,1, 10249, 22, 10274, 22, A6101, 1 . 295471E+00, A6101, 1.060465E+00 
DIM 870, 1,1, 10228, 20,10253, 20, A6101, 2 . 13 6402E+00 , A6101 , 1.74884BE+00 
DIM 871, 1,1, 10248, 20, 10273, 20, A6101, 2 . 13 6402E+00 , A6101 , 1.748848E+00 
DIM 872, 1,1, 10229, 18, 10254, 18, A6101, 2 . 943645E+00 , A6101 , 2.409649E+00 
DIM 873, 1, 1,10247, IB, 10272, 18, A6101, 2 . 943645E+00 , A6101 , 2.409649E+00 
DIM 874, 1,1, 10230,16, 10255, 16, A6101, 3 . 7044 58E+00 , A6101 , 3.032448E+00 
DIM 875, 1,1, 10246,16, 10271, 16, A6101, 3 . 704458E+00, A6101 , 3.032448E+00 
DIM 876, 1,1,10231,14, 10256, 14, A6101, 4 . 40 68 55E+00 , A6101 , 3.607426E+00 
DIM 877, 1,1,10245, 14, 10270, 14, A6101, 4 . 40 6855E+00 , A61 01 , 3.607426E+00 
DIM 878, 1,1, 10232, 12, 10257, 12, A6101, 5 . 03 97 53E+00 , A6101 , 4.125511E+00 
DIM 879, 1,1,10244,12, 10269, 12, A6101, 5 . 03 97 53E+00, A6101 , 4.1255UE+00 
DIM 880, 1,1,10233,10, 10258, 10, A6101, 5 . 593172E400 , A6101 , 4.578539E+00 
DIM 881, 1, 1,10243, 10, 10268, 10, A6101, 5 . 593172E+00 , A6101 , 4.S78539E+00 
DIM 882, 1,1,10234, 8,10259, 8,A6101, 6. 058378E+0G , A6101 , 4.959352E+00 
DIM 883, 1,1,10242, 8,10267, 8,A6101, 6 . 058378E+00 , A6101 , 4.959352E+00 
DIM 884, 1,1,10235, 6,10260, 6,A6101, 6 . 428043E+00 , A6101 , 5.261959E+00 
DIM 885, 1,1,10241, 6,10266, 6,A6101, 6 . 428043E+00 , A6101 , 5.261959E+00 
DIM 886, 1,1,10236, 4,10261, 4,A6101, 6. 696335E+00, A6101, 5.481581E+00 
DIM 887, 1,1,10240, 4,10265, 4,A6101, 6 . 696335E+00 , A6101 , 5.481581E+00 
DIM 868, 1,1,10237, 2,10262, 2,A6101, 6 . 85 9022E4 00 , A6101 , 5.614756E+00 
DIM 889, 1,1,10239, 2,10264, 2,A6101, 6 . 85 9022E+00 , A61 01 , 5.614756E+00 
DIM 890, 1,1,10238, 0,10263, 0,A6101, 6 . 91 3536E+00 , A6101 , 5.659382E+00 
REM RADIAL CONDUCTORS REGION 5, LAYER 11 TO LAYER 12 

DIM 891, 1,1, 10251,24, 10276, 24, A6101, 2 . 84 48 29E-01 , A61 01 , 2.214831E-01 
DIM b 92, 1,1, 10275, 24, 10300, 24, A61Q1, 2 . 84 4828E-01 , A61 01 , 2.214831E-01 
DIM 693, 1,1, 10252,22, 10277, 22,A6101, 8.489596E-01 ,A6101, 6.609547E-01 
DIM 894, 1,1, 10274,22, 10299, 22, A6101, 8 . 48 95 96E-01 , A6101 , 6.609547E-01 
DIM 895, 1,1,10253,20, 10278, 20, A6101, 1 . 400047E+00, A6101, 1.090002E+00 
DIM 896, 1, 1, 10273, 20, 10298, 20, A6101, 1 . 400047E+00 , A6101 , 1.090002E+00 
DIM 897, 1,1, 10254, 18, 10279, 18, A6101, 1 . 9290 55E+00 , A6101 , 1.501860E+Q0 
DIM 898, 1, 1,10272, 18, 10297, 18, A6101, 1 . 929055E+00, A6101 , 1.501860E+00 
DIM 399, 1, 1,10255,16, 10280, 16, A6101, 2 . 427639E+00, A6101, 1.890031E+Q0 
DIM 900, 1,1, 10271, 16, 10296, 16, A6101, 2. 427639E+00, A6101, 1.890031E+00 
DIM 901 , 1, 1,10256, 14, 10281, 14,A6101, 2 . 887938E+00, A6101, 2.248394E+00 
DIM ^02, 1,1, 10270, 14, 10295, 14, A6101, 2 . 887938E+00, A6101 , 2.248394E+00 
DIM 903, 1, 1,10257, 12, 10202, 12, A61 01, 3 . 302694E+00, A6101 , 2.571302E+00 
DIM 904, 1,1, 10269,12, 10294, 12, A6101, 3 . 302694E+00, A6101 , 2.571302E+00 
DIM 905, 1,1,10258, 10, 10283, 10, A6101, 3 . 6653 65E+00 , A6101 , 2.853657E+00 
DIM 906, 1, 1,10268,10,10293, 10,A6101, 3. 665365E+00, A6101, 2.853657E+00 
DIM 907, 1,1,10259, 8,10284, 8,A6101, 3. 970228E+00, A6101, 3.091009E+00 
DIM 908, 1,1,10267, 8,10292, 8,A6101, 3. 970228E+00, A6101, 3.091009E400 
DIM 909, 1,1,10260, 6,10285, 6,A61Q1, 4 . 212481E+00, A6101, 3.279613E+00 
DIM 910, 1,1,10266, 6,10291, 6,A6101, 4 . 21 24 81E+00 , A6101 , 3.279613E+00 
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DIM 

911, 

1,1,10261, 4,10286, 4,A6101, 4 

DIM 

912, 

1,1,10265, 4,10290, 4,A6101, * 

DIM 

913, 

1,1,10262, 2,10287, 2,A6101, i 

DIM 

914, 

1,1,10264, 2,10289, 2,A6101, < 

DIM 

915, 

1,1,10263, 0,10288, 0,A6101, ' 

REM RADIAL 

CONDUCTORS REGION 5, LAYER 12 

DIM 

916, 

1,1, 10276, 24, 10301, 24, A6101, : 

DIM 

917, 

1,1,10300', 24, 10325, 24, A6101, : 

DIM 

918, 

1,1, 10277, 22, 10302, 22, A6101, - 

DIM 

919, 

1,1, 10299,22, 10324, 22, A6101, « 

DIM 

920, 

1,1,10278,20, 10303, 20, A6101, 1 

DIM 

921, 

1,1, 10298, 20, 10323, 20, A6101, l 

DIM 

922, 

1,1,10279,18,10304, 18, A6101, 

DIM 

923, 

1,1, 10297, IB, 10322, 18,A6101, 

DIM 

924, 

1,1,10280,16, 10305, 16,A6101, 

DIM 

925, 

1,1,102 96,16, 10321, 16, A6101, 

DIM 

926, 

1, 1,10281,14,10306, 14 , A6101 , 

DIM 

927, 

1, 1, 10295, 14, 10320, 14,A6101, 

DIM 

92B, 

1,1, 10282, 12, 10307, 12, A6101, 

DIM 

929, 

1,1, 10294, 12, 10319,12, A6101, 

DIM 

930, 

1,1,10283,10, 10308, 10, A6101, 

DIM 

931, 

1,1,10293,10,10318, 10, A6101 , 

DIM 

932, 

1,1,10284, 8,10309, 8,A6101, 

DIM 

933, 

1,1,10292, 8,10317, 8,A6101, 

DIM 

934, 

1,1,10285, 6,10310, 6, A6101, 

DIM 

935, 

1,1,10291, 6,10316, 6, A6101 , 

DIM 

936, 

1,1,10286, 4,10311, 4 , A6101 , 

DIM 

937, 

1,1,10290, 4,10315, 4 , A6101 , 

DIM 

938, 

1,1,10287, 2,10312, 2,A6101, 

DIM 

939, 

1,1,10289, 2,10314, 2,A6101, 

DIM 

9-10, 

1,1,10268, 0,10313, 0, A6101 , 

REM 

RADIAL 

, CONDUCTORS REGION 5, LAYER 1 2 

DIM 

941, 

1,1,10301,24,10326, 24,A6101, 

DIM 

942, 

1,1,10325,24, 10350, 24, A6101, 

DIM 

943, 

1,1, 10302, 22, 10327, 22, A6101, 

DIM 

944 , 

1,1,10324,22, 10349, 22,A6101, 

DIM 

945, 

1,1,10303, 20,10328, 20,A6101, 

DIM 

946, 

1,1, 10323,20,10348, 20,A6101, 

DIM 

947, 

1,1, 10304, 18, 10329, 18, A6101, 

DIM 

948, 

1,1,10322,18,10347, 18,A6101, 

DIM 

9 4 9, 

1,1,10305,16, 10330, 16, A6101, 

DIM 

9 l )0, 

1,1, 10321,16, 10346, 16, A6101, 

DIM 

9b L, 

1,1, 10306, 14, 10331, 14, A6101, 

DIM 


1, 1, 10320,14, 10345, 14, A6101, 

DIM 

9)3, 

1,1,10307,12, 10332, 12, A61 01, 

DIM 

9 5 4, 

1,1, 10319,12, 10344, 12, A61 01, 

DIM 

955, 

1,1,10308,10, 10333, 1Q,A6101, 

DIM 

956, 

1,1,10318,10, 10343, 10, A6101, 

DIM 

957, 

1,1,10309, 8,10334, 8,A6101, 

DIM 

CD 

if) 

ON 

1,1,10317, 8,10342, 8,A6101, 

DIM 

959, 

1,1,10310, 6,10335, 6, A6101 , 

DIM 

960, 

1,1,10316, 6,10341, 6, A6101 , 

DIM 

961, 

1,1,10311, 4,10336, 4 , A6101 , 

DIM 

962, 

1,1,10315, 4,10340, 4 , A6101 , 

DIM 

963, 

1,1,10312, 2,10337, 2,A6101, 

DIM 

964, 

1,1,10314, 2,10339, 2,A6101, 

DIM 

965, 

1,1,10313, 0,10338, 0, A6101, 

REM 

RADIAL CONDUCTORS REGION 5, LAYER 1 

DIM 

966, 

1,1, 10326, 24, 10351, 24, A6101, 

DIM 

967, 

1,1,10350, 24, 10375, 24, A6101, 

DIM 

968, 

1,1,103 27,2 2, 10352, 22, A6101, 

DIM 

969, 

1,1, 10349, 22,10374, 22, A6101, 

DIM 

970, 

1,1,10326,20, 10353, 20,A6101, 

DIM 

971, 

1,1, 10348, 20, 10373, 20, A6101, 

DIM 

972, 

1,1,10329,18, 10354, 18, A6101, 

DIM 

973, 

1,1,10347, 18, 10372, 18, A61 01, 

DIM 

974, 

1,1,10330, 16, 10355, 16, A6101, 

DIM 

975, 

r 1, 1,10346-, 16, 10371, 16,A6101 

DIM 

976, 

, 1, I, 10331, 14,10356, 14, A6101 

DIM 

977, 

, 1,1, 10345, 14, 10370, 14, A6101 


.38B302E+00, A6101, 


3 

3 

3 

3 

3 

1 

1 

3 

3 

5 

5 

8 

8 

1 

1 

1 

1 

3 

3 

: 

3 


i.663585E-oi,A6ioi, 

i.663585e-oi,a61oi, 

4. 964504 E-01, A 61 01, 

4. 964504E-01, A6101, 

8. 187128 E- 01, A61 01 , 
8.167128E-01,A6101, 

1 . 128063E+00, A6101, 

1 . 126063E+00, A6101, 

1 . 41 9623 E+ 00, A 61 01, 
1. 419623 E+ 00, A6101 , 

1 . 688795E+00, A6101, 
1.688795E+00,A6101, 
1. 93 1334 E+ 00, A 61 01, 

1 . 931334E+00 , A6101 , 
2. 143415 E+ 00, A6101 , 

2 . 143415E+00, A6101, 
2. 321690E+00, A6101, 

2 . 32169QE+00 , A6101 , 
2.463354E+00,A6101, 

2 . 463354E+00, A6101, 
2. 566166E+00, A6101, 
2. 566168E+00, A6101, 
2 . 628513E+00,A6101, 
2 . 628513E+00,A6101, 
2. 6494Q5E+00, A61Q1, 

3 TO LAYER 14 
7 . 973397E-02, A6101, 
7, 973397E-02, A6101, 

2 . 379436E-01 , A6101 , 
2. 379436 E- 01, A61 01 , 
3. 924009 E-01 , A6101 , 
3 . 924009E-01 , A6101 , 
5 . 406696E-01 , A6101, 
5.406696E-01,A6101, 
6.804112E“01,A6101, 
6. 804112E-01 , A6101, 
8 . Q94226E-01 , A6101 f 
8. 094226 E-01, A6101 , 
9. 2566 90 E-01, A 61 01, 
9. 256690E-01 , A6101, 
1 .027317E+00, A6101, 
1. 027317 E+ 00, A61 01 , 
1.112763E+00,A6101, 
1.1127 63 E+ 00, A6101 , 
1 . 180661E+00, A6101, 
1 . 180661 E+ 00, A 61 01, 
1. 2 2 9939 E+ 00, A6 101, 
1 . 22 993 9E+00, A6101 , 
1. 259820 E+ 00, A6101 , 
1. 259820E+00, A6101, 
1 . 269834E+00, A6101, 


2. 460925 E- 02, A6101 , 
2. 460925 E- 02, A 61 01, 
7 . 34 3936E-02, A6101 , 
7 . 343936E-02, A6101 , 
1,211113 E-01, A 61 01, 
1.211113 E-01, A 61 01, 
1, 668732 E- 01, A6 101, 
1. 668732 E- 01, A6 101, 
2 , 1000 34E-01 , A6101 , 
2. 10 00 3 4 E-01, A 61 01, 
2 .498218 E-01 , A6101 , 
2. 490218 E-01, A 61 01, 


. 4164 96E+00 
. 416496E+00 
. 499500E+00 
. 499500E+Q0 
. 527315E+Q0 

. 191087E-01 
. 191087E-01 
. 554466E-01 
. 5544 66E-01 
. 8617 90E-01 
. 8617 90E-01 
. 076669E-01 
l . 07 6669E-G1 
. 016417E+00 
. . 01 6417E+00 
. . 209137E+00 
. . 209137E+00 
. . 382790E+00 
L . 382790E+0Q 
L . 534635E+00 
L . 534635E+00 
L . 662276E+00 
L . 662276E+00 
L . 763703E+00 
i . 763703E+00 
1 . 837317E+00 
1 . 837317E+0Q 
1 . 881954 E+00 
1 . 881 954E+00 
1 . B96912E+Q0 

4 . 823413E-02 
4 . 823413E-02 
1 . 439412E-01 
1 . 439412E-01 
2 . 373781E-01 
2 . 373781E-01 
3. 270717E-01 
3. 270717E-01 
4.1160 68E-01 
4 . 11 606BE-01 
4 . 896506E-01 
4 . 896506E-01 
5. 599725E-01 
5 . 599725E-01 
6. 214637E-01 
6 . 214637E-01 
6 . 731532E-01 
6. 731532E-01 
7 . 142272E-01 
7 . 142272E-01 
7. 440374E-01 
7 . 440374E-01 
7 . 621137E-01 
7 . 6211 37E-01 
7. 681710E-01 

8 . 8593 29E-03 
8 . 859329E-03 
2. 64381BE-02 
2 , 643818E-02 
4 . 360010E-02 
4 . 360010E-02 
6 . 007440E-02 
6. 0074 40E-02 
7 . 5601 22E-02 
7.560122E-02 
8 . 993584E-02 
8. 9935B4E-02 
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DIM 

978, 

1,1,10332, 

12, 10357, 

12, A61 01 , 

2. 857002 E-Q1,A61Q1, 

1 . 028521E-01 

DIM 

979, 

1,1,10344, 

12, 10369, 

12, A6101 , 

2.857002E-01,A6101, 

1 . 028521E-01 

DIM 

980, 

1,1,10333, 

10, 10358, 

10, A6101, 

3.170732E-01, A6101, 

1.141 4 64 E-01 

DIM 

981, 

1,1,10343, 

10,10368, 

10, A6101, 

3.170732E-01,A6101, 

1 . 141464E-01 

DIM 

982, 

1,1,10334, 

8, 10359, 

0, A61Q1, 

3. 434455 E-01, A 61 01, 

1 . 236404E-01 

DIM 

983, 

1,1,10342, 

8,10367, 

8, A6101, 

3. 434455 £-01, A61 01, 

1 . 236404E-01 

DIM 

984, 

1,1,10335, 

6, 10360, 

6, A6101, 

3. 64401 6E-01 , A6101, 

1.311846E-01 

DIM 

985, 

1,1, 10341, 

6, 10366, 

6, A6101, 

3. 644016E-01 , A6101, 

1 . 311846E-01 

DIM 

986, 

1,1,10336, 

4, 10361, 

4, A6101, 

3.796109E-01,A6101, 

1 . 366599E-01 

DIM 

987, 

1,1,10340, 

4,10365, 

4, A6101, 

3. 796109E-01 , A6101, 

1 . 366599E-01 

DIM 

988, 

1,1,10337, 

2, 10362, 

2 , A6101 , 

3. 888335 E-01, A61 01, 

1 . 399800E-01 

DIM 

989, 

1,1,10339, 

2, 10364, 

2, A6101, 

3. 080335E-O1 , A6101 , 

1 . 399800E-01 

DIM 

990, 

1,1,10338, 

0, 10363, 

0, A61 01 , 

3 . 919239E-01 , A6101 , 

1 . 410925E-01 


REM CIRCUMFERENTIAL CONDUCTORS; Y- DIRECTION, CONDUCTION 


REM CIRCUMFERENTIAL CONDUCTORS REGION 5, LAYER NUMBER 1 


DIV 

991, 

10001 

10002, 

A6101 , 

9.973752E-01,A6101, 

2 . 976387E+00 

DIV 

993, 

10002 

10003, 

A6101, 

2.976387E+00,A6101, 

4 . 908460E+00 

DIV 

995, 

10003 

10004, 

A6101, 

4 . 9Q8460E+00, A6101, 

6. 763123E+00 

DIV 

997, 

10004 

10005, 

A6101 , 

6. 763123 E+00,A6101, 

8.511122E+00 

DIV 

999, 

10005 

10006, 

A6101 , 

8. 511122 E+00,A6101, 

1 . 012489E+01 

DIV 

1001, 

10006 

10007, 

A6101, 

1.012489E+01,A6101, 

1.157899E+01 

DIV 

1003, 

10007 

10008, 

A6101 , 

1 , 157899E+01 , A6101, 

1.285050E+01 

DIV 

1005, 

10008 

10009, 

A6101 , 

1.285050E+01,A6101, 

1.391933E+01 

DIV 

1007, 

10009 

10010, 

A6101 , 

1. 391933 E+ 01 ,A6101, 

1.47 68 64E+01 

DIV 

1009, 

10010 

10011, 

A6101 , 

1 . 476864E+01, A6101, 

1 . 538505E+01 

DIV 

10 1 , 

10011 

10012, 

A6101, 

1 .538505E+01,A6101, 

1 . 575883E+01 

DIV 

10 3, 

10012 

10013, 

A6101 , 

1. 575883 E+ 01, A6101, 

1 . 588408E+01 

REM 

Cl;-. UMFEREf- 

■E‘IAL 

CONDUCTORS 

REGION 5, 

, LAYER NUMBER 2 


DIV 

10 0, 

l 0026 

10027, 

A6101 , 

9. 973752E-01, A6101, 

2 . 976387E+00 

DIV 

10 ! 7, 

10027 

10028, 

A61Q1, 

2 . 976387E+00, A6101, 

4 . 908460E+00 

DIV 

10 i 0, 

LOO 2 8 

10029, 

A6101 , 

4.908460E+00,A6101, 

6. 763123E+00 

DIV 

10 / j , 

1002 9 

10030, 

A6101 , 

6.763123E+00,A6101, 

B . 51 1122E+00 

DIV 

1023 , 

10030 

10031, 

A6101, 

8 . 51 1122E+00, A6101 , 

1 . 012490E+01 

DIV 

100b, 

10031 

10032, 

A6101, 

1 . 012490E+01, A6101, 

1 . 157899E+01 

DIV 

10 0 7, 

10032 

10033, 

A6101 , 

1 . 157899E+01 , A6101, 

1.285050E+01 

DIV 

10/9, 

10033 

10034, 

A6101, 

1 . 285050E+01, A6101, 

1 . 391932E+01 

DIV 

10 u, 

1 0034 

10035, 

A6101 , 

1 . 391932E+01, A6101 , 

1 . 476865E+01 

DIV 

10 13, 

10035 

10036, 

A6101, 

1 . 476B65E+01 , A6101, 

1 . 538506E+01 

DIV 

10 1b, 

10036 

10037, 

A6101, 

1 . 538506E+01 , A6101, 

1 . 575863E+01 

DIV 

1037, 

10U37 

10038, 

A6101, 

1. 57 5883 E+ 01, A 61 01, 

1. 588408E+01 

REM 

CIRCUMFERENTIAL CONDUCTORS 

REGION 5, 

, LAYER NUMBER 3 


DIV 

10 3 9, 

10051 

10052, 

A6101, 

9. 97 3754 E-01, A61 01, 

2. 976388E+00 

DIV 

1 C 4 1 , 

1 0052 ( 

10053, 

A6101, 

2. 976388£+00,A6101, 

4 , 9Q846QE+00 

DIV 

1043, 

1 0053, 

10054, 

A6101, 

4. 90 8460 E+ 00, A 61 01, 

6. 763124E+00 

DIV 

1045, 

10054, 

10055, 

A6101, 

6. 763124 E+Q0,A6101, 

8. 511123E+00 

DIV 

1047, 

10055, 

10056, 

A6101, 

8.511123E+00,A6101, 

1 . 012490E+01 

DIV 

1049, 

10056, 

10057, 

A61Q1, 

1.01249GE+01,A6101, 

1 . 157900E+01 

DIV 

1051, 

1C 057, 

10058, 

A6101, 

1. 157900 E+ 01, A 61 01, 

1 . 285050E+01 

DIV 

1053, 

10058 

10059, 

A6101 , 

1 . 285050E+01 , A6101, 

1 . 391933E+01 

DIV 

1055, 

10059, 

10060, 

A6101, 

1. 391933 E+ 01, A 61 01, 

1. 476865E+01 

DIV 

1C 57, 

10060, 

10061, 

A6101, 

1.476865 £+01, A 61 01, 

1 . 538505E+01 

DIV 

1059, 

10061 

10062, 

A6101, 

1. 53 8505 E+ 01, A 61 01, 

1 . 575883E+01 

DIV 

1061, 

L0Q62 

10063, 

A6101 , 

1. 575883E+01, A6101, 

1.5B8408E+01 

REM 

CIRCUMFERENTIAL CONDUCTORS 

REGION 5, 

LAYER NUMBER 4 


DIV 

1063, 

10076, 

10077, 

A6101, 

9. 973755 E-01, A 61 01, 

2 . 976387E+00 

DIV 

1065, 

10077, 

10078, 

A6101, 

2. 976387E+00, A6101, 

4 . 9084 60E+00 

DIV 

1067, 

10078, 

10079, 

A6101 , 

4. 9084 60E+ 00, A 61 01, 

6.7631 24E+00 

DIV 

1069, 

10079, 

10080, 

A6101, 

6. 763 124 E+ 00, A 61 01, 

8.5111 22E+00 

DIV 

1071, 

10080, 

10081, 

A6101, 

8. 511122 E+ 00, A 61 01, 

1 . 012490E+01 

DIV 

10 73, 

10081, 

10082, 

A6101, 

1. 012490 E+ 01, A6101, 

1 . 15790QE+01 

DIV 

1)75, 

10062 

10083, 

A6101, 

1. 157900 £+ 01, A61Q1, 

1.285049E+01 

DIV 

1 J77, 

1 C 0 8 3 

10084, 

A6101, 

1 . 285049E+01 , A6101 , 

1 . 391932E+01 

DIV 

1 ,79, 

11084 

10085, 

A6101, 

1 . 391932E+01 , A6101 , 

1.476864E+01 

DIV 

: ,8i. 

10085 

10086, 

A6101 , 

1 .476864E+01,A6101, 

1 . 538505E+01 

PIV 

10 83, 

10086 

1Q0B7, 

A6101, 

1.538505E+01,A6101, 

1 . 575883E+01 

DIV 

1085, 

10087 

10088, 

A6101, 

1 , 575883E+01 , A6101 , 

1.588409E+01 

REM 

CIRCUMFERENTIAL 

CONDUCTORS 

REGION 5, 

f LAYER NUMBER 5 


DIV 

1087, 

10101 

10102, 

A6101, 

9. 973756E-01 , A6101 , 

2. 976387E+00 

DIV 

1089, 

10102 

10103, 

A61Q1, 

2 . 976387E+00, A6101, 

4 . 90 94 60E+00 

DIV 

1091, 

1 0103 

10104, 

A6101 , 

4. 908460E+00, A6101, 

6 . 7631 24E+00 


90 



DIV 

1093, 

10104, 

10105, 

A6101, 

DIV 

1095, 

10105, 

10106, 

A6101, 

DIV 

1097, 

10106, 

10107, 

A6101, 

DIV 

1099, 

10107, 

10108, 

X6101, 

DIV 

1101, 

10108, 

10105, 

A6101, 

DIV 

1103, 

10109, 

10110, 

A6101, 

DIV 

1105, 

10110, 

10111, 

A6101 , 

DIV 

1107, 

10111, 

10112, 

A6101 , 

DIV 

1109, 

10112, 

10113, 

A6101, 

REM 

CIRCUMFERENTIAL CONDUCTORS REGION 5, 

DIV 

1111, 

10126, 

10127, 

A6101 , 

DIV 

1113, 

10127, 

10128, 

A6101, 

DIV 

1115, 

10128, 

10129, 

A6101, 

DIV 

1117, 

10129, 

10130, 

A6101, 

DIV 

1119, 

10130, 

10131, 

A6101, 

DIV 

1121, 

10131, 

10132, 

A6101, 

DIV 

1123, 

10132, 

10133, 

A6101, 

DIV 

1125, 

10133, 

10134, 

A6101, 

DIV 

1127, 

101 34, 

10135, 

A6101, 

DIV 

1129, 

10135, 

10136, 

A6101, 

DIV 

1131, 

10136, 

10137, 

A6101, 

DIV 

1133, 

10137, 

10138, 

A6101 , 

REM 

CIRCUMFERENTIAL CONDUCTORS 

REGION 5, 

DIV 

1135, 

10151., 

10152, 

A6101, 

DIV 

1137, 

10152, 

10153, 

A6101 , 

DIV 

1139, 

10153, 

10154, 

A6101, 

DIV 

1141, 

10154, 

10155, 

A6101, 

DIV 

1143, 

10155, 

10156, 

A6101, 

DIV 

1145, 

10156, 

10157, 

A6101, 

DIV 

1147, 

10157, 

10158, 

A6101, 

DIV 

1149, 

101 58, 

10159, 

A6101 , 

DIV 

1151, 

10159, 

10160, 

A6101, 

DIV 

1153, 

101 60, 

10161, 

A6101 , 

DIV 

1155, 

10161, 

10162, 

A6101, 

DIV 

1157, 

10162, 

10163, 

A6101, 

REM 

CIRCUMFERENTIAL CONDUCTORS 

REGION 5, 

DIV 

1159, 

10176, 

10177, 

A6101, 

DIV 

1161, 

10177, 

10178, 

A6101, 

DIV 

1163, 

10178, 

10179, 

A6101 , 

DIV 

1165, 

10179, 

10180, 

A6101, 

DIV 

1167, 

10180, 

10181, 

A6101 , 

DIV 

11 69, 

10181, 

10102, 

A6101, 

DIV 

1171, 

10182, 

10183, 

A6101, 

DIV 

1173, 

10183, 

10184, 

A6101, 

DIV 

11 75, 

101B4, 

10185, 

A6101, 

DIV 

1177, 

10185, 

10186, 

A6101 , 

DIV 

11 19, 

10186, 

10187, 

A6101, 

DIV 

1181, 

10187, 

10188, 

A6101, 

REM 

CIRCUMFERENTIAL CONDUCTORS 

REGION 5 

DIV 

1183, 

10201, 

10202, 

A6101, 

DIV 

1185, 

10202, 

10203, 

A6101, 

DIV 

1187, 

10203, 

10204, 

A6101 , 

DIV 

1189, 

10204, 

10205, 

A6101, 

DIV 

1191, 

10205, 

10206, 

A6101, 

DIV 

1193, 

10206, 

10207, 

A6101 , 

DIV 

1195, 

10207, 

10208, 

A6101, 

DIV 

1197, 

10208, 

10209, 

A6101 , 

DIV 

1199, 

10209, 

10210, 

A6101, 

DIV 

1201, 

10210, 

10211, 

A6101 , 

DIV 

1203, 

10211, 

10212, 

A6101, 

DIV 

1205, 

10212, 

10213, 

A6101, 

REM 

CIRCUMFERENTIAL CONDUCTORS 

REGION 5 

DIV 

1207, 

10226, 

10227, 

A6301, 

DIV 

1208, 

10249, 

10250, 

A6301, 

DIV 

1209, 

10227, 

10228, 

A6301, 

DIV 

1210, 

10248, 

10249, 

A6301 , 

DIV 

1211, 

10228, 

10229, 

A6301, 

DIV 

: 212, 

10247, 

10248, 

A6301 / 

DIV 

1213, 

10229, 

10230, 

A6301 j 

DIV 

214, 

10246, 

10247, 

A6301, 


.157900 E+01, A6101, 
.28 50 50 E+01, A 61 01, 
. 391932E+01, A6101, 


8 

1 

1 

1 

1 

1 

1 

1 

1 

2 

4 

6 

8 

1 

1 

1 

] 

1 

J 

3 

3 

i 

t 

I 


LAYER NUMBER 6 
9. 973757E-01 , A6101 , 
2.97 6380E+OO, A6101 , 

4. 9084 62 E+ 00, A 61 01, 
6.7631 24E+00, A6101, 

8. 511123E+0Q, A6101, 
1.01 24 9QE+01 , A6101 , 
1.157900 E+01, A6101 , 
1.285050 E+01, A 61 01, 

1. 391933 E+ 01, A 61 01, 

1. 476864 E+ 01, A 61 01, 

1 . 538505E+01 , A6101 , 

1. 575884E+01,A6101, 
LAYER NUMBER 7 
9.973759E-01,A6101, 

2 . 976389E+0O, A6101, 

4. 908462 E+ 00, A 61 01, 

6. 7631 24 E+ 00, A6 101, 

B . 511125E+00, A6101, 
1.0124 90 E+01 , A6101 , 
1. 157900 E+ 01, A 61 01, 
1. 285051 E+01/A 61 01, 

1 . 391933E+01 , A6101, 

1 . 47 68 65 E+01 ,A61 01, 
1. 538506E+01, A6101, 

1 . 575883E+01, A6101, 

, LAYER NUMBER 8 
9. 973755E-01,A6101, 
2. 976386E+00, A61Q1, 

4 . 908460E+00, A6101, 

6 . 7631 22E+00, A6101 , 
8. 511121 E+ 00, A 61 01, 
1.0124 90 E+01, A6101, 
1.1579 00 E+01, A 61 01, 
1.2850 50 E+01 ,A6101, 
1.391933E+01, A61 01 , 

1 . 47 6864E+01 ,A6101, 

1 . 538505E+01,A6101, 

] . 575883 E+01 , A 61 01, 

, LAYER NUMBER 9 
9, 973756E-01 , A6101 , 
2. 976386E+00,A6101, 
4. 908460E+00,A6101, 

6 . 7631 24E+00 , A6101 , 
8. 511122 E+ 00, A 61 01, 
1.0124 90 E+01 , A6101 , 
1 . 1 57900E+0 1 , A61 01 , 
1.285050 E+01 ,A6101, 
1 . 391933E+0 J , A6101, 
1.47 68 65 E+01, A 61 01, 
1 . 538506E+0 1 , A6101 , 
1. 575883E+01,A6101, 
3 , LAYER NUMBER 10 
, 9. 973755 E- 01, A63 01, 

, 9. 973755 E- 01 , A6301, 
r 2. 976387E+00, A6301, 
f 2 . 976387E+00, A6301, 
, 4 . 9064 59E+00, A6301 , 

, 4.908459E+00, A6301 , 

, 6.7631 21E+00,A6301, 
, 6. 763121 E+ 00, A 63 01, 


. 511124E+00 
. 012490E+01 
. 157900E+01 
. 285050E+01 
. 391932E+01 
. 476864E+01 
. 538505E+01 
. 575884E+01 
. 58840BE+01 

. 976388E+00 
. 90B4 62E+00 
i. 763124E+00 
l. 511123E+00 
. 012490E+01 
. . 157900E+01 
. . 285050E+01 
. , 391933E+01 
. . 476864E+01 
l . 538505E+01 
L . 575884E+01 
L . 588408E+01 

2.976389E+00 
1.908462E+00 
5. 763124E+00 
3. 511125E+00 
1 . 012490E+01 
1 . 157900E+01 
1 . 285051E+01 
1 . 391933E+01 
1. 476865E+01 
1 . 538506E+01 
1 . 575883E+01 
1 . 588409E+01 

2. 976386E+00 
4 . 9084 60E+00 
6.763122E+00 
8 . 511121E+Q0 
1.0124 90E+01 
1 . 157900E+01 
1 . 285050E+01 
1 . 391933E+01 
1 . 47 6864E+01 
1 . 538505E+01 
1. 575883E+01 
1. 588408E+01 

2.976386E+00 
4 . 9084 60E+00 
6 . 763124E+00 
8 . 5111 22E+00 
1 . 01 24 90E+01 
1.157900E+01 
1 . 285050E+01 
1 . 391933E+01 
1 . 476B65E+01 
1 . 538506E+01 
1 . 575883E+01 
1 . 58B408E+01 

2 . 97 6387E+00 
2.976387E+00 
4 . 9084 59E+00 
4 . 9084 59E+00 
6. 763121E+00 
6 . 7631 21E+00 
8 . 511120E+00 
8 . 51H20E+00 
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DIV 

1215, 

10230, 

10231, 

A6301 , 

8 . 51 1120E+00, A6301, 

1 . Q12490E+01 

DIV 

1216, 

1024 5,, 

10246, 

A6301 , 

8. 511120 E+ 00, A 6301, 

1 . 01 24 9QE+01 

DIV 

1217, 

10231, 

10232, 

A6301, 

1.012490E+01, A6301, 

1 . 157900E+01 

DIV 

1218, 

10244, 

10245, 

A6301, 

1.0124 90 E+01, A 63 01, 

1.157900E+01 

DIV 

1219, 

10232, 

10233, 

A6J01, 

1. 157900 E+ 01, A 63 01, 

1 . 285050E+Q1 

DIV 

1220, 

10243, 

10244, 

A6301, 

1.157900E+01, A6301, 

1 . 2B5050E+01 

DIV 

1221, 

10233, 

10234, 

A6301, 

1, 2050 50 E+ 01, A 63 01, 

1 . 391932E+01 

DIV 

1222, 

10242, 

10243, 

A6301, 

1 . 285050E+01 , A6301, 

1 . 391932E+01 

DIV 

1223, 

10234, 

10235, 

A6301, 

1. 391932 E+01, A63 01, 

1 . 476864E+01 

DIV 

1224, 

10241, 

10242, 

A6301, 

1.391932 E+01, A 63 01, 

1 . 476864E+01 

DIV 

1225, 

10235, 

10236, 

A6301, 

1 . 476864E+01 , A6301 , 

1 . 538505E+01 

DIV 

1226, 

10240, 

10241, 

A6301, 

1 . 476864E+01 , A6301 , 

1 . 538505E+01 

DIV 

1227, 

10236, 

10237, 

A6301 , 

1.538505E+01, A6301, 

1 . 575883E+01 

DIV 

122B, 

10239, 

10240, 

A6301, 

1 . 5385Q5E+Q1 , A6301 , 

1.575883E+01 

DIV 

1229, 

10237, 

10238, 

A6301, 

1 . 575883E+01 , A6301 , 

1 . 588408 E+01 

DIV 

1230, 

10238, 

10239, 

A6301 , 

1. 575883 E+ 01, A6301, 

1 . 588408E+01 

REM 

CIRCUMFERENTIAL CONDUCTORS 

REGION 5 

LAYER NUMBER 11 


DIV 

1231, 

10251, 

10252, 

A6301, 

9.973756£-01,A6301, 

2 . 976388E+00 

DIV 

1232, 

10274, 

10275, 

A6301, 

9. 973756E-01,A6301, 

2. 976388E+00 

DIV 

1233, 

10252, 

10253, 

A6301, 

2. 9763 88 E+00, A 6301, 

4 . 9084 58E+0Q 

DIV 

1234, 

10273, 

10274, 

A6301, 

2.976388E+0Q,A6301, 

4. 908458E+00 

DIV 

1235, 

10253, 

10254, 

A6301, 

4 . 908458E+Q0, A63Q1 , 

6.763123E+00 

DIV 

1236, 

10272, 

10273, 

A6301, 

4 . 908458E+00, A6301 , 

6. 763123E+00 

DIV 

1237, 

10254, 

10255, 

A6301 , 

6. 763123E+Q0, A6301 , 

8 . 51 1122E+00 

DIV 

1238, 

10271, 

10272, 

A6301, 

6. 763123 E+00, A63 01, 

8.511122E+00 

DIV 

1239, 

10255, 

10256, 

A6301, 

8.511122E+00,A6301, 

1 . 01 24 90 E+01 

DIV 

1240, 

10270, 

10271, 

A6301, 

8.51 1122E+0Q, A6301, 

1 . 012490E+01 

DIV 

1241, 

10256, 

10257, 

A6301, 

1 . 012490E+01 , A6301 , 

1 . 157900E+01 

DIV 

1242, 

1 0269, 

10270, 

A6301 , 

1 . 01 2490E+01 , A6301 , 

1 . 157900E+01 

DIV 

1243, 

10257, 

10258, 

A6301, 

1.157 900 E+01, A6301 , 

1 . 285050E+01 

DIV 

1244, 

10268, 

10269, 

A6301, 

1 . 15790QE+01 , A6301 , 

1 . 285050E+01 

DIV 

1245, 

10258, 

10259, 

A6301 , 

1 . 28 50 50 E+01 ,A63 01 , 

1 . 391933E+01 

DIV 

1246, 

10267, 

10268, 

A6301, 

1 . 285050E+01 , A6301, 

1 . 391 933E+01 

DIV 

1247, 

10259, 

10260, 

A6301, 

1 . 391933E+01 , A6301, 

1.476865E+01 

DIV 

1248, 

10266, 

10267, 

A6301, 

1.391933E+01, A6301 , 

1.476865E+01 

DIV 

1249, 

10260, 

10261, 

A6301 , 

1.476865E+01,A6301, 

1.538506E+01 

DIV 

1250, 

10265, 

10266, 

A6301, 

1 . 476865E+01 , A6301 , 

1 . 538506E+01 

DIV 

1251, 

10261, 

10262, 

A6301 , 

1.538506E+01 , A6301 , 

1 . 575883E+01 

DIV 

1252, 

10264, 

10265, 

A6301 , 

1.538506E+01 , A6301, 

1 . 575883E+01 

DIV 

1253, 

10262, 

10263, 

A6301 , 

1. 575883E+01, A6301, 

1 . 588409E+01 

DIV 

1254, 

10263, 

10264, 

A6301 , 

1.575883E+0] , A6301 , 

1 . 588409E+01 

REM 

CIRCUMFERENTIAL CONDUCTORS 

REGION 5, 

LAYER NUMBER 12 


DIV 

1255, 

10276, 

10277, 

A6301 , 

9.973755E-01,A6301, 

2 . 976386E+00 

DIV 

1256, 

10299, 

10300, 

A6301, 

9. 973755E-01,A6301, 

2 . 976386E+00 

DIV 

1257, 

10277, 

10278, 

A6301 , 

2. 976386E+00, A6301, 

4 . 9084 56E+Q0 

DIV 

1258, 

1029B, 

10299, 

A6301, 

2. 97 6386E+Q0 , A6301, 

4 . 908456E+00 

DIV 

1259, 

1027B, 

10279, 

A6301 , 

4.908456E+00,A6301, 

6. 7631 2QE+00 

DIV 

1260, 

,0297, 

10298, 

A6301, 

4. 908456E+00, A6301, 

6. 763120E+0Q 

DIV 

1261, 

10279, 

10280, 

A6301 , 

6. 763120 E-f 00, A 63 01, 

6. 511119E+00 

DIV 

1262, 

10296, 

10297, 

A6301, 

6. 763120 E+00, A 63 01, 

8 . 5111 19E+00 

DIV 

1263, 

10280, 

10281, 

A6301 , 

8.511119E+Q0,A6301, 

1 . 0124 90E+01 

DIV 

1264, 

10295, 

10296, 

A6301 , 

8 . 511119E+00, A6301, 

1 . 0124 90E+01 

DIV 

1265, 

10281, 

10282, 

A6301, 

1.012490 E+01, A 63 01, 

1 . 157900E+01 

DIV 

1266, 

10294, 

10295, 

A6301 , 

1.012490 E+01, A 63 01, 

1 . 1579Q0E+01 

DIV 

1 7 67, 

10282, 

10283, 

A6301 , 

1. 157900 E+01, A63 01, 

1.285050E+01 

DIV 

1268, 

10293, 

10294, 

A6301, 

1 . 1579Q0E+0 1 , A6301, 

1 . 285050E+01 

DIV 

1269, 

10283, 

10284, 

A6301, 

1.285050E+01,A6301, 

1 . 391932E+Q1 

DIV 

12 10 , 

1C292, 

10293, 

A6301, 

1 . 285050E+01 , A6301, 

1 . 391932E+01 

DIV 

1271, 

10284, 

10285, 

A6301, 

1.391932 E+01, A6301, 

1 . 476864E+01 

DIV 

1272, 

10291, 

10292, 

A6301 , 

1. 391932 E+ 01, A63 01, 

1 . 476864E+01 

DIV 

1273, 

10285, 

10286, 

A6301 , 

1 . 476864E+01 , A6301 , 

1 . 538505E+01 

DIV 

1274, 

10290, 

10291, 

A6301 , 

1.476864E+01,A6301, 

1 . 538505E+01 

DIV 

1275, 

1 0286', 

10287, 

A6301 , 

1 . 538505E+01, A6301, 

1 . 575883E+01 

DIV 

1276, 

10289, 

10290, 

A6301, 

1. 538505E+01, A6301, 

1 . 575883E+01 

DIV 

1277, 

102B7, 

10288, 

A6301, 

1 . 575883E+01 , A6301 , 

1 . 5884 08 E+01 

DIV 

1278, 

10288, 

10289, 

A6301 , 

1. 575883E+01, A6301, 

1 . 588408E+01 

REM 

CIRCUMFERENTIAL CONDUCTORS 

REGION 5, 

r LAYER NUMBER 13 


DIV 

1279, 

10301, 

10302, 

A6301, 

9. 973757E-01, A6301, 

2 . 97 6388E+00 

DIV 

1280, 

10324, 

10325, 

A6301, 

9. 97 37 57E-01,A6301, 

2 . 97638BE+00 

DIV 

1281, 

10302, 

10303, 

A6301, 

2 . 976388E+00, A6301, 

4 . 9084 61E+00 
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DIV 
DIV 
DIV 
DIV 
DIV 
DIV 
DIV 
DIV 
DIV 
DIV 
DIV 
DIV 
DIV 
DIV 
DIV 
DIV 
DIV 
DIV 
DIV 
DIV 
DIV 
REM 
DIV 
DIV 
DIV 
DIV 
DIV 
DIV 
DIV 
DIV 
DIV 
DIV 
DIV 
DIV 
DIV 
DIV 
DIV 
DIV 
DIV 
DIV 
DIV 
DIV 
DIV 
DIV 
DIV 
DIV 
REM 
DIV 
DIV 
DIV 
DIV 
DIV 
DIV 
DIV 
DIV 
DIV 
DIV 
DIV 
DIV 
DIV 
DIV 
DIV 
DIV 
DIV 
DIV 
DIV 
DIV 
DIV 
DIV 
DIV 


1282 , 

1283, 

1284, 

1285, 

1286, 

1287, 

1288, 

1289, 

1290, 

1291, 

1292, 

1293, 

1294, 

1295, 

1296, 

1297, 

1298, 

1299, 

1300, 

1301, 

1302, 


10323, 

10303, 

10322, 

10304 , 

10321, 

10305, 

10320, 

10306, 

10319, 

10307, 

10318, 

10308, 

10317, 

10309, 

10316, 

10310, 

10315, 

10311, 

10314, 

10312, 

10313, 


10324, 

10304, 

10323, 

10305, 

10322, 

10306, 

10321, 

10307, 

10320, 

10308, 

10319, 

10309, 

10318, 

10310, 

10317, 

10311, 

10316, 

10312, 

10315, 

10313, 

10314, 


CIRCUMFERENTIAL CONDUCTORS 

1303, 10326, 10327, 

1304, 10349, 10350, 

1305, 10327, 10328, 

1306, 10348, 10349, 

13 , 1032B, 10329, 

13 OB, 10347, 10348, 

1309, 10329, 10330, 

1310, 10246, 10347, 

13,1, 10330, 10331, 

1312, 10345, 10346, 

1313, 10331, 10332, 

1314 # 10344, 10345, 

1315, 10332, 10333, 

1316, 10343, 10344, 

1317, 10333, 10334, 

1318, 10342, 10343, 

1319, 10334, 10335, 

1320, 10341, 10342, 

1321, 10335, 10336, 

1222, 10340, 10341, 

1323, 10336, 10337, 

1324, 10339, 10340, 

1325, 10337, 10338, 

1326, 10338, 10339, 

CIRCUMFERENTIAL CONDUCTORS 

1327, 10351, 10352, 

1328, 10374, 10375, 


4. 

6 . 

6 . 

8 . 

8 . 

1 . 

1 . 

1 . 

1. 

1. 

1, 

1. 

1, 

1 

1 

1 

1 

1 

1 

1 

1 

2 
2 
4 
4 
f 
i 
f 
i 


1329, 

1330, 

1331, 

1332, 

1333, 

1334, 

1335, 

1336, 

1337, 

1338, 

1339, 

1340, 

1341, 

1342, 

1343, 

1344, 

1345, 

1346, 

1347, 

1348, 

1349, 


10352, 

10373, 

10353, 

10372, 

1C354, 

10371, 

10355, 

10370, 

10356, 

10369, 

10357, 

10368, 

10358, 

10367, 

10359, 

10366, 

10360, 

10365, 

10361, 

10364, 


10353, 

10374, 

10354, 

10373, 

10355, 

10372, 

10356, 

10371, 

10357, 

10370, 

10358, 

10369, 

10359, 

10368, 

10360, 

10367, 

10361, 

10366, 

10362, 

10365, 


10362, 10363, A6301, 


A6301, 2.97 638BE+00, A6301 , 
A6301, 4.9084 61E+00, A6301, 
A6301, 4. 90 8461 E+ 00, A 63 01, 
A6301, 6 . 763122 E+ 00, A6301, 

A6301, 6 . 763122 E+00, A6301 , 
A6301, 8. 511123E+00, A6301, 
A6301, 8. 51 1123 E+ 00, A 63 01, 
A6301, 1.0124 90 E+ 01, A63Q1 , 
A6301 , 1.0124 90 E+01, A6301 , 
A6301, 1.157900 E+01, A6301, 
A6301, 1 . 157900E+01 , A6301 , 
A6301, 1.285050E+01, A6301 , 
A6301, 1.285050E+01, A6301, 
A6301, 1 . 391933E+01 , A6301 , 
A6301 , 1 . 391 933E+01 , A6301, 
A6301, 1 . 476865E+01, A6301, 
A6301, 1 . 47 6865E+01 , A6301 , 
A6301, 1.538506 E+01, A6301 , 
A6301, 1 . 538506E+01 , A6301, 
A6301 , 1. 575884 E+01, A6301 , 
A6301, 1.575884 E+01 , A6301 , 
REGION 5, LAYER NUMBER 14 
A6301, 9. 973754E-01, A63Q1, 
A6301, 9. 973754E-01, A6301, 
A6301, 2. 976388E+00, A6301, 
A6301, 2. 976388E+00, A6301, 
A6301, 4 . 9084 61E+00 , A6301 , 
A6301, 4. 9084 61 E+ 00, A 63 01, 
A6301, 6 . 763123E+00 , A6301 , 
A6301, 6. 7631 23E+00 , A6301 , 

A6301, 8. 511121E+00, A63Q1, 
A6301, 8. 511121 E+ 00, A6301 , 
A6301, 1.012490 E+01, A6301 , 
A6301, 1.0124 90 E+01, A 63 01, 
A6301, 1. 157899 E+ 01, A63 01, 

A6301, 1.157899 E+01 , A6301, 
A6301, 1.285050 E+01, A6301, 
A6301, 1. 285050E+01, A6301, 
A6301, 1.391932 E+01, A6 301, 
A6301, 1 . 3 9193 2 E+01 ,A63 01, 
A6301, 1.476B64E+01,A6301, 
A6301, 1.47 6864E+01 , A6301 , 
A6301, 1 . 538505E+01 , A6301 , 
A6301, 1.538505 E+01, A6301 , 
A6301, 1 . 575883E+01 , A6301 , 
A6301, 1.575883 E+01, A6301, 
REGION 5, LAYER NUMBER 15 
A6301, 9 . 97 37 60 E- 01 , A6301 , 
A6301 , 9 . 9737 60E-01 , A6301, 

A6301, 2. 9763B9E+00, A6301, 
A6301 , 2.97 638 9E+00 , A6301 , 
A6301, 4 . 9084 61E+00 , A6301, 
A6301, 4 . 9084 61E+00 , A6301 , 
A6301, 6. 763125 E+ 00, A6301 , 
A6301, 6. 7631 25E+00, A6301 , 
A6301, 8 . 511126E+00 , A6301, 
A6301, 8 . 5111 2 6E+ 00, A 63 01 , 
A6301, 1.0124 90 E+01, A 63 01, 

A6301, 1.0124 90 E+01 , A6301 , 
A6301, 1.157 901 E+01, A6301 , 
A6301, 1 . 157901E+01 , A6301 , 
A6301, 1 . 285051E+01 , A6301, 
A6301, 1,285051 E+01, A6301 , 
A6301, 1.391933 E+01 , A6301 , 
A6301, 1. 391933E+01 , A6301 , 
A6301, 1.476865E+01, A6301 
A6301, 1.4768 65 E+01, A 63 01 

A6301, 1 . 538506E+01 , A6301 
A6301, 1 . 538506E+01, A6301 
1. 575B84E+01,A6301 


908461E+00 
7631 22E+00 
763122E+00 
511123E+00 
511123E+00 
012490E+01 
012490E+01 
157900E+01 
157900E+01 
, 285050E+01 
, 285050E+01 
. 391933E+01 
. 391933E+01 
. 476865E+01 
. 476865E+01 
. 538506E+01 
. 538506E+01 
. 575884E+01 
. 575884E+01 
. 588409E+01 
. 588409E+01 

. 976388E+00 
. 976388E+00 
l . 908461E+00 
[. 908461E+00 
>. 7631 23E+00 
>. 763123E+00 
J.511121E+00 
3.511121E+00 
L , 01 24 90E+01 
1 . 012490E+01 
1 . 157899E+01 
1 . 157899E+01 
1. 285050E+01 
1 . 285050E+01 
1 .391932E+01 
1.391932E+01 
1 . 476864E+01 
1.476864E+01 
1. 538505E+01 
1.538505E+01 
1 . 575883E+01 
1. 575883E+01 
1 . 588408E+01 
1.588408E+01 

2 . 976389E+00 
2 , 97 6389E+00 
4 . 9084 61E+00 
4 . 9084 61E+00 
6.763125E+00 
6. 763125E+00 
8 . 511126E+00 
8 . 511126E+00 
1 . 012490E+01 
1.0124 90E+01 
1 . 157901E+01 
1 . 157901E+01 
1. 285051E+01 
1 . 285051E+01 
t 1 . 391933E+01 
, 1 , 391933E+01 
, 1.476865E+01 
f 1 . 47 68 65E+01 
, 1.53B506E+01 
, 1 . 538506E+01 
, 1 . 575884E+01 
, 1 , 57 5B84E+01 
1 . 588409E+01 
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DIV 

REM 

GEN 

GEN 

GEN 

GEN 

GEN 

GEN 

GEN 

GEN 

GEN 

GEN 

GEN 

GEN 

GEN 

REM 


1350, 10363, 10364, A6301, 1 . 575884E+01 , A6301 , 1.588409E+01 

CONVECTION CONDUCTORS; ATMOSPHERE TO OUTER SURFACE 
1352, 2,1,20301, 0 f 7001, 24, 0.00001E-79, O.OOOOOE+OO, 4.80, 0.00 

1354, 2,1,10301, 0, 7002, 22, 0. 00001 E-79, 0.0 0000 E+ 00, 14.33, 0.00 

1356, 2,1,20301, 0, 7003, 20, 0 . 00001E-79, 0 . OOOOOE+OO, 23 . 62, 0.00 

1358, 2,1,20301, 0, 7004, 18, 0 .00001E-79, 0 . OOOOOE+OO, 32 . 55, 0.00 

1360, 2, 1,20301, 0, 7005, 16, 0.00001E-79, O.OOOOOE+OO, 40. 96, 0.00 

1362, 2,1,20301, 0, 7006, 14, O.OOOOlE-79, O.OOOOOE+OO, 48.73, 0.00 

1364, 2,1,20301, 0, 7007, 12, 0 . 00001E-79, 0 .OOOOOE+OO, 55. 73, 0.00 

1366, 2,1,20301, 0, 7008, 10, 0 . 00001E-79, 0 . OOOOOE+OO, 61 . 85, 0.00 

1368, 2,1,20301, 0, 7009, 8, 0.00001E-79, O.OOOOOE+OO, 67.00, 0.00 

1370, 2,1,20301, 0, 7010, 6, 0 . Q0001E-79, 0 . OOOOOE+OO, 71 . 00, 0.00 

1372, 2,1,20301, 0, 7011, 4 , 0 . 00001E-79, 0 . OOOOOE+OO, 74 . 05, 0.00 

1374, 2,1,20301, 0, 7012, 2, 0 .00001E-79, 0 . OOOOOE+OO, 75. 85, 0.00 

1376, 1,1,20301, 0, 7013, 0, 0 .00001E-79, 0 .OOOOOE+OO, 76. 45, 0.00 

RADIATION CONDUCTORS; ATMOSPHERE TO OUTER SURFACE 


GEN 

1377, 

2,1,2030 2, 

o, 

7001, 24, 0.00001E-79, O.OOOOOE+OO, 

o 

o 

o 

0.00 

GEN 

1379, 

2, 1,20302, 

o, 

7002, 22, 0 . 00001 E- 79, O.OOOOOE+OO, 

o 

o 

o 

0.00 

GEN 

1381, 

2,1,20302, 

0, 

7003, 20,0. 00001E-79, 0 . OOOOOE+OO, 

o 

o 

o 

0.00 

GEN 

1383, 

2, 1,20302, 

0, 

7004, 18, 0.00001E-79, O.OOOOOE+OO, 

o 

o 

o 

0.00 

GEN 

1385, 

2,1,20302, 

o. 

7005, 16, 0. 00001 E- 79, O.OOOOOE+OO, 

o 

o 

o 

0.00 

GEN 

1387, 

2,1,20302, 

Or 

7006, 14, 0.0 0001 E-79, O.OOOOOE+OO, 

o 

o 

o 

0.00 

GEN 

1389, 

2,1, 20302, 

o, 

7007, 12, 0.00001 E-79, O.OOOOOE+OO, 

o 

o 

o 

0.00 

GEN 

1391, 

2,1,20302, 

Or 

7008, 10, 0.00001 E-79, O.OOOOOE+OO, 

o 

o 

o 

0.00 

GEN 

1393, 

2,1,20302, 

Or 

7009, 8, 0.00001E-79, O.OOOOOE+OO, 

o 

o 

o 

0.00 

GEN 

1395, 

2, 1,20302, 

Or 

7010, 6, 0.00001E-79, O.OOOOOE+OO, 

o 

o 

o 

0.00 

GEN 

1397, 

2,1, 20302, 

Or 

7011, 4, 0.00001E-79, O.OOOOOE+OO, 

o 

o 

o 

0.00 

GEN 

1399, 

2,1, 20302, 

Or 

7012, 2, 0.00001E-79, O.OOOOOE+OO, 

o 

o 

o 

0.00 

GEN 

pwn 

1401, 

1,1, 20302, 

Or 

7013, 0,0.00001E-79, O.OOOOOE+OO, 

o 

o 

o 

0.00 


BCD 3CONSTANTS DATA 

REM NTHETA NBETAS BETA RIN TVOL 

1- 25, 2- 1, 3- 1.000, 4- 20.000, 5- 19.393 

REM K10-SINDA TEMP UNITS; K10-1 (DEG F); K10-2(DEG R} 

10- 1 

REM TIMEO (MIN) TIMEND (MIN) DTIMEI (MIN) OUTPUT (MIN) 

REM O.OOOOOE+OO 120.00 0.10000E-02 0.25000 

101 -O.OOOOOE+OO, 102- 2.0000 , 1 03-0 . 1 6667E-04 , 104-0 . 41 667E-02 

NLOOP- 500, DRLXCA- 0.001000, ARLXCA- 0.001000 

END 

BCD 3 AH RAY DATA 

REM CONDUCTIVITY BTU/ ( INCH. HR. F) FOR ALUMINUM 2219 
6204 

- 442., 0 . 4 1 43 OE + OO, -424., 0.89712E + 00, -406., 0.12994E+01 

-188., 0.17243E+01, -370., 0.21491E+01, -352., 0.28238E+01 

~.i34., 0.28938E+01, -316., 0.32486E+01, -298., 0.33986E+01 

-280., 0 . 34 935E+01, -190., 0.43482E+01, -100., 0.50479E+01 

-10., 0 . 5M76E+01, 80., 0.61474E+01, 170., 0.65472E+01 

260., 0 . 68471E+01, 350., 0.70470E+01, 440., 0.72969E+01 

530., 0. 75968E+01, 620., 0.77967E+01, 710., 0.79466E+01 

800., 0.78467E+01, 890., 0. 76967E+01, END 

REM SPECIFIC HEAT BTU/ (LB.F) FOR ALUMINUM 2219 

2204 

-442., 0. 35300E-03, -424., 0.19800E-02, -406., 0.74100E-02 

- 388., 0.18 1QQE-01, -370., 0.33000E-01, -352., 0.51300E-01 

-334., 0 . 69200E-01, -316., 0.83700E-01, -298., 0.99400E-01 

-*60., 0.11200E+00, -190., 0.16000E+00, -100., 0.18300E+00 

-10., 0 . 23000E+00, 80., 0.20800E+00, 170., 0.21000E+00 

260., 0 . 2 1 700E+00, 350., 0.22000E+00, 440., 0.22800E+00 

530., 0.23400E+00, 620., 0.23800E+00, 710., 0.24000E+00 

800., 0 . 24 800E + 00, 890., 0. 25400E+00, END 

REM DENSITY LB/ (CUBIC INCH) FOR ALUMINUM 2219 

3204 

-442., 0 . 10365E+00, -424., 0.10362E+00, -406., 0.10322E+00 

-3BB., 0 . 10318E+00, -370., 0.10312E+00, -352., 0.10308E+00 

-334., 0 . 1 0305E+00, -316., 0.10301E+00, -298., 0.10298E+00 

-280., 0 . 10296E+00, -190., 0.10278E+00, -100., 0.10260E+00 

-10., 0 . 1 0224E+00, 80., O.1O180E+OO, 170., 0.10152E+00 

260., 0.1011 6E+ 00, 350., 0.10079E+00, 440., 0.10043E+00 

530., 0.10Q07E+00, 620., 0.99711E-01, 710., 0.99169E-01 
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0 . 9808 5E-01 f END 


800., 0.98627E-01, 890. 

REM CP * RHO FOR ALUMINUM 2219 
1204 


-442., 

0.36988E-04, 

-424., 

0 • 20516E-03, -406., 

0 . 76488E-03 

-388., 

0.18675E-02, 

-370., 

0 » 34031E-02, -352., 

0 . 52881E-02 

-334., 

0.71310E-02, 

-316., 

0 . 86215E-02, -29B., 

0 . 1023 6E-01 

-280., 

0 . 11532E-Q1, 

-190., 

0. 16445E-01, -100., 

0 . 18776E-01 

i 

*-* 

o 

0. 20448E-01, 

80., 

0. 21191E-01, 170., 

0 . 21319E-01 

260., 

0* 21951E-01, 

350., 

0. 22175E-01, 440., 

0 . 22899E-01 

530., 

0. 234176-01, 

620., 

0. 23731E-01, 710., 

0 . 23800E-01 

800., 

0. 24459E-01, 

890., 

0. 24 914E-01, END 


CONDUCTIVITY BTU/ (INCH. HR. F) 

FOR STAINLESS 347 


6202 

-442., 

0 . 38983E-01, 

-424., 

0 . 10995E+00, -406., 

0 . 15 993E+00 

-380. , 

0. 22490E+00, 

-370., 

0 . 26989E+00, -352., 

0 . 27 613E+00 

-316., 

0.4123 2E+00, 

-280., 

0 . 45481E+00, -190., 

0. 55526E+00 

-100. , 

0 . 62973E+00, 

80., 

0 . 73 969E+00, 260., 

0 . 82465E+00 

440., 

0 . 89462E+00, 

620., 

0 . 95959E+00, 800., 

0. 10246E+01 

980. , 

0.1094 5E+Q1, 

1160., 

0 . 11595E+01, 1340., 

0. 12295E + 01 

1520. , 

0 . 1294 5E+01, 

1700., 

0 . 13644E+01, 1880., 

0.14294E+01 

2060., 

0. 14994&+01, 

2240., 

0 . 15643E+01, END 


SPECIFIC 

HEAT BTU/ (LB, 

.F> 

FOR STAINLESS 347 


2202 

-42., 

0 . 29400E-03, 

-424., 

0 . 10900E-02, -406., 

0.31500E-02 

- >88. , 

0 . 70800E-02, 

-370., 

0 . 12800E-01, -352., 

0 . 26000E-01 

-316., 

0.44 6G0E-01, 

-200., 

0 . 63000E-01, -190., 

0. 87000E-01 

o 

0 

1 

0 . 97000E-01 , 

80., 

0 . 10800E+00, 260., 

0. 11700E+00 

440., 

0.12 300E+00, 

620., 

0 . 13000E+00, 800., 

0.13500E+00 

980 . , 

0.14 Q00E+0Q, 

1160., 

0 . 14 500E+00, 1340., 

0. 14900E+00 

1520., 

0 . 1 5200E+00, 

1700., 

0 . 15600E+00, 1880., 

0, 16000E+00 

2060. , 

0.1 64C0E+00, 

2240. , 

0 . 16800E+QQ, END 


DENSITY 

I,B/ (CUBIC INCH) 

FOR STAINLESS 347 


3202 

-442. , 

0.28884E+00, 

-424., 

0 . 28873E+Q0, -406., 

0. 28862E+00 

-388. , 

0 . 28851E+00, 

-370., 

0 . 28840E+00, -352., 

O.20829E+OO 

-316., 

0 . 28 81 9E+00, 

-280., 

0 . 28782E+00, -190., 

O.20725E+OO 

-100., 

0 . 28 663E+00, 

80., 

0 . 28537E+00, 260., 

0. 28396E+00 

440., 

0 . 28 255E+00, 

620., 

0 . 28107E+00, 800., 

0. 27951E+00 

980. , 

0 . 27789E+00, 

1160., 

0 . 27655E+00, 1340., 

0. 27478E+00 

1520. , 

0 . 27296E+00, 

1700. , 

0 . 27102E+00, I860., 

0. 26900E+00 

2060., 
CP * RHO 

0.26687E+00, 2240,, 
FOR STAINLESS 347 

0.26463E+00, END 


1202 

-442. , 

0.84918E-04, 

-424., 

0 . 31 471E-03, -406., 

0. 9091 5E-03 

-388., 

0. 2O427E-02, 

-370., 

0 .3691 5E-02, -352., 

0 . 74956E-02 

- 116. , 

0. 1 2853E-01 , 

-280., 

0 . 18133E-01, -190., 

0. 24990E-01 

-100. , 

0. 27803E-01, 

80. , 

0 . 30820E-01 , 260., 

0 . 33223E-01 

4 40 . , 

0. 34754E-01, 

620., 

0 . 3653 9E-01 , 800., 

0 . 3773 4E-01 

980. , 

0. 3H904E-01, 

1160. , 

0 . 40100E-01, 1340., 

0 . 40943E-01 

: 520., 

0.41 490E-01, 

1700., 

0 . 42280E-01, 1880., 

0 . 43040E-01 

2060., 

0. 43767E-01, 

2240. , 

0 . 44458E-01, END 


SPECIFIC 

HEAT BTU/ (INCH. HR. F) 

FOR HYDROGEN 

AT P- < 

21 01 

-430., 

0. 53700E+03, 

-428., 

0.56560E+03, -428., 

0 . 57 660E + 03 

-427., 

0.59880E+03, 

-426., 

0.6222QE+03, -425., 

0 . 64 650E+03 

-424. , 

0. 67140E+03, 

-423., 

0.69750E+03, -422., 

0.72450E+03 

-421., 

0.75270E+03, 

-420. , 

0 . 7824GE+03, -419., 

0 . 81 420E+03 

-418., 

0 . 84 840E+03, 

-417., 

0 . 88590E+03, -416., 

0 . 92760E+03, 

DENSITY 

BTU/LB 


FOR HYDROGEN 

AT P- - 

3101 

-430., 

0 . 46700E+01, 

-428., 

0 . 46220E+01, -428., 

0 . 46050E+01 

-427., 

0 . 45700E+01, 

-426., 

0 . 45350E+01 , -425., 

0 . 44980E+01 

-424., 

0.44 600E+01, 

-423., 

0 . 44200E+01, -422., 

0.43790E+01 

-421., 

0 . 43350E+01, 

-420., 

0.42900E+01, -419., 

0. 42430E+01 

-418., 

0 . 41 930E+01, 

-417., 

0. 41410E+01, -416., 

0. 40850E+01, 

VISCOSITY LB/ (INCH. HR) 

FOR HYDROGEN 

AT P- 

4101 

-430., 

0.37236E-02, 

-428., 

0 . 34263E-02, -428., 

0 . 33369E-02 

-427., 

0. 31701E-02, 

-426., 

0 . 30174E-02, -425., 

0 . 28775E-02 

-424., 

0.274B1E-02, 

-423., 

0 . 26282E-02, -422., 

0 . 25165E-02 


49.0 PSIA 


49.0 PSIA 
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-421. , 

0.2412 IE-02, 

-420., 

0 . 23141E-02, 

-419., 


-418., 

0.21344E-02, 

-417., 

0. 20515E-02, 

-416., 

REM 

ENTHALPHY 

BTU/ (LB. 

F) 

FOR HYDROGEN 


5101 






-430.,- 

0.12220E+03, 

-428., 

-0. 11950E+03, 

-428. ,* 


-427.,- 

■0. 11 660E+03, 

-426., 

-0. 11450E+03, 

-425.,- 


-424 .,- 

■0.11020E+03, 

-423., 

-0 . 10790E+03, 

-422., 


-421.,- 

■0 . 1031 OE+03, 

-420., 

-0 . 10050E+03, 

-419., 


-418. 

■0 . 95100E+02, 

-417., 

-0 . 92200E+02, 

-416., 

REM 

CONDUCTIVITY BTU/ (INCH. HR. F) FOR HYDROGEN 


6101 






-430., 

0.4414 5E-02, 

-428. , 

0. 45405E-02, 

-428., 


-427., 

0 . 462 8 4E*-0 2, 

—426. , 

0 . 46668E-02, 

-425., 


-424. , 

0 . 47391E-02, 

-423., 

0 . 47868E-02, 

-422., 


-421., 

0 . 48483E-02, 

-420. , 

0. 48636E-02, 

-419., 


-418., 

0.48666E-02, 

-417., 

0. 48549E-02, 

-416., 

REM 

CP * RHO 

FOR HYDROGEN 


AT P- 49.1 

3 PSIA 


1101 






-430. , 

0.25078E+04, 

-428. 

, 0 . 26151E+04, 

-428., 


-427., 

0 . 27365E+04, 

-426. 

, 0. 20217E+O4, 

-425., 


-424. , 

0 . 29944E+04, 

-423. 

, 0. 30829E+04, 

-422., 


-421., 

0. 32630E+04, 

-420. 

, 0 . 33565E+04, 

-419., 


-418., 

0.35573E+04, 

-417. 

, 0 . 36685E+04, 

-416., 

REM 

SPECIFIC 

HEAT BTU/ (INCH. HR. 

F) FOR HYDROGEN 


2301 






-408 ., 

0.92820E+03, 

-407. 

, 0 . 91350E+03, 

-406., 


-405., 

0. 88950E+03, 

-404. 

, 0 .87960E+03, 

-403., 


-402., 

0 . 86250E+03, 

-401. 

, 0 . 85530E+03, 

-400., 


-399., 

0 . 84300E+03, 

-398. 

, 0 . 83760E+03, 

-397. , 


-396., 

0. 82830E+03, 

-395. 

, 0 . 82410E+03, 

-394 . t 

REM 

DENSITY 

BTU/LB 


FOR HYDROGEN 


3301 






-408., 

0 . 20 500E+00, 

-407. 

, 0 . 19900E+Q0, 

-406. , 


-405. , 

0. 18900E+00, 

-404 . 

, 0 . 18400E+00, 

-403., 


-402., 

0. 17600E+00, 

-401. 

, 0 . 17200E+0Q, 

-400., 


-399. , 

0. 16500E+00, 

-398. 

, 0 . 16200E+00, 

-397. 


-396. , 

0 . 1 5 500E+00, 

-395. 

, 0 . 15200E+00, 

-394. 

REM 

VISCOSITY LB/ (INCH. HR) 

FOR HYDROGEN 


4301 






-408. , 

0 . 3593 IE-03, 

-407, 

,, 0 . 37224E-03, 

-406. 


-405., 

0 . 404 67E-03, 

-404. 

, , 0 . 42 684E-03, 

-403. 


-402., 

0 . 5034 0E-03, 

-401, 

. , 0 . 59283E-03, 

, -400. 


-399., 

0 . 72 711E-03, 

-398, 

0 . 73098E-03, 

, -397. 


-396. , 

, 0 . 7 3875E-03, 

-395 

0 . 74 268E-03, 

, -394. 

REM ENTHALPHY BTU/ (LB. F) 

FOR HYDROGEN 


5301 






-408. , 

, 0.11070E+03, 

-407 

0. 11380E+03, 

-406. 


-405. ( 

r 0.11 980E+03, 

-404 

0 . 12270E+03, 

-403. 


-402., 

r 0 . 12 85QE+Q3, 

-401 

0 . 13140E+Q3, 

-400. 


-399. 

, 0 . 13700E+Q3, 

-398 

., 0 . 13980E+03 

-397. 


-396. 

, 0.14 54QE+Q3, 

-395 

., 0. 14810E+03 

-394. 


REM CONDUCTIVITY BTU/ { INCH .HR. F) FOR HYDROGEN 


0.22217E-02 
0 . 1 9725E-02, END 

AT P- 49.0 PSIA 

■0 , 11B50E+03 
■0 . 11240E+03 
■0 . 10560E+03 
-0.97900E+02 
-0 . 89200E+02, END 

AT P- 49.0 PSIA 

0.45741E-02 
0 . 46911E-02 
0 . 48231E-02 
0 . 48696E-02 
O.4B354E-02, END 


0 . 26552E+04 
0 . 29080E+04 
0 . 31726E+04 
0 . 34 546E+04 
0.37892E+04, END 

AT P- 49.0 PSIA 

0. 90060E+03 
0 . 87060E+03 
0 . 84 900E+03 
0. 83280E+03 
0.82020E+03, END 

AT P- 49.0 PSIA 

0 . 19400E+00 
0 . 18000E+00 
0 . 16B0QE+00 
0. 15800E+00 
0 . 15QQ0E+00, END 

AT P- 49.0 PSIA 

0 . 38703E-03 
0.45705E-03 
0.72327E-03 
0 . 73485E-03 
0 . 74 658E-03, END 

AT P- 49.0 PSIA 

, 0.U680E+03 
, 0 . 12560E+03 
, 0 . 1342QE+03 
r 0 . 14260E+03 
( 0 . 15090E+03, END 

AT P- 49.0 PSIA 


6301 

-408., 0 . 13 473E-02, 

-407. , 

0 . 1405 9E-02, 

-406., 

0. 14714E-02 

-405., 0 . 15430E-02, 

-404., 

0.16279E-02, 

-403., 

0 . 17342E-02 

-402., 0 . 18823E-02, 

-401., 

0. 21532E-02, 

-400., 

0. 25921E-02 

-399., 0 . 2 6181E-02, 

-398., 

0. 26439E-02, 

-397., 

0. 26696E-02 

-396., 0 . 2 6951E-02, 
;p * RHO FOR HYDROGEN 

-395., 

0 . 27205E-02, 
AT P- 49. 

-394., 
0 PSIA 

0 . 27457E-02, END 

1301 

-408., 0 . 1 9028E+03, 

-407., 

, 0. 18179E+G3, 

-406., 

0.17472E+03 

-405., 0 . 1 6812E+03, 

-404. , 

p 0 . 16185E+03, 

-403. , 

0 . 15671E+G3 

-402., 0 . 15180E+03, 

-401., 

, 0 . 14711E+03, 

-400., 

0 . 14 263E+03 

-399., 0 . 13910E+03, 

-398. 

, 0 . 13569E+03, 

-397., 

0 . 13158E+03 

-396., 0 . 1283 9E+03, 

-395. 

, 0 . 12526E+03, 

-394., 

0.12303E+03, END 


END 

BCD 3 EXECUTION 

F COMMON/USER1/ NTHETA, NBETAS, NTUNIT, BETA, RIN, TVOL 

F DIMENSION X( 3900) 

F NDIM- 3900 
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M NTHETA- K1 

M NBETAS- K2 

M BETA -XK3 

M RIN -XK4 

M TVOL -XK5 

M NTUNIT- K10 

M TIMEO - XK101 

M TIMEND- XK102 

M OUTPUT- XK104 

M DTIMEI- XfUOJ 

FWDBCK 

END 

BCD 3VARI ABLES 1 

F COMMON /U SERI/ NTHETA, NBETAS, NTUNIT, BETA, RIN, TVOL 

END 

BCD 3VARI ABLES 2 
END 

BCD 3 OUTPUT CALLS 
TPRNTF 

END 

BCD 3 END OF DATA 

EOF 

cossinda model 

ja -self f GET ACCOUNTING INFO 
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APPENDIX C 


"CryoTran Model" Files Part 2 
Spherical Models with no Nodes in Regions 4 & 5 
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Sample sphere models where regions 4 and 5 are not nodalized. 


prt*piitword 

# jobname 

# Combine error andstandard output 
# CPU time 

Memory requested 

« End NQS statements 
« set echo 

# SINDA MODEL TO FOLLOW 

BCD 3THERMAL LPCS 

REM THIS SINDA MODEL WAS GENERATED BY CRYOTRAN 

REiM SPHERE - — 2D WEDGE SHELL - THICK WALL FILL ANALYSIS 

REM WEi>GE ANGLE-BETA -1.0 RADIANS 

BCD 9SAMPLE RUN OF NO NODES IN TANK, CALLING 

BCD 9SUBROUTINES 

END 

BCD 3 NODE DATA 


REM 

NODE TEMPERATURES ARE IN (DEG R) 



REM 

REM 

DIMENSIONS ARE 
SURFACE NODES, 

IN (IN. > , TIME IS 
INSIDE TANK WALL 

IN (SECS) 


GEN 

1001, 25, 1 , 

540.0, 

-1.000000 

$ SURFACE NODES 

REM 

REM 

DIFFUSION NODES, REGION 1, TANKWALL 
REGION 1, LAYER NO. 1 


SIM 

2001, 

2, 24, 

540.0, A1201 , 

2.610795 

$ STAINLESS 304A 

SIM 

2002, 

2, 22, 

540.0, A1201, 

7.791187 

$ STAINLESS 304A 

SIM 

2003, 

2, 20, 

540.0, A1201 , 

12.848701 

$ STAINLESS 304A 

SIM 

2004, 

2, 18, 

540.0, A1201, 

17.703583 

$ STAINLESS 304A 

SIM 

2005, 

2, 16, 

540.0, A1201, 

22.279266 

$ STAINLESS 304A 

SIM 

2006, 

2, 34, 

540.0, A1201, 

26.503586 

$ STAINLESS 304A 

SIM 

2007, 

2, 12, 

540.0, A1201 , 

30.309937 

$ STAINLESS 304A 

SIM 

2008, 

2, 10, 

540.0, A1201 , 

33.638306 

$ STAINLESS 304A 

SIM 

2009, 

2, B, 

540.0, A1201 , 

36.436127 

$ STAINLESS 304A 

SIM 

2010, 

2, 6, 

540.0, A1201 , 

38.659363 

$ STAINLESS 304A 

SIM 

2011, 

2, 4, 

540.0, A1201, 

40.272919 

$ STAINLESS 304A 

SIM 

2012, 

2. 2, 

540.0, A1201, 

41.251343 

$ STAINLESS 304A 

SIV 

REM 

2013, 

REGION 

540.0, A1201, 
1, LAYER NO. 2 

41.579208 

$ STAINLESS 304A 

SIM 

2026, 

2, 24, 

540.0, A1201 , 

2.510389 

$ STAINLESS 304A 

SIM 

2027, 

2, 22, 

540.0, A1201, 

7.491554 

$ STAINLESS 304A 

SIM 

2028, 

2, 20, 

540.0, A1201 , 

12.354561 

$ STAINLESS 304 A 

SIM 

2029, 

2, 18, 

540.0, A1201 , 

17.022736 

$ STAINLESS 304A 

SIM 

2030, 

2, 16, 

540.0, A1201, 

21.422440 

$ STAINLESS 304A 

SIM 

2031, 

2, 14, 

540.0, AI201, 

25.484314 

$ STAINLESS 304A 

SIM 

2032, 

2, 12, 

540.0, A1201, 

29.144287 

$ STAINLESS 304A 

SIM 

2033, 

2, 10, 

540.0, A1201 , 

32.344635 

$ STAINLESS 304A 

SIM 

2034, 

2, 8, 

540.0, A1201, 

35 . 034866 

$ STAINLESS 304A 

SIM 

2035, 

2, 6, 

540.0, A1201, 

37.172607 

$ STAINLESS 304A 

SIM 

2036, 

2, 4, 

540.0, A1201, 

38.724106 

$ STAINLESS 304A 

SIM 

2037, 

2 . 2 , 

540.0, A1201, 

39.664902 

$ STAINLESS 304A 

SIV 

REM 

2038, 

REGION 

540.0, A1201, 
1, LAYER NO. 3 

39. 980148 

$ STAINLESS 304A 

SIM 

2051, 

2, ?4, 

540.0, A1201 , 

2.411952 

$ STAINLESS 304A 

SIM 

2052, 

2, 22, 

540.0, A1201, 

7.197796 

$ STAINLESS 304A 

SIM 

2053, 

2, ?0, 

540.0, A1201, 

11.870125 

$ STAINLESS 304A 

SIM 

2054, 

2, 18, 

540.0, A1201 , 

16.355255 

$ STAINLESS 304A 

SIM 

2055, 

2, 16, 

540.0, A1201, 

20.562428 

$ STAINLESS 304A 

SIM 

2056, 

2, 14, 

540.0, A1201, 

24.485031 

$ STAINLESS 304A 

SIM 

2057, 

2, 12, 

540.0, A1201, 

28.001480 

$ STAINLESS 304A 

SIM 

2058, 

2, 10, 

540.0, A1201 , 

31.076340 

$ STAINLESS 304A 

SIM 

2059, 

2, B, 

540.0, A1201, 

33.661087 

$ STAINLESS 304A 

SIM 

2060, 

2, 6, 

540.0, A1201, 

35.714996 

3 STAINLESS 304A 

SIM 

2061, 

2, 4, 

540.0, A1201 , 

37.205658 

3 STAINLESS 304A 

SIM 

2 0 6 2. 

2 . 2 , 

540.0, A1201, 

38.109558 

3 STAINLESS 304A 

SIV 

REM 

2063, 540.0, A1201 , 

REGION 1, LAYER NO. 4 

38.412460 

3 STAINLESS 304 A 


» USER-userld 
I QSUB -r sphere2 
I QSUB -eo 
» QSUB -IT 59 

t QSUB -1M 1.5MW I 

• 0 $ 
set -x 
ja 

cat > model << EOF 
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SIM 

2076, 

2, 

24, 

540.0, 

A1201, 

2.315484 

$ 

STAINLESS 

304A 

SIM 

2077, 

2, 

22, 

540.0, 

A1201, 

6.909912 

$ 

STAINLESS 

304A 

SIM 

2078, 

2, 

20, 

540.0, 

A1201 , 

11.395363 

3 

STAINLESS 

304A 

SIM 

2079, 

2, 

18, 

540,0, 

A1201, 

15.701111 

S 

STAINLESS 

304A 

SIM 

2080, 

2# 

16, 

540.0, 

A1201, 

19.759216 

$ 

STAINLESS 

304A 

SIM 

2081, 

2, 

14/ 

540.0, 

A1201, 

23.505722 

$ 

STAINLESS 

304A 

SIM 

2082, 

2, 

12, 

540.0, 

A1201 , 

26.881531 

$ 

STAINLESS 

304A 

SIM 

2083, 

2, 

10, 

540.0, 

A1201 , 

29.833420 

$ 

STAINLESS 

304A 

SIM 

2084, 

2, 

0 / 

540.0, 

A1201 , 

32.314789 

S 

STAINLESS 

304A 

SIM 

2085, 

2, 

6/ 

540.0, 

A1201, 

34.286545 

$ 

STAINLESS 

304A 

SIM 

2086, 

2, 

4, 

540.0, 

A1201 , 

35.717575 

$ 

STAINLESS 

304A 

SIM 

2087, 

2, 

2, 

540.0, 

A1201 , 

36.585342 

3 

STAINLESS 

304A 

SIV 

2088, 



540.0, 

A1201 , 

36.876114 

3 

STAINLESS 

304 A 

REM 

SURFACE 

NODES, 

OUTSIDE 

SURFACE, 

REGION 1, 

TANKWALL 


GEN 

3001, 

25, 

1, 

540.0, 


-1.000000 

3 

SURFACE NODES 

REM 

CONSTANT VALUE 

BOUNDARY 

' NODES; 

REGION 4, INSIDE OF TANK 


GEN 

END 

BCD 

-18001, 25, 
3 CONDUCTOR 

1, o, 

DATA 

.0, 

1.000000 $ INSIDE TANK 1 

REM 

RADIAL 

CONDUCTORS, 

CONDUCTION 

REM 

RADIAL 

CONDUCTORS REGION 1, 

LAYER 1 TO BOUNDARY 1- 4 

SIM 

1, 

2,1 

, 1001,24, 

2001, 24 

, A6201 , 1 . 833339E+0 1 

SIM 

3, 

2,1 

, 1002,22, 

2002, 22 

, A6201, 5 , 4 71 088E + 01 

SIM 


2,1 

, 1003,20, 

2003, 20 

, A6201, 9 . 022552E+01 

SIM 

7, 

2,1 

, 1004,18, 

2004, 18 

, A6201 , 1 . 243173E+02 

SIM 

9, 

2, 1 

, 1005,16, 

2005, 16 

, A6201, 1 . 564 483E+02 

SIM 

11, 

2,1 

, 1006,14, 

2006, 14 

, A6201, 1.861 122E+02 

SIM 

13, 

2,1 

, 1007,12, 

2007, 12 

, A6201 , 2 . 1 2840 9E+02 

SIM 

15, 

2,1 

, 1008,10, 

2008, 10 

, A6201, 2 . 3 62133E + 02 

SIM 

17, 

2,1, 

, 1009, 8, 

2009, 8 ( 

, A6201, 2 . 5 58600E + 02 

SIM 

19, 

2,1, 

, 1010, 6, 

2010, 6, 

, A6201 , 2.71471 9E+02 

SIM 

21, 

2,1, 

, 1011, 4, 

2011, 4, 

r A6201 , 2.828025E+02 

SIM 

23, 

2,1, 

, 1012, 2, 

2012, 2 1 

t A6201, 2 . 8 96731E+02 

SIM 

25, 

1, 1, 

r 1013, 0, 

2013, 0, 

, A6201, 2 . 91 9753E+02 


REM RADIAL CONDUCTORS REGION 1, LAYER 1 TO LAYER 2 
DIM 26, 2,1, 2001,24, 202 6, 24 , A6201 , 1 . 871533E+01 , A6201 , 

DIM 28, 2,1, 2002,22, 2027, 22, A6201 , 5. 585065E+01 , A6201, 

DIM 30, 2,1, 2003,20, 2028, 20, A6201 , 9. 21 051 6E+Q1 , A6201, 

DIM 32, 2,1, 2004,18, 2029, 18, A6201 , 1 . 269071E+02, A6201, 

DIM 34, 2,1, 2005,16, 2030, 1 6, A6201 , 1 . 597076E+02 , A6201 , 

DIM 36, 2,1, 2006,14, 2031 , 14, A6201 , 1 . 8998 94 E+02, A6201 , 

DIM 38, 2,1, 2007,12, 2032, 12, A6201 , 2. 172751 E+02 , A6201 , 

DIM 40, 2,1, 2008,10, 2033, 10, A6201 , 2 . 411343E+02, A6201, 

DIM 42, 2,1, 2009, 8, 2034, 8,A6201, 2 . 61 1 902E+02, A6201, 

DIM 44, 2,1, 2010, 6, 2035, 6,A6201, 2 . 771274E+02, A6201, 

DIM 46 / 2,1, 2011, 4, 2036, 4,A6201, 2 . 88 694 1E+02 , A6201 , 

DIM 48, 2,1, 2012, 2, 2037, 2,A6201, 2 . 957078E+02, A6201 , 

DIM so # 1/1, 2013, 0, 2038, 0,A6201, 2. 980581 E+02, A6201, 

REM RADIAL CONDUCTORS REGION 1, LAYER 2 TO LAYER 3 
DIM 51 / 2,1, 2026,24, 2051, 24,A6201, 1 . 949101E+01, A6201, 

DIM 53, 2,1, 2027,22, 2052, 22, A6201 , 5 . 81 6547E+01 , A6201, 

DIM 55, 2,1, 2 028,20, 2053, 20, A6201, 9. 592261E+01 , A6201, 

DIM 57, 2,1, 2029,18, 205 4 , 18 , A6201 , 1 . 321 669E+ 02 , A6201 , 

DIM 59, 2,1, 2030,16, 205 5, 16, A6201 , 1 . 6632 69E+02 , A6201 , 

DIM 61, 2,1, 2031,14, 2056, 14, A6201, 1 . 978638E+02, A6201 , 

DIM 63, 2,1, 2032,12, 2057, 12, A6201 , 2 . 262803E+02 , A6201 , 

DIM 65, 2,1, 2033,10, 2058, 10, A6201 , 2 . 51 1284 E+02 , A6201 , 

DIM 67, 2,1, 2034, 8, 2059, 8,A6201, 2 . 7201 56E+02 , A6201 , 

DIM 69, 2,1, 2035, 6, 2060, 6,A6201, 2 . 88 6133E+02, A6201 , 

DIM 2,1, 2036, 4, 2061, 4,A6201, 3. 006594E+02, A6201, 

DIM 73, 2,1, 2037, 2, 2062, 2,A6201, 3 . 079639E+02, A6201 , 

DIM 75, 1,1, 2038, 0, 2063, 0,A6201, 3 . 1041 14E+02, A6201, 

REM RADIAL CONDUCTORS REGION 1, LAYER 3 TO LAYER 4 
DIM 76, 2,1, 2051,24, 207 6, 24, A6201 , 2 . 028244E+01 , A6201 , 

DIM 78, 2,1, 2052,22, 2077, 22, A6201 , 6. 052728E+01 , A6201 , 

DIM 80, 2,1, 2053,20, 2078, 20, A6201 , 9 . 98 17 50E+01 , A6201 , 

DIM 82, 2,1, 2054,18, 2079, IB, A6201, 1 . 37 5336E+02 , A6201 , 

DIM 84, 2,1, 2055,16, 2080, 16, A6201, 1 . 730806E+02 , A6201 , 

DIM 86, 2,1, 2056,14, 2081, 14, A6201, 2 . 058981 E+02 , A6201 , 

DIM 88, 2,1, 2057,12, 2082, 12, A6201, 2 . 3546B4E+02 , A6201 , 


1 . 910120E+01 
5.700220E+01 
9. 400415E+01 
1 . 295237E+02 
1. 630004E+02 
1 . 939067E+02 
2 . 217549E+02 
2. 461060E+02 
2. 665754E+02 
2 . 8284 11E+02 
2. 946462E+02 
3 . 01 8047E+02 
3 . 04 2034E+02 

1 . 988475E+01 
5. 934052E+01 
9. 78 6041E+01 
1 . 348369E+02 
1 . 696870E+02 
2 . 018610E+02 
2 , 308516E+02 
2. 562014E+02 
2 . 77 5107E+02 
2. 944436E+02 
3 . 067332E+02 
3. 141851E+02 
3 . 166824E+02 

2 . 068407E+01 
6. 172580E+01 
1 . 01794 1 E+ 02 
1 . 4025 70E+02 
1 . 765079E+02 
2.0997 52E+02 
2 . 4013 11E+02 
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DIM 

DIM 

DIM 

DIM 

DIM 

DIM 

REM 

SIM 

SIM 

SIM 

SIM 

SIM 

SIM 

SIM 

SIM 

SIM 

SIM 

SIM 

SIM 

SIM 

REM 

REM 


90, 

92, 

94, 

96, 

98, 

100 , 


2 , 1 , 

2 , 1 , 

2 , 1 , 

2 , 1 , 

2 , 1 , 

1 , 1 , 


2050,10, 

2059, 8, 

2060, 6, 

2061, 4, 

2062, 2, 
2063, 


2083, 10 , A6201 , 

2084, 8, A6201 , 
6, A6201 , 
4 , A6201, 
2, A6201 , 
0, A6201 , 


2085, 

2086, 

2087, 

2088, 


RADIAL CONDUCTORS REGION 1, LAYER 4 
101, 2,1, 2076,24, 3001,24, A6201, 

2077,22, 3002,22, A6201, 
2078,20, 3003,20, A6201, 
2079,18, 3004,18, A6201, 
2080,16, 3005,16, A6201, 
2081,14, 3006,14, A6201, 
2082,12, 3007,12, A6201, 
2083,10, 3008,10, A6201, 
2084, 8, 3009, 8, 

6 , 


103, 

105, 

107, 

109, 

111 , 

113, 

115, 

117 , 

119, 

121 , 

123, 

125, 


2 , 1 , 

2 , 1 , 

2 , 1 , 

2 , 1 , 

2 , 1 , 

2 , 1 , 

2 , 1 , 

2 , 1 , 

2 , 1 , 

2 , 1 , 

2 , 1 , 

1 , 1 - 


2085, 

2086, 

2087, 

2088, 


3010, 

3011, 

3012, 

3013, 


2. 613254 E+ 02, A 62 01, 
2 , 8306Q8E+02, A6201, 
3 . 003325E+02 , A6201 , 
3. 128677E+02, A6201, 
3. 204687E+02, A6201 , 
3.230159E4-02, A6201 , 
TO BOUNDARY 1-2 
2 . 108963E+01 
6.293 610E+01 
1 .037900E+02 
1 . 43Q071E+02 
1 .799687E+02 
2 . 1 4092 2E + 02 
2 . 4 48394E+02 
2 . 717253E+02 
A6201, 2.943259E+02 

A6201, 3 . 1 22847E+02 
4, A6201, 3 . 2 53 188E + 02 

2, A6201 , 3 . 332 224E + 02 
0, A6201, 3 . 35870BE+02 


CIRCUMFERENTIAL CONDUCTORS; Y- DIRECTION, CONDUCTION 
CIRCUMFERENTIAL CONDUCTORS REGION 1, LAYER NUMBER 1 


DIM 

126, 

2,1, 2001,23, 2002, 23 , A6201 , - 

DIM 

128, 

2,1, 2C02, 21, 2003, 21,A6201, : 

DIM 

130, 

2,1, 2003,19, 2004, 19, A6201, 

DIM 

132, 

2,1, 2004,17, 2005, 17, A6201, 

DIM 

134, 

2,1, 2005,15, 2006,15, A6201, 

DIM 

136, 

2,1, 2006*, 13, 2007, 13, A6201 , 

DIM 

138, 

2,1, 2007,11, 2008, 11,A6201, 

DIM 

140, 

2,1, 2008, 9, 2009, 9,A6201, 

DIM 

142, 

2,1, 2009, 7, 2010, 7,A6201, 

DIM 

144, 

2,1, 2010, 5, 2011, 5, A62Q1 , 

DIM 

146, 

2,1, 2011, 3, 2012, 3 , A62Q1 , 

DIM 

148, 

2,1, 2012, 1, 2013, 1 , A6201 , 

REM 

CIRCUMFERENTIAL CONDUCTORS REGION 1, 

DIM 

150, 

2,1, 2026,23, 2027, 23, A6201 , 

DIM 

152, 

2,1, 2027,21, 2028, 21 , A6201 , 

DIM 

154, 

2,1, 2020,19, 2029, 19,A6201, 

DIM 

156, 

2,1, 2029,17, 2030, 17,A6201, 

DIM 

1 58, 

2,1, 2030 , 1 L >, 2031, 1 5 , A6201 , 

DIM 

1 60, 

2,1, 2031,17, 2032, 13, A6201, 

DIM 

162, 

2,1, 2032,11, 2033, 11, A6201, 

DIM 

1 64, 

2,1, 2033, 9, 2034, 9,A6201, 

DIM 

166, 

2,1, 2034, 7, 2035, 7,A6201, 

DIM 

168, 

2,1, 2035, 5, 2036, 5,A6201, 

DIM 

170, 

2,1, 2036, 3, 2037, 3,A6201, 

DIM 

172, 

2,1, 2037, 1, 2038, 1,A62G1, 

REM 

CIRCUMFERENTIAL CONDUCTORS REGION 1, 

DIM 

174, 

2,1, 2051,23, 2052, 23,A6201, 

DIM 

176, 

2,1, 2052,21, 2053, 21 , A6201, 

DIM 

170, 

2,1, 2053,19, 2054, 19, A6201 , 

DIM 

180, 

2,1, 2054,17, 2055,17, A6201, 

DIM 

182, 

2,1, 2055,15, 2056, 15,A6201, 

DIM 

184, 

2,1/ 2056,13, 2057, 13 , A6201 , 

DIM 

186, 

2,1, 2057,11, 2058, 11 , A62Q1 , 

DIM 

188, 

2,1, 2050, 9, 2059, 9,A6201, 

DIM 

190, 

2,1, 2059, 7, 2060, 7,A6201, 

DIM 

192, 

2,1, 2060, 5, 2061, 5,A6201, 

DIM 

194, 

2,1, 2061, 3, 2062, 3,A6201, 

DIM 

196, 

2,1, 2062, 1, 2063, 1,A6201, 

REM 

CIRCUMFERENTIAL CONDUCTORS REGION 1 

DIM 

198, 

2,1, 2076,23, 2077, 23, A6201, 

DIM 

200, 

2,1, 2077,21, 2070, 21,A6201, 

DIM 

202, 

2,1, 2078,19, 2079, 19, A6201, 

DIM 

204, 

2,1, 2079,17, 2080, 17 , A6201 , 

DIM 

206, 

2, 1 , 2080,15, 2081,15^6201, 

DIM 

208, 

2,1, 2081,13, 2082, I3,A620i, 

DIM 

210, 

2,1, 2082,11, 2083, 11, A6201, 

DIM 

212, 

2,1, 2063, 9, 2084, 9,A6201, 

DIM 

214, 

2,1, 2084, 7, 2085, 7,A6201, 


5. 7894 97 E+ 00, A 62 01, 
6.425247E+00,A6201, 
6. 95 9660 E+ 00, A6 2 01, 


7. 692525E+00, A6201, 
7.879416E+00,A6201, 
LAYER NUMBER 2 
4 . 986876E-01,A6201, 

1 .488194E+00,A6201, 

2 . 454229E+00, A6201, 

3 . 381560E+00, A6201, 

4 . 255560E+00, A6201, 

5 . 062449E+00, A6201 , 

5 . 78 94 99E+00 , A6201 , 
6. 4 2 524 9E+00, A6201, 
6. 9596 60 E+ 00, A6201, 

7 . 384320E+00, A6201, 

7 . 692525E+00 , A6201 , 
7.879413E+00,A6201, 
LAYER NUMBER 3 
4. 986877 E- 01, A6201, 
1. 488194 E+ 00, A 62 01, 
2. 454230E+00, A6201, 

3 . 3815 61E+00 , A6201 , 

4 . 25 55 61E+GQ, A6201 , 
5. 062448E+00, A6201, 
5. 7895 00 E+ 00, A 62 01, 
6 . 425246 E+ 00, A6201 , 
6.95 9663E+00 , A62Q1 , 
7. 384321 E+ 00, A 62 01, 
7. 692526E+00,A6201, 
7.07941 6E+00 , A6201 , 

, LAYER NUMBER 4 
4 . 98 6876E-01 , A6201 , 
1. 4881 94 E+ 00, A 62 01, 
2. 454229E+00 , A6201 , 
3 . 381561E+00 , A6201 , 
4 . 255559E+ 00, A6201 , 
5 . 062 4 48E+00 , A6201 , 
5 . 789497E+00 , A6201 , 
6. 425240 E+ 00, A 62 01, 
6. 959662E+00,A6201, 


. 665000E+02 
. 886658E+02 
.062795E+02 
. 190630E+02 
. 268145E+02 
. 29411 9E+02 


. 4881 94E+00 
. 454229E+00 
. 381560E+00 
. 255559E+00 
i . 062449E+00 
>.789497E+00 
i. 425247E+00 
i. 959660E+00 
r . 384319E+00 
! . 692525E+00 
] . 879416E+00 
7. 942040E+00 

1. 488194E+00 
2.454229E+00 
3 . 3815 60E+00 
4 . 255560E+00 
5 . 062449E+00 
5 . 78 94 99E+00 
6 . 425249E+00 
6. 959660E+00 
7 . 384320E+00 
7. 692525E+00 
7. B79413E+00 

7 . 94 2039E+00 

1 . 488194E+00 
2. 454230E+00 
3 . 381561 E+00 
4 . 255561E+00 
5 . 062448E+00 
5 . 78 9500E+00 
6 . 425246E+00 

6 . 95 9663E+00 
7 . 384321E+00 
7 . 692526E+00 
7 . 87 9416E+00 
7 . 942042E+00 

1 . 4881 94E+00 
2 . 4 542 29E+00 
3 . 381561E+00 
4. 255559E+00 
5 . 0624 48E+00 
5 . 78 94 97E+00 
6. 425248E400 
6. 959662E+00 
7 . 384322E+00 


101 


DIM 216, 2,1, 2085, 5, 2086, 5,A6201, 7 . 384322E+00, A6201 , 7.692526E+00 

DIM 218, 2,1, 2086, 3, 2087, 3,A6201, 7 . 692526E+00, A6201, 7.879414E+00 

DIM 220, 2,1, 2087, 1, 2088, 1,A6201, 7. 879414E+00, A6201, 7.942040E+00 

REM CONVECTION CONDUCTORS; INSIDE TANK TO TANK WALL 
GEN 18001, 25, 1,18001, 1, 1001, 1, 0 . OOOOOE+OO, 0 . OOOOOE+OO, 1.00 1 00 

END * ' 

BCD 3CONSTANTS DATA 

REM NTHETA NBETAS BETA RIN TVOL 

1- 25, 2- 1, 3- 1.000, 4- 24.000, 5- 33.510 

REM SPECIAL INPUT VALUES 

6- 0.500, 7- 40.000, 8- 60.000, 9- 95.000 

REM K10-SINDA TEMP UNITS; K10-1 (DEG F) ; K10-2 (DEG R) 

10-2 

REM TIMEO {MIN) TIMEND (MIN) DTIMEI (MIN) OUTPUT (MIN) 

REM 0. OOOOOE+OO 360.00 0.12500E-01 0.25000 

1 01-0 .00000E+00, 102- 6.0000 , 103-0 .20833E-03, 104-0 . 41 667E-02 

NLOOP- 300, DRLXCA- 0.001000, ARLXCA- 0.001000 

END 

BCD 3 ARRAY DATA 

1 SREGION 1, (TANKWALL ), INSIDE SURFACE AREAS (IN* * 2 ) 

4.53598E+00, 1.35363E+01, 2.23232E+01, 3.Q7581E+01, 3.87078E+01 

4 . 60471E+0 1, 5 . 2 6603E+01 , 5.84429E+01, 6.33039E+01, 6.71665E+01 

6. 99699E+01, 7.16698E+01, 7.22394E+01, 7.16698E+01, 6.99699E+01 

6.71 665E+01, 6 . 33039E+01 , 5.84429E+01, 5.26603E+01, 4.60471E+01 

3 . 87078E+01, 3.Q7581E+01, 2.23232E+01, 1.35363E+01, 4.53598E+00 

END 

2 SREGION 1, (TANKWALL ), OUTSIDE SURFACE AREAS (IN**2) 

5.32347E+00, 1.58864E+01, 2.61988E+01, 3.60980E+01, 4.54279E+01 

5 . 4041 4E+01, 6.18027E+01, 6.85893E+01, 7.42941E+01, 7.88274E+01 

8 . 21 174E+01, 8.411 25E+01, 8.47810E+01, 8.41125E+01, 8.21174E+01 

7 . 88274E+01 , 7.42941E+01, 6.85893E+01, 6.18027E+01, 5.40414E+01 

4 . 54 27 9E + 01 , 3.60980E+01, 2.61988E+01, 1.58864E+01, 5.32347E+00 

END 

REM CONDUCTIVITY 3TU/ ( INCH . HR. F) FOR STAINLESS 304A 

6201 

36., O.I0346E+00, 72., Q.21616E+00, 108., 0.35610E+00 

144., 0 . 42607E+00, 180., 0.47480E+00, 270., 0.57476E+00 

360., 0 . 64 972E + 00, 450., 0.70970E+00, 540., 0.75968E+00 

630., 0 . 80 966E + 00, 720., 0.84964E+00, 810., 0.88462E+00 

900., 0. 91 9G1E+00, 990., 0.94960E+00, 1080., 0.98958E+00 

1 170,, 0.1024 6E + 0 1 , 1260., 0.10596E+01, 1350., 0.10895E + 01 

1440., 0.11245E+01, 1530., 0.11595E+Q1, 1620., 0.11945E+01 

1800., 0. 12645E+01, 1980., 0.13344E+01, 2160., 0.14044E+01 

2340., 0.14744E+01, 2520., Q.15443E+01, 2700., 0 . 1 614 3E+01 , END 

REM SPECIFIC HEAT BTU/ (LB.F) FOR STAINLESS 304A 

2201 

36., 0 . 10200E-02, 72., 0.69600E-02, 108., 0.25800E-01 

144., 0. 44500E-01, 180., 0.58500E-01, 270., 0.81000E-01 

360., 0.93000E-01, 450., 0.10000E+00, 540., 0.10800E+00 

630., 0, 11200E+00, 720., 0.11700E+00, 810., 0.12150E+00 

900., 0 . 1 2 600E+00, 990., 0.12950E+00, 1080., 0.13300E+00 

1170., 0 . 13500E+00, 1260., 0.13800E+00, 1350., 0.14000E+00 

1440., 0. 14200E+00, 1530., 0.14500E+00, 1620., 0.14800E+00 

1800., 0 . 15C00E+00, 1980., 0.15200E+00, 2160., 0.15400E+00 

2340., 0.157Q0E+00, 2520., 0.16000E+00, 2700., 0 . 1 6200E+00, END 

REM DENSITY LB/ (CUBIC INCH) FOR STAINLESS 304A 

3201 

36., 0 . 28873E+00, 72., 0.28858E+00, 108., 0.28837E+00 

144., 0.28808E+00, 180., 0.28782E+00, 270., 0.28725E+00 

360., 0 . 28663E+00, 450., 0.28600E+00, 540., 0.28537E+00 

630., 0.28468E+00, 720., 0.28396E+00, 810., 0.28324E+00 

900., 0.28255E+00, 990., 0.28179E+00, 1080., 0.28107E+00 

1170., 0 . 2803 1E+00, 1260., 0.27951E+G0, 1350., 0.27883E+00 

1440., 0 . 27 789E+00, 1530., 0.27709E+00, 1620., 0.27655E+00 

1800., 0.27 478E + 00, 1980., 0.27294E+00, 2160., 0.27102E+00 

2340., 0. 2 6 900E*+Q0, 2520., 0.26687E+00, 2700., 0. 26463E + 00, END 

REM CP * RHO FOR 3TAINLESS 304A 

1201 

36., 0. 29 450E-03, 72., 0.20085E-02, 108., 0.74398E-02 

144., 0.1281 9E-01, 180., 0.16838E-01, 270., 0.23267E-01 
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REM 


REM 


REM 


REM 


REM 


360. , 

0. 26657E-01, 

450. 

,, 0 . 28 600E-01 , 


540. 

630., 

0. 31884E-01, 

720. 

, 0 . 33223E-01, 


810. 

900., 

0. 35601E-01, 

990. 

, 0.36492E-01, 

10B0. 

1170., 

0.37842E-Q1, 

1260. 

,, 0 . 38573E-01 , 

1350. 

1440., 

0.39460E-01, 

1530. 

, 0 . 40179E-01 , 

1620. 

1800., 

0 . 41 21 7E-01, 

1980. 

,, 0 . 41487E-01, 

2160. 

2340., 

0 . 42233E-Q1, 

2520. 

, 0 . 42 699E-01, 

2700. 

SPECIFIC 

HEAT BTU/ (INCH. HR. 

F) FOR HYDROGEN 


2101 






30., 

0 . S3700E+03, 

32. 

, 0.56580E+03, 


32., 

33., 

0.59880E+03, 

34. 

, 0. 62220E+03, 


35. , 

36. , 

0 . 6714 0E+03, 

37. 

, 0. 69750E+03, 


38. 

39., 

0 . 75270E+03, 

40. 

, 0 . 78240E+03, 


41., 

42., 

0 . 84 84 QE+03, 

43. 

, 0 . 88 590E+03, 


44. , 

DENSITY 

BTU/LB 


FOR HYDROGEN 


3101 






30., 

0 . 46700E+Q1, 

32 . 

, 0 . 46220E+01 , 


32. , 

33., 

0 . 45700E+01, 

34. 

, 0 . 45350E+0 1 , 


35. , 

36., 

0. 44600E + Q1, 

37. 

, 0 . 44200E+01 , 


38. 

39., 

0.43350E+01, 

40. 

, 0 . 42 900E+01 , 


41., 

42., 

0 . 41930E+01, 

43. 

, 0. 41410E+01, 


44. , 

VISCOSITY LB/ (INCH. HR) 

FOR HYDROGEN 


4101 






30., 

0 . 3723 6E-02, 

32. 

, 0 . 34263E-02, 


32. 

33., 

0 . 31701E-02, 

34. 

, 0. 30174E-02, 


35. 

36., 

0 . 27481E-02, 

37. 

, 0 . 26282E-02, 


38. 

39., 

0 . 24121E-02, 

40. 

, 0 . 23141E-02, 


41. 

42., 

0 . 21344E-02, 

43. 

, 0 . 2051 5E-02, 


44. 

ENTHALPHY BTU/ (LB . 

■ F> 

FOR HYDROGEN 


5101 






30.,- 

0 . 12220E+Q3, 

32. 

, -0 . 11 950E+03, 


32. 

33.,- 

0.11 660E+03, 

34. 

,-0. 11450E+Q3, 


35. 

36.,- 

■0 . 11020E+03, 

37. 

,-0. 10790E+03, 


38. 

39.,- 

0.10310E+03, 

40. 

,-0. 10050E+03, 


41. 

42.,- 

-0. 95100E+02, 

43. 

,-0. 92200E+02, 


44. 

CONDUCTIVITY BTU/ (INCH. HR. 

, F) FOR HYDROGEN 


6101 






30., 

0.44145E-02, 

32. 

, 0. 45405E-Q2, 


32. 

33. , 

0 . 4 628 4E-02, 

34. 

, 0 . 4 6668E-0 2, 


35. 

36. , 

0.47391E-02, 

37. 

, 0 . 47868E-0 2, 


38. 

3 9., 

0.48483E-02, 

40. 

, 0 . 48 636E-0 2, 


41. 

42. , 

0. 486662-02, 

43. 

, 0.48549E-02, 


44. 

CP * RHO 

FOR HYDROGEN 


AT P- 49. 

0 

PSIA 
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30. , 

0 . 250 78E+04, 

32. 

, 0 . 26151E+0 4 , 


32. 

33. , 

0 . 27365E+04, 

34. 

, 0 . 2821 7E + 0 4, 


35. 

36., 

0.2994 4E+04, 

37. 

, 0 . 3Q829E+04 , 


38. 

39. , 

0 . 32630E+04, 

40. 

, 0 . 33 565E+0 4 , 


41. 

42., 

0 . 35573E+04, 

43. 

, 0 . 36665E + 0 4 , 


44 . 

SPECIFIC 

HEAT BTU/ ( INCH. HR. 

, F) FOR HYDROGEN 


2301 






52. , 

0 . 92820E+03, 

53. 

, 0 . 91350E+03, 


54. 

55., 

0 . 8B950E+Q3, 

56. 

, 0 . 87 960E+Q3 , 


57. 

58., 

0 . 86250E+03, 

59. 

, 0.85530E+03, 


60. 

61., 

0 . 84300E+03, 

62. 

, 0. 83760E+03, 


63. 

64., 

0 . 82830E+03, 

65. 

, 0 . 82410E+03, 


66. 

DENSITY 

BTU/LB 


FOR HYDROGEN 


3301 






52. , 

0. 2050QE+00, 

53. 

, 0 . 19900E+00, 


54. 

55., 

0.18 900E+00, 

56. 

, 0 . 18 400E + 00, 


57. 

58., 

0 . 17 6QQE+00, 

59. 

, 0.17200E+00, 


60. 

61., 

0. 16500E4-00, 

62. 

, 0 . 16200E+00, 


63. 

64., 

0 . 15 500E+00, 

65. 

, 0 . 15200E+00, 


66. 

VISCOSITY LB/ (INCH, 

.HR) 

FOR HYDROGEN 


4301 






52. , 

0.35931E-03, 

53. 

, 0.37224E-03, 


54. 

55. , 

0.40467E-03, 

56. 

, 0. 42 684E-03, 


57. 

56., 

0. 50340E-03, 

59. 

, 0. 59283E-03, 


60. 

61., 

G.72711E-03, 

62. 

, 0 . 73098E-03, 


63. 

64., 

0.7397 5E-1 3, 

65. 

, 0.742 68F.-03, 


66. 


0. 30820E-01 
0.34413E-01 
0 . 37382E-01 
0 . 3903 6E-01 
0 . 40930E-01 
0 . 41738E-01 
0.42870E-01, END 
AT P- 49.0 

0 . 57 660E + 03 
0 . 64 650E + 03 
0 . 72450E+03 
0 . 81420E+03 
0 . 92760E+03, END 
AT P- 49.0 

0. 46050E+01 
0 . 44 980E + 01 
0 . 43790E+01 
0 . 42 430E + 01 
0.40850E+01, END 
AT P- 49.0 

0 . 33369E-02 
0.28775E-02 
0 . 25165E-02 
0 . 22217E-02 
0 . 1 972 5E-02, END 
AT P« 49.0 

-0 . 11 850E+03 
-0 . 11 240E+03 
“0 . 10560E+03 
-0 . 97 900E + 02 
-0.89200E+02, END 
AT P- 49.0 

0 . 45741E-02 
0 . 46911E-Q2 
0 . 48231E-02 
0 . 48 696E-02 
0.48354E-02, END 


0 . 26552E+04 
0.29080E+04 
0 . 31 72 6E + 04 
0.34 54 6E + 04 
0.37892E+04, END 
AT P- 49.0 

0 . 90060E+03 
0 . 87060E+03 
0 . 84 900E+03 
0 . 83280E+03 
0 . 82020E+03, END 
AT P- 4 9.0 

0. 19400E+00 
0. 18000E+00 
0 . 1 6800E+00 
0. 15800E+00 
0.15000E+00, END 
AT P- 49.0 

0 . 3870 3E-03 
0 . 4570 5E-03 
0 . 7232 7E-03 
0 . 7348 5E-0 3 
0.74658E-03, END 


PSIA 


PSIA 


PSIA 


PSIA 


PSIA 


PSIA 


PSIA 


PSIA 
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REM ENTHALPHY BTU/ (LB.F) FOR HYDROGEN AT P- 49.0 PSIA 

5301 


52., 

0. 11070E+03, 

53, 

,, 0. 11380E+03, 

54., 

0 . 11680E+03 

55., 

0. 11980E+03, 

56. 

,, 0. 12270E+03, 

57., 

0. 12560E+03 

58., 

0 . 12850E+03, 

59. 

, 0. 13140E+03, 

60., 

0. 13420E+03 

61., 

0.13700E+03, 

62. 

,, 0 . 13980E+03, 

63., 

0 . 14260E+03 

64., 

0.14 540E+03, 

65. 

, 0 . 14810E+03, 

66., 

0 . 1509QE+0 3, END 

CONDUCTIVITY BTU/ {INCH 

.HR. 

F) FOR HYDROGEN 


AT P- 49.0 PSIA 

6301 






52., 

0 . 1347 3E-02 , 

53. 

, 0 . 1405 9E-02, 

54., 

0.1471 4E-02 

55., 

0 . 1 5430E-02, 

56. 

, 0. 16279E-02, 

57., 

0.17342E-02 

oo 

0 . 1882 3E-02, 

59. 

, 0 . 21 532E-02, 

60. , 

0 . 25921E-02 

61., 

0 . 26181E-G2, 

62. 

, 0 . 26439E-02, 

63., 

0 . 26696E-02 

64., 

0 . 26951E-02, 

65. 

, 0 . 27205E-02, 

66., 

0.27457E-02, END 

CP * RHO 

FOR HYDROGEN 


AT P- 49.0 

PSIA 


1301 






52., 

0. 1902BE+03, 

53. 

, 0 . 1817 9E + 03, 

54., 

0 . 17472E+03 

55., 

0.1683 2E+03, 

56. 

, 0 . 1 6185E+03, 

57., 

0 . 15671E+Q3 

58., 

0 . 15160E+03, 

59. 

, 0 . 14711E+03, 

60., 

0 . 14263E+Q3 

61., 

0. 13910E+03, 

62. 

, 0 . 13569E+03, 

63., 

0 . 13158E + 03 

64., 

0 . 1283 9E + 03, 

65. 

, 0. 12526E+03, 

66. , 

0.12303E+03, END 


END 

BCD 3 EXECUTION 

F COMMON /U SERI / NTHETA, NBETAS, NTUNIT, BETA, RIN, TVOL 

F COMMON/USER2/ PTIME, DELTIM, XC1, XC2, XC3 , XC4 

F COMMON/ I NSA /SARIN ( 25) 

F COMMON/OUTSA/SAROUT ( 25) 

F COMMON/ SURFT/TSURF { 25) 

F COMMON/ BNDYT/TBDY ( 25) 

F COMMON/ HTRCO /H COE F ( 25) 

F COMMON/ SURFQ/QSURF ( 25) 

F DIMENSION X{ 800) 

F NDIM- 800 

M NTHETA- K1 

M NBETAS- K2 

M BETA -XK3 

M RIN -XK4 

M TVOL ~XK5 

M XC1 -XK6 

M XC2 * XK7 

M XC3 -XK8 

M XC4 -XK9 

M NTUNIT' K10 

F DO 120 1-1, NTHETA 

M SARIN ( I ) -A { 1 +1 ) 

M SAROUT < I) -A {2+1} 

F 120 CONTINUE 
F CALL THWSE1 

M TIMEO - XK101 

M TIMEND- XK102 

M OUTPUT- XK104 

M DTIMEI- XK103 

FWDBCK 

F CALL THWSE2 

END 

BCD 3VARI ABLES 1 

F COMMON/USER1 / NTHETA, NBETAS, NTUNIT, BETA, RIN, TVOL 

F COMMON /USER2/ PTIME, DEI.TIM, XC1, XC2, XC3, XC4 

F COMMON/ I NSA /SARIN ( 25) 

F COMMON/OUTSA/SAROUT ( 25) 

F COMMON /SURFT/TSURF ( 25) 

F COMMON /BNDYT/TBDY ( 25) 

F COMMON /HTRCO/HCOEF ( 25) 

F COMMON/ SURFQ/QSURF ( 25} 

F PTIME -TIMEO 

F DELTIM-DTIMEU 

F DO 270 I-l f NTHETA 

F IM1-I-1 

M TSURFU) -TU001 + 1M1) 

F 270 CONTINUE 
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F CALL THWSV1 

F DO 271 1-1, NTHETA 

F IM1-I-1 

M T (18001+IM1) -TBDY (I) 

M Q (1001+IMl) -Q (1001+IMl) +QS0RF (I) 

M G (180Q1+IM1) -HCOEF (I) *SARIN (I) 

F 271 CONTINUE 
END 

BCD 3VARIABLES 2 
F CALL THWSV2 

END 

BCD 3 OUTPUT CALLS 
F CALL THWSOU 

F END 

CC* SUBROUTINES CALLED BY SINDA CRYOTRAN PROGRAMS NTYP - 1, NAN - 3. 

CC* THESE SUBROUTINES ARE CALLED FROM THE EXECUTION AND VARIABLES BLOCKS 
CC* OF THE THICK WALL FILL ANALYSIS OF A SPHERE. THIS IS TAKEN FROM THE 
CC* PROJECT DONE FOR R. DEWITT OF LERC DURING THE YEAR 1977. 

CC* THE UNITS USED IN THE ORIGINAL PROGRAM WERE; 

CC* DEGR, IN., MIN., LBS., BTU 

CC* CRYOTRAN USES DEGF OR DEGR, IN., HR., LBS., BTU 

CC THE FOLLOWING LISTED COMMON BLOCKS ARE DEFINED BY CRYOTRAN TO 
CC COMMUNICATE BETWEEN CRYOTRAN AND THESE SUBS. 

CC BLOCKS USER1, USER2 , SURFA, SURFT ARE INPUT TO THIS PGM. 

CC BLOCKS BNDYT, HTRCF, SURFG, SURFQ ARE OUTPUT TO SINDA 

CC IF NTUNIT-1— > SINDA TEMPS - DEGF; IF NTUNIT-2-- > SINDA TEMPS-DEGR 
SUBROUTINE THWSE1 

COMMON / USER1/ NTHETA, NBF.TAS, NTUNIT, BETA, RIN, TVOL 

COMMON / JSER2/ T LMEO, DTIMEU, FFLOW, TLIQ, TGAS, PCTFIL 
COMMON / BNDYT/ TBDY (1) 

COMMON / TQOA/ A100 (2 6) , A1 01 (26) 

COMMON /PLTSAV/ NOUT, NNCOV (200 ) , VOLCUM(200), TOTVIN(200) 

COMMON /CONSTS/ PI , FORPI , TWOPIR, TWOR, CONI, TBETA, THTARC, ARC02 , NTV1 , 
1 XK11 

COMMON /OUTVAR/TOTWT, TOTVOL, ARCOLD, ARCNEW, HOLD, NCOLD, SRFOLD, VTOTIN 
COMMON /LIQST/NC, BAKING, TKVTST, FULL, DELTMP (100} 

COMMON / HFCLC/ HFSUM, SUMN, VNEWRE, DENS, RHOLH2, HVAP 
COMMON /DIAMS/ DIAM(IOO) 

COMMON / BGL3S/ BGL3 (100) 

COMMON /ARCCUM/ CUMARC(IOO) 

COMMON / LATTD/ PHI ARC (100) 

COMMON /DBUG/ DEBUG 

COMMON /FINOUT/ TTEST, ARCWET , ARCHLB, ARCHUB 

EQUIVALENCE (IA100, A100 (1) ) , (IA101,A101 (1) } 

DIMENSION FBDT (25) , QOA{25> 

LOGICAL BAKING, FULL 
LOGICAL DEBUG 

DEBUG-. FALSE. 

TGAS, TLIQ (DEGR), FLOW (LB/SEC) *3600- (LB/HR) 

DATA FBDT /0 . , . 94 , 1 . 2 6 , 1 . 44 , 1 . 80, 2 . 70, 3 . 60, 3 . 96, 4 . 32, 4 . 68 , 

1 5.04,5.399, 5.40, 7.2, 10.8, 14.4, 1B.0, 

2 36 .0, 72 . 0, 108 . , 1 44 . , 180. , 360 . , 720. , 1080. / 

Q/A (BTU/FT2-HR) 

DATA QOA / 0.172K0, 3.172E2, 6.92E2, 9.52E2,1 .78E3, 5.08E3,9.B3E3, 

1 1.28E4, 1.62E4, 2.00E4, 2.35E4, 2.95E4, 

2 . 6 0 3 F, 3 , . 714E3, -92E3, 1.05E3, 1.221E3, 

3 2.00E3, 3.61E3, 5.74EJ, 

4 7.61F3, 9.52E3, 1 . 98 E4, 4 .60E4, B. 09 E4 / 

DATA GPAV/32 . 2 / , ?X /3. 41 59265/ 

IA100-25 
IA101-25 


F 

F 

F 

F 

F 

F 

F 

F 

F 

F 

F 

F 

F 

F 

F 

F 

F 

CC 

F 

C 

F 

CC 

F 

F 

C 

F 

CC 

CC 

F 

F 

F 

CC 

F 

F 

F 

F 

F 

CC 

F 

F 

F 

CC 
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C INITIALIZE PROPERTIES FOR SS AND LH2 
F DENS-0.29 

F RHOLH2-. 0024722 
F HVAP-1 86 . 5 

C 

F X9-60. 

F XK10-2.0 

F XK1 1 -TLIQ+XK10 

F NTH-0 

F NOUT-O 

F VTEST-0 . 0 

F BAKING-. FALSE. 

F TOTWT-O. 

F TOTVQL-O . 

F VTOT IN-0 . 

F SRFOLD-O. 

F ARCOLD-O . 

F HOLD-O. 

F NCOLD-O 

F NTV1-0 

F FFLOW- FFLOW/ 60. 

C TNKVOL ( I N3 ) -TVOL (FT3 ) "1728 

F TNKVOL-TVOL* 1 7 28 . 

F TBETA-1 . / 60 . 

F FORP 1-4 . *P I 

F TWOR -2. * RIN 

F TWOPIR- TWOR *P I 

F CONI- 3./2./PI/RIN**3 

CC PUT DELTEMP (DEGR) AND Q/A (BTU/FT2-HR) INTO ARRAYS 100,101 
F DO 1 1-1,25 

F A100 (1+1 ; - FBDT(I) 

F A101 (1+1) -QOA(I) /144. 

F 1 CONTINUE 
CC 

F TKVT ST-PCTFI L* TNKVOL 

F FULL-. FALSE. 

F ANG-NTHETA 

F THETA-P1 /ANG 

F THTARC-R 1N-THETA 

F ARC02-TH TARC/2 . 

F PHI-1. 

F NT -NThETA 

F NTP1 -NTHKTA+l 

CC 

CC COMPUTE EjIAMETERS (FT), THEN COMPUTE BETA*G* (L* * 3) AT EACH STATION 
CC COMPUTE INSIDE ARC LENGTHS OF SPHERE. 

F TWOR-2 . * RIN 

F NNN- (NT ♦ 1 ) /2 

F PRINT 1002, TVOL, FFLOW, XK9 

F1002 FORMAT ( ' 1 ' , F6 . 1 , ' CU . FT. TANK WITH LIQ FLOW-' , F10 . 5, 

F 1 ' (LB/MIN) , BETA-1/' ,F7. 2) 

F PRINT 1003, TNKVOL, TKVTST 

FI 00 3 FORMAT (' TANK VOL (IN* *3) , VOLTEST' , 1 P2G1 4 . 7) 

F IF (DEBUG) PRINT 1001 

F1001 FORMAT (// 10X, ' I' , 9X, 'II' , 7X, 'ANG LEI' , 5X, ' ANGLE 2' , 5X, ' SIN (ANGLE) ' , 

F 1 3X, ' RADIUS' , 6X, ' PHIARC' , 5X, 'DIAM' , 3X, ' SURF AREA') 

F DO 69 1-1 , NNN 

F ANGLE-I * THETA 

F II-NTP1-I 

F SINANC-StN (ANGLE) 

F RADI -R 1 N *S INANG 

F PHIARC ( i) -RADI*PHI 

F PHIARC C t) -PHIARC (I) 

F DIAM (I ) -RADI *2 

F DIAM (ID -DIAM(I) 

F ANG2-PI -ANGLE 

F I F (DEBUG) PRINT 1 000, I , I i , ANGLE, ANG2 , SINANG, RADI , PHIARC { I ) , 

F 1 DIAM ( ! ) , SAREA(I) 

FI 000 FORMAT {' EXECN1' / (IX, 2112, 8G12 . 5) ) 

F 69 CONTINUE 
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F THPHI-THETA*PHI 

F DO 68 I-1,NT 

F EL3- (DIAM(I) /12.) 

F BGL3 (I ) -GRAV*TBETA*£L3 

F TBDY (I)- TGAS 

F IF (NTUNIT .EQ. 1) TBDY (I) -TBDY (I) -460, 

F 68 CONTINUE 
F CUMARC (1 ) -ARC02 

F DO 74 1-2, NT 

F CUMARC (I ) -CUMARC (I -1 ) +THTARC 

F 74 CONTINUE 

F CUMARC (NT ) -CUMARC (NT > -ARC02 

F 

C 

C COMPUTE LOWER AND UPPER BOUNDS FOR FINE OUTPUT AT EQUATOR 
F ARCHAF-RIN*PI/2. 

F ARCHLB-ARCHAF-THTARC 

F ARCHUB-ARCHAF+THTARC 

F NT02-NTHETA/2 

F TTEST-TBDY (NT02) 

F IF (DEBUG) PRINT 2000, 

F 1 (I,NA(I> ,NB(I> ,ELA(I),ELB(I> , FAREA (I ) , 1-1, NCOND) 

F2000 FORMAT (' EXECN3' , 318, 3G13. 5) 

F RETURN 

F END 

F SUBROUTINE THWSE2 

F COMMON /USER1/ NTHETA, NBETAS, NTUNIT, BETA, RIN, TNKVOL 

F COMMON / PLTSAV/ NOUT, NNCOV (200 ) , VOLCUM(200), TOTVIN (200) 

C 

F WRITE (23,2001) NOUT, (NNCOV (I ), 1-1 , NOUT) 

F WRITE (23, 2002) NOUT, (VOLCUM (I) , 1-1 , NOUT) 

F DO 101 I “1, NOUT 

F 101 VOLCUM (I) -VOLCUM (I) /TNKVOL 

F WRITE (23 , 2002) NOUT, (VOLCUM ( I) , 1-1 , NOUT) 

F WRITE(23, 2002) NCUT, (TOTVIN (I ), 1-1 , NOUT) 

F2001 FORMAT (I 6/ (2016) ) 

F2002 FORMAT (16/ (1P10E12.5) ) 

F RETURN 

F END 

F SUBROUTINE THWSV1 

C COMMON BLOCKS TO COMMUNICATE WITH SINDA 
F COMMON /USER1/ NTHETA, NBETAS, NTUNIT, BETA, RIN , TNKVOL 

F COMMON /USER2/ TIMEO , DTIMEU, FFLOW, TLIQ, TGAS 

F COMMON /SURFA/ SARE;A(1) 

F COMMON / SURFT/ TSURF(l) 

F COMMON / BNDYT/ TBDY (1) 

F COMMON /HTRCF/ HCOF(l) 

F COMMON / SURFG/ GSURF(l) 

F COMMON /SURFQ/ QSURF(l) 

C 

F COMMON i CGDATA/ NON , NAN, NBD, NI IG, NISG, NS BG, NINTGS 

F COMMON /CONSTS/ PI, FORPI , TWOPIR, TWOR, CONI, TBETA, THTARC, ARC02 , NTV1, 

F 1 XK11 

F COMMON /FINOUT/ TTEST, ARCWET, ARCHLB, ARCHUB 

F COMMON /OUTVAR/TOTWT, TOTVOL, ARCOLD, ARCNEW, HOLD, NCOLD, SRFOLD, VTOTIN 

F COMMON /NEWOLD/ NCOLNW, TOTVNW, SRFONW, ARCONW, DELVOL 

F COMMON /HFCLC/ HFSUM, SUMN, VNEWRE, DENS, RHOLH2, HVAP 

F COMMON /RQOA/ QOA(IOO) 

F COMMON /TQOA/ A100 (26) ,A101 (26) 

F COMMON /DIAMS/ DIAM(l) 

F COMMON / BGL3S/ BGL3(1) 

F COMMON /ARCCUM/ CUMARC (1) 

F COMMON i LATTD/ PHIARC (l) 

F COMMON /LIQST/NC, BAKING, TKVTST, FULL, DELTMP (100) 

F COMMON /DBUG/ DEBUG 

CC 

F LOGICAL BAKING, FULL 

F LOGICAL DEBUG 

CC 
CC 
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CC DIMENSION TTBL(27), SH(27), AKT(27) 

F DIMENSION TTBL (27) 

F DIMENSION GPCP (27) r GPRHO(27), GPMU(27), GPK(27) 

CC 

CCTGAS,TLIQ (DEGR) , FLOW (LB/MIN) 

CC DENSITY , RHO STAINLESS LB/IN**3, RHOLH2 (LB/IN3) , HVAP (BTU/LB) 

C DATA DENS, RHOLH2, HVAP/ 0.29, .0024722, 186.5/ THESE VARIABLES 
C ARE INITIALIZED IN SUB DWEXC1 

CC TEMPS FOR PROPERTIES DEGR 

F DATA TTBL/ 20 . , 4(3 . , 60 . , 80 . , 100 . , 1 20 . , 140. , 1 60 . , 180 . , 200 . , 

F 1 2 20., 24 0. , 2 60., 280. ,300., 320 . , 340 . , 360 . , 380 . , 400 . , 420 . , 440 . , 

F 2 460., 480. , 500., 520. , 540. / 

CC CP STAINLESS BTU/LB 

CC DATA SH /. 001, .002, .005, .012, .021, .032, .041, .049, .057, .064, 

CC 1 .071, .077, .082, .086, .090, .093, .097, .099, .102, .103, .106, 

CC 2 . 1075, .109, .110, .112, .113, .114 / 

CC THERMAL COND STAINLESS BTU/HR-FT-DEGR 

CC DATA AKT / 0.80,1,70,2.45,3.15,3.78,4.35,4.85,5.26,5.62, 

CC 1 5.98,6.31,6.63,6.92,7.20,7.44,7.71,7.93,8.16,8.37,8.58, 

CC 2 8.78,8.97, 9.16, 9.33, 9.52, 9.69, 9.87 / 

CC 

CC PROPERTY TABLES FOR G-H2, USE TEMP TABLE IN VBLl, TTBL { I ) 20-540/20 

CC 

CC GAS H2 CP (BTU/LB) 

F DATA GPCP / 2.46,2.4-, 2.46,2.48,2.515,2.60,2,74, 2.92,3.17, 

F 1 3.44, 3. 62,3.76, 3 . 86, 3.88,3.88, 3.87, 3.85,3.83, 3.80,3.76,3.72, 

F 2 3.67,3. 64,3.61, i. 58, 3. 5<«, 3. 54 / 

CC CAS H2 Hi 10 (LB/ FT 3) 

F DATA GP RHO / . 07 62, . )762, . 0482, . 0356, . 0263, . 0236, . 0202, 

F 1 .0176, . 0157, .0141, .0128, .0117, .0108, .0101 , .0094, .0088, .00B3, 

F 2 ,007B, . 0074, .00/0, .0067, .0064, .0061, .0059, .0056, .0054, .0052 / 

CC GAS H2 MU (LB/FT-SEC) 

F DATA GPMU / 0 . 70E-6, 0 . 70E-6, 1 . 10E-6, 1 . 4 5E-6, 1 . 70E-6, 2 . 00E-6, 

F 1 2.20E-6, 2. 54E-6, 2 . 75E-6, 3 . 00E-6, 3 . 22E-6, 3 . 44E-6, 3. 62E-6, 

F 2 3.83E-6, 4.02E-6, 4.22E-6, 4.39E-6, 4.56E-6, 4.74E-6, 4. 90E-6, 

F 3 5.00E-6, 5.24E-6, 5.39E-6, 5.53E-6, 5.70E-6, 5.87E-6, 6.02E-6 / 

CC GAS H2 K (BTU/FT-KR-DEGR) 


F 

DATA GPK / 

.0100, 

.0100, 

.0140, 

,0190, 

.0230, 

.0270, 

.0310, .0355 

F 

1 .0395, .0435, 

.0475, 

.0515, 

.0555, 

.0595, 

.0630, 

.0670, 

.0705, .0750 

F 

2 .0780, .0810, 

.0850, 

.0885, 

.0915, 

.0950, 

.0985, 

.1020, 

.1050 / 


CC 

CC 

CC 

CC COMPUTE GS AND OS FOR BOUNDARY CONDITIONS 
CC 

F DELTIM-DTIMEU* 60 . 

F TIMEO-TIMEQ* 60. 

F NTV1 -NTV1+1 

F VNEWRE-0. 

F IF (FULL) GO TO 87 

F WTIN-FFLOW-DELTIM 

F DELVOL- WTIN/RHOLH2 

F VOLNEW- TOTVOL+DELVOL 

F COSGAM- 1 .-CONI ‘VOLNEW 

F IF (ABS (COSGAM) .GE. 1.0) COSGAM- S I GN (1 COSGAM) 

F GAMCU- AC OS (COSGAM) ' 

F HT-RIN+ TWOR*COS ( (GAMCU+FORPI ) /3 . ) 

F SRFNEW- TWOP I R*HT 

F CARG- (RIN-HT) /RIN 

F IF (DEBUG) PRINT 9999, 

F 1 NTVl , GAMCU, RIN, HT, TWOPIR, SRFNEW, 

F 2 CARG, WTIN, DELVOL, VOLNEW, COSGAM 

F9999 FORMAT { ' VARBL11 ' , 1 6/ ( 6E12 . 4 ) ) 

F IF (ABS (CARG) .GE. 1.0) CARG-SIGN (1 . , CARG) 

F ARCLEN-ACOS (CARG) 

F ARCNEW*=RIN *ARCLEN 

F 

F ARCWET-ARCNEW 

F DELARC-ARCNEW-ARCOLD 

F DELSRF-SRFNEW-SRFOLD 
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F 

CC 

F 

F 

F 

F 

F 

F 

F 

CC 

F 

F 

F 

F 

F 

F 

F 

F 

F 

F 

CC 

F 

F 

CC 

F 

F 

F 

F 

F 

F 

F 

F 

F 

F 

F 

F 

F 

F 

F 

F 

F 

F 


BTUAVA- WTIN*HVAP 

NC IS NUMBER OF NODES COMPLETELY COVERED BY LIQUID 
HNC-ARCNEW/ARC02 
WETNEW-(HNC+l.)/2. 

NC-WETNEW 

NNWN-WETNEW+1. 

NCNEW-NC-NCOLD 

SUMN-0. 

SUM-0. 

GET AVERAGE SURFACE TEMP OF NEWELY WETTED NODES 
NCOP 1 -NCOLD+ 1 
NC2-NNWN 

IF (NCOP1 .GT. NC2) NCQP1-NC2 
DO 81 I-NCOP1, NC2 
SUMN-SUMN+1 . 

TSURFR-TSURF (I) 

IF (NTUNIT .EQ. 1) 

81 SUM-SUM+TSURFR 
TAVG- SUM/SUMN 
XK104-TAVG-TLIQ 
FILM BOILING COEF . 


TSURFR-TSURFR+460. 


IN XK105 (BTU/IN2-MIN) 

CALL D1 D1DA (XK104 , A100, A1Q1, XK105 ) 
DTIME-BTUAVA/XK105/DELSRF 
VOL OF NEW LIQ REMAINING AT END OF TIME STEP 
BTUTR- BTUAVA 

IF (DTIME . LT . DELTIM) GO TO 85 

BTUTRA-XK105*DELSRF*DELT IM 
BTUREM-BTUAVA-BTUTRA 
IF (BTUREM) 8 5, 85, 8 6 
86 CONTINUE 

WREM-BTUREM/HVAP 
VNEWRE-WREM/RHOLH2 
85 CONTINUE 

IF (DEBUG) PRINT 9998, 

1 NC, NCNEW, NCOLD, NCOPl, NC2, NWNN, 

2 FFLOW, WTIN, DELVOL, TOTVOL, VOLNEW, COSGAM, 

3 HT, SRFNEW, CARG, ARCLEN, ARC NEW, DELARC, 

4 ARC02, DELSRF, BTUAVA, HNC, WETNEW, SUM, 

5 SUMN, TAVG, XK104, XK105, DTIME, DELTIM, 

6 BTUTRA, BTUREM, WREM, VNEWRE, TIMEO, TIMEND, 

7 TIMEM, TIMEN, DTIMEU, TNKVOL, TKVTST, TOTVOL, 

8 TOTWT, TVOL 

F9998 FORMAT ( f VARBLl 2' , 618, L6/ (6E14 . 5) ) 

CC COMPUTE Q FOR WETTED NODES Q-QOA* SURFA 
CC 

CC COMPUTE Q (FILM BOILING, BTU/IN*Q-MIN) FOR LIQ COVERED 
F 87 SUMN -NCOLD 
F HF SUM-0 . 

F IF (NC .EQ. 0) GO TO 92 

F IF (BAKING) GO TO 94 

F DO 95 I -1 , NC 

F IMl-I-1 

F TSURFR-TSURF (I) 

F IF(NTUNIT .EQ. 1) TSURFR-TSURFR+ 4 60 . 

F DELTMP (I) -TSURFR-TLIQ 

F 95 CONTINUE 
F 94 CONTINUE 
F DO 91 I-1,NC 

F QOA ( I ) -0 . 

F IM1-I-1 

F IF (TSURFR .LT. XKll) GO TO 90 

F XK104 -DELTMP (I) 

F CALL D1D1DA (XK1 04 r A100, A101 , XK1 05 ) 

F QOA (I } — XK105 

F IF (I .LE. NCOLD) HFSUM-HFSUM+XK105 

F QSURF (I) — XK105* SAREA(I)*60. 

F GSURF(I) “0. 

F IF (TIMEO .GT. 75. .AND. DEBUG) PRINT 9997, 

F 1 I, XK105, SAREA(I) , QSURF (I) 


NODES 


F9997 FORMAT (' VARBL1 3 f , 1 8, 3E1 4 . 5 ) 


FULL, 
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F 

F 

F 

F 

F 

F 

F 

F 

F 

F 

F 

F 

F 

F 

F 

F 

F 

F 

F 

CCC 

cc 

F 

F 


GO TO 91 

90 CONTINUE 
QOA (I) -0 . 0 
QSURF (I) -0. 0 
GSURF <I)«1.E15 
TBDY (D-TLIQ+.001 

IF (NTUNIT .EQ. 1) TBDY (I) -TBDY (I) -460. 

91 CONTINUE 
QMULT-1 . 

GMULT-0. 

IF (DTIME 

QMULT-DTIME/DELTIM 
GMULT-1 . -QMULT 

IF (NCOLD .EQ. NC) GO TO 75 

NP1-NCOLD+ 1 
ASSIGN 5001 TO NGRTRN 
DO 74 I-NP1,NC 
IM1-I-1 

QSURF (I) -QSURF (I) *QMULT*60. 


.GE. DELTIM) GO TO 75 


CALL GETH (I, HFILM) 
NGH1-I 
GO TO 5000 
F5001 CONTINUE 
CCC 


F 

F 

F 

CC 

CC 

F 

F 

F 

F 

CC 

F 

CC 

CC 

F 

F 

F 

CCC 

C 

F 

F 

F 


GSURF (I) -HFILM*SAREA {I) *GMULT* 60 . 

74 CONTINUE 

75 CONTINUE 

Q AND G-HA FOR PARTIALLY COVERED NODE 

9? NPC-NC+1 

TSURFR-TSURF {NPC) 

IF (NTUNI T , EQ. 1) TSURFR-TSURFR+ A 60 . 
XK104-TSURFR 

GET QOA FOR PARTIALLY COVERED NODE 
CALL D1 D1DA (XK104 , A1Q0, A101 , XK105) 
HFSUH-HFSUM+XK105 
SUMN-SUMN+1 

WSAREA- { ARCNEW-CUMARC (NC) ) *PHIARC (NPC) 
GSAREA- (CUMARC (NFC) -ARCNEW) *PHIARC (NPC) 
QSURF (I) -XKl 05*WSAREA*60. 


NC-NQ NODES 


CALL GE'l it (NPC, HF 1 LM) 

ASSIGN 5002 TO NGRTRN 
NGHI-NPC 
GO TO 5000 
F5002 CONTINUE 
CCC 

GSURF (NC+ 1 ) -HFILM* GSAREA *60 . 

NOW IF DTIME . LT . DELTIM CORRECT Q AND G 
IF (DTIME .GS. DELTIM) GO TO 97 

QSURF (NCi-1 ) -QSURF (NC + 1 ) *QMULT*60. 

GSURF (NC + 1) -GSURF (NC*1 ) +HFILM*WSAREA*GMULT* 60 
97 NG1-NPC+1 


F 

CC 

F 

F 

F 

F 

CC 

CC 

F 

F 

F 

CCC 

CC 

F 

F 


REMAINDER OF NODES ALL GAS COVERED 
ASSIGN 5003 TO NGRTRN 
DO 93 I -NG1 , NBD 
IM1-I-1 


CALL GETH (I, HFILM) 
NGHI-J 
GO TO 5000 
F50C3 CONTINUE 
CCC 
F 


GSURF { I j - HFILM* SAREAU) *60. 

93 CONTINUE 

I F (DEBUG) PRINT 9996, NCOLD, NC, NG1 , NPC, 

1 TIMEO, TOTVOL, WTIN, DELVOL, VNEWRE, 

2 XK104 , XK105, HFSUM, SUMN, GMULT, 


COMPLETELY COVERED 


HFILM, 

QMULT, 
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F 3 CUMARC (NC) , CUMARC (NPC) , PHIARC (NPC) , WSAREA, GSAREA, VOLOST, 

F 4 (QSURF (NN) , NN-1 , 6) , (GSURF (NN) , NN-1 , 6) 

F9996 FORMAT { ' VARBL1 4 * ,410/ (6E14.5) ) 

F IF (DEBUG) PRINT 3001 

F3001 FORMAT ( ' END OF VARBS1'/) 

F IF (.NOT. DEBUG) GO TO 98 

F IF (NTV1 .LE. 10) PRINT 9995, NCOLNW, TOTWT, TOTVNW, HOLD, SRFONW, ARCONW 

F9995 FORMAT {' VARBL15' , 18, 5E14 .5) 

F IF (NTV1 . GT . 2} GO TO 90 

F DO 50 1-1, NTHETA 

F PRINT 2000, I, QSURF (I), GSURF (I) 

F 50 CONTINUE 

F2000 FORMAT (IX, 16, 2F12. 5) 

F GO TO 98 

CC 

CC INTERNAL SUBROUTINE TO CALCULATE H-FILM HEAT TRANS COEF. 
cc (BTU/MIN-IN2-DEGR) 

CC 

CCCCCCCCCC SUBROUTINE GETH (NGHI, HFILM) 

F5000 CONTINUE 
CC 

F TSURFR-TSURF (NGHI) 

F IF (NTUNIT .EQ. 1) TSURFR-TSURFR+ 4 60 . 

F TWALL-TSURFR 

F DELT-ABS (TWALL-TGAS; * 

F TFLMAV- (TWALL+TGAS ) / 2 . 

F TFLNT-TFLMAV/20. 

F NT-TFLNT 

F NTP1- NT + 1 

F FRACT- (TFLMAV-TTBL (NT) ) /20. 

F CP- GPCP (NT) +FRACT* (GPCP (NTP1) “GPCP (NT) ) 

F RHO-GPRHO (NT) +FRACT* (GPRHO (NTP1) -GPRHO (NT) ) 

F AMU-GPMU (NT) +FRACT* (GPMU (NTP1) -GPMU (NT) ) 

F AKHR-GPK (NT) + FRACT* (GPK (NTP1) -GPK (NT) ) 

F AKSEC-AKHR/3 600 . 

F GRPR- BGL3 (NGHI) *DELT*RHO*RHO*CP/AMU/AKSEC 

F IF (NGHI . LE. 18 .AND. DEBUG) PRINT 1000, 

F 1 NGRTRN, NGHI , NT, TWALL, TGAS, DELT, TFLMAV, 

F 2 FRACT, CP, RHO, AMU, AKHR, AKSEC, GRPR 

F IF (GRPR .GE. 1 ,E9) GO TO 221 

F ANU-O.SL'j* (GRPR* * . 25) 

F GO TO 220 

F 221 ANU-0 .0210* (GRPR**. 4) 

F 220 HFILM- ANU*AKHR/L £ AM (NGHJ ) /60./32. 

F QOA (NGHI) -HFILM 

F IF (NGHI .LE. 18 .AND. DEBUG) PRINT 1000, 

F 1 NGRTRN, NGHI, NGHI, ANU,DIAM (NGHI) ,HFILM 

FI 000 FORMAT (' GETH1' , 318/ (6E1 4.5) ) 

F GO TO NGRTRN 

F 98 IF (VTEST . GT . 0.0) GO TO 99 
F IF (.NOT. FULL) GO TO 99 

F CALL OUTCAL 

F VTEST-10 . 0 

F 99 CONTINUE 

F RETURN 

F END 

F SUBROUTINE THWSV2 

F COMMON /USER1/ NTKSTA, NBETAS, NTUNIT, BETA, RIN,TNKVOL 

F COMMON /USER2/ TOKEO , DTIMEU, FFLOW, TLIQ, TGAS 

F COMMON /SURFT/ TSURF(l) 

F COMMON /SURFG/ GSURF(l) 

F COMMON / SURFQ/ QSURF (1) 

F COMMON /FIXCON/XKON (50) 

F COMMON /CONSTS/ PI , FORPI , TWOPI R, TWOR, CONI , THETA, THTARC , ARC02 , NTV1, 

P 1 XK11 

F COMMON /NEWOLD/ NCOLNW, TOTVNW, SRFONW, ARCONW, DELVOL 

F COMMON/ OUT VAR/TOTWT, TOTVOL, ARCOLD, ARCNEW, HOLD, NCOLD, SRFOLD, VTOTIN 

F COMMON / HFCLC/ HF SUM, SUMN , VNEWRE, DENS , RHOLH2 , HVAP 

F COMMON/ LOST/ HFAVG, BOLOST, WO LOST, VOLOST 

F COMMON /LIQST/NC, BAKING, TKVTST, FULL, DELTMP (100) 
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F COMMON /FINOUT/ TTEST, ARCWET, ARCHLB, ARCHUB 

F COMMON /DBUG/ DEBUG 

F LOGICAL DEBUG 

F LOGICAL BAKING, FULL 
F DATA NTV2/0/ 

F DATA NBUP/0/ 

CC 

F DELT IM-DTIMEU* 60 . 

F NTV2-NTV2+ 1 

F BAKING-. FALSE. 

F DO 10 1-1 , NC 

F TSURFR-TSURF (I) 

F IF {NTUNIT .EQ. 1) TSURFR-TSURFR+ 4 60 . 

F IF (TSURFR .GE. TLIQ) GO TO 10 

F DELTMP {I) -DELTMP (I) /2. 

F BAKING-. TRUE. 

F BACKUP-0.1 

F XKON {12) -BACKUP 

F NNN-1Q00+I 

F 10 CONTINUE 

F IF (BACKUP .GT. 0.) GO TO 100 

F VOLOST-O. 

F IF (TOTVOL .LE. 0.) GO TO 98 

F HFAVG-HFSUM/SUMN 

F BOLOST-HFAVG*SRFOLD*DELTIM 

F WOLOST-BOLOST/HVAP 

F VOLOST -WOLOST/RHOLH2 

F VTOTIN-VTOTIN+DELVOL 

F IF (DEBUG) PRINT 9999, HFAVG, BOLOST, WOLOST, VOLOST, HFSUM, SUMN,VTOTIN 

F9999 FORMAT (' VARBL21' , 6E1 4 . 5) 

F IF (VOLOST .GT. TOTVOL) VOLOST-TOTVOL 

F 98 TOTVOL-TOTVOL-VOLCST+VNEWRE 
F TOTWT-TOTVOL* RHOLH2 

F COSGAM-1 . -CONI *TOTVOL 

F IF (ABS (COSGAM) .CK. 1.0) THEN 

F CAMCU-Q.O 

F ELSE 

F GAMCU-ACOS (COSCAM) 

F ENDIF 

F HOLD -R IN + TWOR*COS ( (GAMCU >FORPI)/3. ) 

F SRFOLD-TWOPI R* HOLJ) 

F ARG-1 . -HOLD/RIN 

F I F (ABS (ARG) .GE. 1.0) THEN 

F ARCLEN 0.0 

F ELSE 

F ARCLEN ACOS (ARG) 

F ENDIF 

F ARCOLD-RiN * ARCLEN 

F ARCARC-ARC0LD/ARC02 

F NCOLD-ARCARC 

F NCOLD- (NCOLD+1) /2 

F IF (TOTVOL .LE. TKVTST) GO TO 90 

F IF (FULL) GO TO 90 

F PRINT 1000, TOTVOL, NC, HOLD, TOTWT 

F FULL-. TRUE. 

CC CALL OUTCAL 

F 90 CONTINUE 

C TEST FOR FINE OUTPUT AT EQUATOR 

F IF (ARCWET .LT. ARC-iLB .OR. ARCWET .GT. ARCHUB) GO TO 100 

C IF (TTEST-T5004 9 .LT. 20.) GOTO 100 

C TTEST-T5004 9 

F NTEST-NTHETA/2 

F IF (TTEST-TBDY (NTEST) .LT. 20.) GO TO 100 

F TTEST-TBDY (NTEST) 

F CALL OUTCAL 

F 100 CONTINUE 

F IF (BAKING) NBUP-NEUP + 1 

F 999 FORMAT ('BACKING UP, NTV 2, I, NODE, TEMP, DT, Q-' , 3 17 , F9 . 2, 2F1 2 . 5 ) 
F1000 FORMAT ( ' TANK FULL TO WITHIN .05 OF TANK VOLUME, ' / 

F 1 ' TOTVOL, NO. NODES COV., HEIGHT OF LIQ., WT . OF LIQ.'/ 
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F 2 G14.6, 114, 2G14.6) 

F RETURN 

F END 

F SUBROUTINE THWSOU 

F COMMON /USER1/ NTHETA, NBETAS , NTUNIT, BETA, RIN, TNKVOL 
F COMMON /USER2/ TIMEO , DTIMEU, FFLOW, TLIQ, TGAS 
F COMMON /SURFA/ SAREA(l) 

F COMMON / SURFT/ TSURF (1) 

F COMMON /BNDYT/ TBDY(l) 

F COMMON /HTRCF/ HCOF(l) 

F COMMON / SURFG/ GSURF(l) 

F COMMON /SURFQ/ QSURF(l) 

F COMMON /OUTVAR/TOTWT, TOTVOL, ARCOLD, ARCNEW, HOLD, NCOLD, SRFOLD, VTOTIN 
F COMMON /HFCLC/ HFSUM, SUMN, VNEWRE, DENS, RHOLH2, HVAP 

F COMMON /ROOA/ QOA(l) 

F COMMON/LOST/ HFAVG, BOLOST, WO LOST, VOLOST 

F COMMON /LIQST/NC, BAKING, TKVTST, FULL, DELTMP (100) 

F COMMON /DBUG/ DEBUG 

F COMMON /PLTSAV/ NOUT, NNCOV {200) , VOLCUM{200), TOTVIN(200) 

F COMMON /FIXCON/ XKON<SO) 

F LOGICAL DEBUG 

F TIMEN-XKON (1 ) 

F BACKUP -XKON (12) 

F IF {BACKUP .GT. 0.) CO TO 49 

F CALL WRTMP (T1 , 0 . ) 

F NOUT -NOUT rl 

F NNCOV (NOUT) -NCOLD 

F VOLCUM (NOUT) -TOTVOL 

F TOTVIN (NOUT) -VTOTIN 

C GET DATE AND TIME; THE FOLLOWING ARE CALLS FROM THE CRAY SYSTEM 
C TO GET DATE AND TIME. ON ANOTHER SYSTEM THESE 2 LINES NEED 
C TO BE CHANGED TO THE PROPER CALLS. 

F NL-K1-1 

F NLM1-NL-1 

F 49 CONTINUE 
F CALL TOP LIN 

F CALL STNDRD 

F TINHRS- (TIMEN+ . 05) /60 . 

F NHRS-TINHRS 

F XHRS-NHRS 

F XMINS-TIMEN-XHRS * 60 . 

F MINUT-XMINS+O . 05 

F XMINUT-M INUT 

F XSECS-XMINS-XMINUT 

F NSECS-XSECS* 60 . 

F PRINT 2013, NHRS, MINUT, NSECS 

F PRINT 20 07, TOTWT, TOTVOL, ARCOLD, ARCNEW, HOLD, SRFOLD, NCOLD, NC 

F IF (BACKUP .GT. 0.) GO TO 50 

F 50 CONTINUE 

F IF (BACKUP .GT. 0.) PRINT 2002, N1 , (TSURF (J) , J-l , 13) 

F PRINT 2008, HFSUM, SUMN, HFAVG, BOLOST, WOLOST, VOLOST, VNEWRE 

F PRINT 2009, (QSURF { l) , I -1, NTHETA) 

F NTHP 1-NTHETA+l 

F PRINT 2012, (DELTMP (I), 1-1, NTHETA) 

F PRINT 2010, (QOA( I) ,1-1, NTHETA) 

F IF (BACKUP .GT. 0.) GO TO 51 

F IF (TIMER' t-2 . .GE. 920.) OUTPUT-10. 

F XKON (18; -OUTPUT 

F IF (DEBUG) CALL TPRINT 

F 51 CONTINUE 
F2001 FORMAT CUF8. 3) 

F2002 FORMAT (14, 12F10.3) 

F200 7 FORMAT (/ ' LIQUID IN TANK AT THIS TIME' / 

F 1 5X, ' WEIGHT' , 6X, ' VOLUME' , 6X, ' ARC ALONG WALL ( IN .)', 3X, ' DEPTH OF', 
F 2 3X, ' SURFACE' , 5X, ' NO . NODES' , 5X, ' NO. NODES'/ 

F 3 5X, ' (LBS) ' , 7X, ' <1 N* *3 )', 5X, ' LIQUID' , 6X, ' WETTED' , 

F 4 5X, ' LIQ (IN) ', 3X, 'AREA COV' , 4X, ' COVERED' , 6X, 'WETTED' / 

F 5 6G12.5, 2110/) 

F2008 FORMAT (4X, ' HFSUM' , 8X, ' SUMN' , 7X, ' HFAVG' , 6X, ' BOLOST' , 6X, 'WOLOST' , 

F 1 6X, ' VOLOST', 6X, 'VNEWRE' 
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F 2 /1X,7G12.5) 

F2009 FORMAT (' SOURCE VALUES, Q' / (10G13. 5) ) 

F2010 FORMAT (' QOA AND HFILM'/ (10G13 . 5) ) 

F2012 FORMAT (' DELTMP* / {10F13. 5) ) 

F2013 FORMAT {' TIME-', 14,' HRS,', 13,' MINS, ',13,' SECS') 

F2014 FORMAT {'133 FT LH2 TANK, TIME-', 

F 1 14,' HRS', 13,' MINS', 13,' SECS, TIMEDATE-' , 2A6) 

F RETURN 

F END 

F SUBROUTINE WRTMP (TT, TINC) 

C 

C SUBROUTINE TO SAVE THE TIME AND TEMPERATURES AT THAT TIME 
C FOR LATER PLOTTING OR POSTPROCESSING. 

C FORMAT OF THE FILE IS AS FOLLOWS, 

C LINE 1. TITLE UP TO 120 CHARACTERS. 

C LINE 2. NO. NODES, -99, -99.0, -99.0, DATE/TIME OF RUN 

C WITH FORMAT (218, 2F8. 2, A8, IX, A8) 

C LINES 3. NODE NUMBERS WITH FORMAT (2016) 

C LINES 4. ETC. TIME, TEMPS OF ALL NODES USING FORMAT (10E12.6). 

C THE FINAL TIME AND TEMPS ARE REPEATED WITH THE TIME AS A NEGATIVE NO. 

C 

F COMMON /DIMENS/ NNA, NND, NNT, NGL, NNG, NCH, NARY, LSEQ 

F COMMON / FIXCON/KON < 1 ) 

F COMMON /TITLE/H 

F COMMON /TEMP/T 

F COMMON / XSPACE/ NDIM, NTH, X 

F COMMON / POINTN/ LNODE, LCOND, LCONS, LARRY, ICOMP 

F DIMENSION HEADER { 20} , H(l), T{1), CON(50) 

F DIMENSION X(l), NX (I) 

F EQUIVALENCE (KON (1 ) , CON (1) ) 

F EQUIVALENCE (X,NX) 

F DATA KK/0/ 

F IF (LNODE . EQ. 0) CALL N'JREAD { 1) 

F DT - CON (2) 

F NSL - NNT 

F IF (KK . GT. 0) CO TO 10 

F DO 5 MM" 1 , 20 

F 5 HEADER (MM> - H (MM) 

F LL— 99 

F ELL-LL 

F CALL DA ir. (CDATE) 

F CALL CLv JK (CT I MF ' 

F WRITE (. v, 2001) HEADER, NGL, LL, ELL, ELL, CDATE, CTIME 

F WRITE (23, 2002) (NX ( I + LNODE) , I -1 , NSL) 

F TIME 2 - O. 

F TIME1 - CON (13) + CON (2) 

F TIME1 - CON (13) + TINC 

C WRITE (23, 2003) TINC, TIME1 , TIME2, DT, CON (1) , CON (2) , CON (3) , CON (13) 

F WRITE (23, 2003) TIMEl, (T (I ) , 1-1, NSL) 

F KK-1 

F GO TO 50 

F 10 TIME2 - TIME 2 + DT 

F IF (CON (1) *1.000001 .LT. CON(3)) GO TO 12 

F GO TO 15 

F 12 IF (TIME2 .LT. TINC) GO TO 50 
C IF (CON ( 1 ) .LT. TIMEl) GO TO 50 

F IF (CON (13) .LT. TIMEl) GO TO 50 

F 15 CONTINUE 
FI 11 5 TIMEl - CON (1) 

F TIMEl * CON (13) +T1NC 

F TIME 2 - 0. 

C WRITE (,‘3, 2003) CON (1 ) , (T ( I) , 1-1 , NSL) 

F WRITE (23, 2003) CON (13) , (T (I) , 1-1, NSL) 

F IF (CON (1) *1 .000001 .LT. CON (3) ) GOTO 50 

C 20 TIMEl — CON(l) 

F 20 TIMEl —CON (13) 

F WRITE (23,2003) TIMEl, (T (I) , 1-1, NSL) 

F KK-Q 

F 50 CONTINUE 
F RETURN 
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F2Q01 FORMAT (20A6/ 218# 2F8 . 2, A8, IX, A6) 
F2002 FORMAT 12016) 

F2003 FORMAT (1P10E12.5) 

CC END 
END 

BCD 3 END OF DATA 

EOF 

cossinda model 

ja -self I GET ACCOUNTING INFO 


« USER-userld 
# QSUB -r sphere3 
« QSUB -eo 
« QSUB -IT 59 

t QSUB -1M l.SMw 
» 0 $ 
set -x 
ja 
cat 


PW-password 

I jobname 

9 Combine error andstandard output 
I CPU time 
Memory requested 

# End NQS statements 

# set echo 


model « EOF I SINDA MODEL TO FOLLOW 


BCD 

REM 

REM 

REM 

BCD 

BCD 

END 

BCD 

REM 

REM 

REM 

GEN 

REM 

REM 

SIM 

SIM 

SIM 

SIM 

SIM 

SIM 

SIM 

SIM 

SIM 

SIM 

SIM 

SIM 

SIM 

SIM 

SIM 

SIM 


3 THERMAL LPCS 

THIS SINDA MODEL WAS GENERATED BY CRYOTRAN 
SPHERE - 2D WEDGE SHELL - NO NODES INSIDE OF TANK 
WEDGE ANGLE-BETA - 1.0 RADIANS 
9SAMPLE OF SPHERE NOT NODALIZED IN TANK 
9 


3NODE DATA 

NODE TEMPERATURES ARE IN {DEG R) 

DIMENSIONS ARE IN (IN.), TIME IS IN (SECS) 
SURFACE NODES# INSIDE TANK WALL 
1001, 40, 1, 540.0, -1.000000 

DIFFUSION NODES, REGION 1, TANKWALL 


$ SURFACE NODES 


REGION 

2001 , 

, J 002, 

2003, 

2004# 

2005# 

2006, 

2007, 

2008# 

2009# 

2010, 

2011 , 

2012 # 

2013, 

2014, 

2015, 

2016, 


LAYER NO. 
39, 540.0, 

540.0# 


37, 

35, 

33, 

31, 

29 , 

27, 

25, 

23, 

21 , 

19, 

17, 

15, 

13, 

11 , 

9, 


1 

A1204, 

A1204, 


540.0, A1204, 
540.0, A1204# 
540.0, A1204, 
540.0# A1204, 
540.0, A1204, 
540.0, A1204, 
540.0, A1204 , 
540.0, A1204, 


540.0, 

540.0, 

540.0, 


A1204, 

A1204, 

A1204, 


540.0, A1204 , 
540.0, A1204, 
540.0, A1204, 


SIM 

2017, 

2, 7, 

540.0, A1204, 

SIM 

2018, 

2, 5, 

540.0, A1204, 

SIM 

2019, 

2, 3, 

540.0, A1204, 

SIM 

2020, 

2, 1, 

540.0, A1204, 

REM 

REGION 

1, LAYER NO. 2 

SIM 

2041, 

2, 39, 

540.0, A1204 , 

SIM 

2042, 

2, 37, 

540.0, A1204, 

SIM 

2043, 

2, 35, 

540.0, A1204, 

SIM 

2044, 

2, 33, 

■540.0, A1204, 

SIM 

2045, 

2, 31, 

540.0, A1204, 

SIM 

2046, 

2, 29, 

540.0, A1204, 

SIM 

2047, 

2, 27, 

540.0, A1204, 

SIM 

2048, 

2, 25, 

540.0, A1204 

SIM 

2049, 

2, 23, 

540.0, A1204 


587964 
760254 
921695 
065123 
183486 
269894 
317644 
0.320272 
9.271607 
10. 165776 
10.997278 
11.760979 
12.452162 
13.066572 
13.600422 $ 
14.050434 $ 
14.413813 $ 
14.688324 $ 
14.872272 $ 
14.964533 S 


0 . 

1 . 

2 . 

4. 

5. 

6 . 

7. 


ALUMINUM 

ALUMINUM 

ALUMINUM 

ALUMINUM 

ALUMINUM 

ALUMINUM 

ALUMINUM 

ALUMINUM 

ALUMINUM 

ALUMINUM 

ALUMINUM 

ALUMINUM 

ALUMINUM 

ALUMINUM 

ALUMINUM 

ALUMINUM 

ALUMINUM 

ALUMINUM 

ALUMINUM 

ALUMINUM 


2219 

2219 

2219 

2219 

2219 

2219 

2219 

2219 

2219 

2219 

2219 

2219 

2219 

2219 

2219 

2219 

2219 

2219 

2219 

2219 


585274 
752204 
908333 
,046532 
,159781 
.241218 $ 
.284177 $ 
8.282219 $ 
9.229204 $ 


ALUMINUM 

ALUMINUM 

ALUMINUM 

ALUMINUM 

ALUMINUM 

ALUMINUM 

ALUMINUM 

ALUMINUM 

ALUMINUM 


2219 

2219 

2219 

2219 

2219 

2219 

2219 

2219 

2219 
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SIM 

2050, 

2 , 

21/ 

SIM 

2051, 

2/ 

19, 

SIM 

2052, 

2 , 

17, 

SIM 

2053, 

2 , 

15, 

SIM 

2054, 

2 , 

13, 

SIM 

2055, 

2 , 

11/ 

SIM 

2056, 

2 , 

9, 

SIM 

2057, 

2, 

7/ 

SIM 

2050, 

2, 

5, 

SIM 

2059, 

2 , 

3, 

SIM 

2060, 

2 , 

1/ 

REM 

SURFACE NODES, 

GEN 

3001, 

40, 

1/ 

REM 

CONSTANT VALUE 

GEN - 

-18001, 

26, 

1/ 

GEN - 

-18027, 

14, 

1/ 


END 


540.0, A1204, 
540.0, A1204 , 

540.0, A1204, 

540.0, A1204, 

540.0, A1204, 
540.0, A1204, 
540.0, A1204, 

540.0, A1204 , 
540.0, A1204 , 
540.0, A1204 , 
540.0, A1204, 

OUTSIDE SURFACE, 
540.0, 

BOUNDARY NODES; 

36.0, 

45.0, 


10.119285 $ ALUMINUM 2219 
10.946982 $ ALUMINUM 2219 
11.707189 $ ALUMINUM 2219 
12.395211 $ ALUMINUM 2219 
13.006806 9 ALUMINUM 2219 
13.538227 $ ALUMINUM 2219 
13.986176 $ ALUMINUM 2219 
14.347882 $ ALUMINUM 2219 
14.621149 $ ALUMINUM 2219 
14.804255 $ ALUMINUM 2219 
14.896100 $ ALUMINUM 2219 
REGION 1, TANKWALL 
-1.000000 $ SURFACE NODES 
REGION 4, INSIDE OF TANK 

1.000000 $ IN TANK, LIQUID 
1.000000 $ IN TANK, VAPOR 


BCD 3CONDUCTOR DATA 
REM RADIAL CONDUCTORS, CONDUCTION 

RADIAL CONDUCTORS REGION 1, LAYER 1 
1, 2,1, 1001,39, 2001,39, A6204, 

3, 2,1, 1002,37, 2002,37, 

5, 2,1, 1003,35, 2003,35, 

7, 2,1, 1004,33, 2004,33, 

9, 2,1, 1005,31, 2005,31, 

11, 2, 1, 1006, 29, 2006, 29, 

13, 2,1, 1007,27, 2007,27, 

15, 2,1. 1008,25, 2008,25, 

17, 2, 1, 1009, 23, 2009, 23, 

19 , 2 , 1 , 1010 , 21 , 2010 , 21 , 

21, 2,1, 1011,19, 2011,19, 

23, 2,1, 1012,17, 2012,17, 

25, 2,1, 1013,15, 2013,15, 

27, 2,1, 1014,13, 2014,13, 

29, 2,1, 1015,11, 2015,11, 

31, 2,1, 1016, 9, 2016, 9, 

33, 2,1, 1017, 7, 2017, 

35, 2,1, 1018, 5, 2018, 

37, 2, 1, 1019, 3, 2019, 

39, 2,1, 1020, 1, 2020, 1, A6204, 


REM 

SIM 

SIM 

SIM 

SIM 

SIM 

SIM 

SIM 

SIM 

SIM 

SIM 

SIM 

SIM 

SIM 

SIM 

SIM 

SIM 

SIM 

SIM 

SIM 

SIM 

REM 

DIM 

DIM 

DIM 

DIM 

DIM 

DIM 

DIM 

DIM 

DIM 

DIM 

DIM 


7, 

5 , 

3, 


A6204, 

A6204, 

A6204, 

A6204, 

A6204, 

A6204 , 

A6204, 

A6204, 

A6204, 

A6204, 

A6204, 

A6204, 

A6204, 

A6204, 

A6204, 

A6204, 

A6204, 

A6204, 


RADIAL CONDUCTORS REGION 1, LAYER 1 
41, 2,1, 2001,39, 2041, 39, A6204, 

43, 2,1, 2002,37, 204 2, 37, A6204 , 

45, 2,1, 2003,35, 204 3, 35, A6204 , 

47, 2,1, 2004,33, 204 4 , 33, A6204 , 

49, 2,1, 2005,31, 2045, 31 , A6204 , 

51, 2,1, 2006,29, 204 6, 29, A6204 , 

53, 2,1, 2007,27, 2047, 27, A6204, 

55, 2,1, 2008,25, 2048, 25, A6204 , 

57, 2,1, 2009,23, 204 9, 23, A6204 , 

59, 2,1, 2010,21, 2050, 21, A6204, 

61, 2,1, 2011,19, 2051, 19,A6204, 


DIM 

63, 

2/1/ 

2012, 17, 

2052, 17,A6204, 

DIM 

65, 

2/1, 

2013,15, 

2053, 15, A6204 , 

DIM 

67, 

2/1, 

2014,13, 

2054, 13, A6204, 

DIM 

69, 

2,1, 

2015,11, 

2055, 11 , A6204 , 

DIM 

71, 

2,1, 

2016, 9, 

2056, 9, A6204 , 

DIM 

73, 

2,1, 

2017, 7, 

2057, 7, A6204 , 

DIM 

75, 

2,1, 

2018, 5, 

2058, 5, A6204, 

DIM 

77, 

2,1, 

2019, 3, 

2059, 3, A6204 , 

DIM 

79, 

2,1, 

2020, 1, 

2060, 1 , A6204 , 

REM 

RADIAL 

CONDUCTORS REGION 1, LAYER 2 

SIM 

81, 

2/1, 

2041,39, 

3001,39, A6204, 

SIM 

83, 

2,1, 

2042, 37, 

3002,37, A6204, 

SIM 

85, 

2,1, 

2043,35, 

3003,35, A6204, 

SIM 

87, 

2,1, 

2044,33, 

3004,33, A6204 , 

SIM 

89, 

2,1, 

2045,31, 

3005,31, A6204, 

SIM 

91, 

2,1, 

2046, 29, 

3006, 29, A6204, 

SIM 

93, 

2,1, 

2047,27, 

3007,27, A6204, 

SIM 

95, 

2/1, 

2048, 25, 

3008,25, A6204, 


TO BOUNDARY 1- 
1 .169207E+0 2 
3 . 500393E+02 
5.810002E+02 
8.083787E+02 
1 .030774E+03 
1.246813E+03 
1 . 455166E + 03 
1 . 654546E+03 
1 .843726E+03 
2 . 021 538E+03 
2 . 1 86887E + 03 
2 . 338755E+03 

2 . 4 76202E + 03 

2 . 5 98382E+03 
2 . 704 542E+03 
2 . 7 94029E+03 
2.866290E+03 
2 . 920877E+03 
2 . 957 45 9E+03 
2. 975807E+03 
TO LAYER 2 

1 . 171893E+02, A620' 
3 . 508435E+02,A620< 
5. 823347E+02,A620< 
8. 1023 58 E+ 02, A 62 04 
1 . 033141E+Q3,A6204 
1.24 9677E+03, A6204 
1.458509E+03,A6204 
1. 658346E+03,A6204 
1.847961E+03,A6204 
2. 026182E+03, A6204 
2. 191911 E+ 03, A 62 04 
2. 344128E+03, A6204 
2. 481890E+03,A6204 
2. 604349E+03, A6204 
2. 710755E+03, A6204 
2. 800448E+03,A6204 
2.672875E+03,A6204 
2. 927586E+03,A6204 
2. 964251 E+ 03, A 62 04 
2. 982643E+03,A6204 
TO BOUNDARY 1- ; 
1 . 177274E+02 
3 . 524 543E + 02 
5 . 8 50083E+02 
8 . 1 39556E f02 
1 . 037885E+03 
1 .255415E+03 
1 . 4 65205E + 03 
1 . 665 960E f 03 


4 


1 . 174582E+02 
3. 516482E+02 
5.836707E+02 
8. 120942E+02 
1 . 035511E+03 
1. 252544E+03 
1.461854E+03 
1.6621 50E+ 03 
1 . B522Q0E+03 
2.030829E+03 
2. 196939E+03 
2 . 34 9504E+03 
2. 487583E+03 
2. 610323E+03 
2 . 716973E+03 
2. 806871E+03 
2.8794 64E+03 
2. 934303E+03 
2. 971053E+03 
2. 989483E+03 
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SIM 

97, 

2,1, 

2049,23, 

3009, 23, A6204 , 

1 . 8 5644 5E+03 


SIM 

99, 

2,1, 

2050,21, 

3010,21, A6204, 

2 . O35404E+Q3 


SIM 

101, 

2,1, 

2051,19, 

3011,19, A6204, 

2 . 201 975E+03 


SIM 

103, 

2,1, 

2052,17# 

3012,17, A6204, 

2 . 354889E+03 


SIM 

105, 

2,1, 

2053,15, 

3013,15, A6204, 

2 . 4 93284E+03 


SIM 

107, 

2,1, 

2054,13, 

3014,13, A6204, 

2 . 616307E+03 


SIM 

109, 

2,1, 

2055,11, 

3015,11, A6204, 

2 . 723199E+03 


SIM 

111, 

2,1, 

2056, 9, 

3016, 9, A6204, 

2 . 813304E+03 


SIM 

113, 

2,1, 

2057, 7, 

3017, 7, A6204, 

2 . 886063E+03 


SIM 

115, 

2,1, 

2058, 5, 

3018, 5, A6204, 

2.94102 9E+03 


SIM 

117, 

2,1, 

2059, 3, 

3019, 3, A6204, 

2.977862E+03 


SIM 

119, 

2,1, 

2060, 1, 

3020, 1, A6204, 

2 . 996336E+03 


REM 

CIRCUMFERENTIAL CONDUCTORS; Y- DIRECTION, CONDUCTION 


REM 

CIRCUMFERENTIAL CONDUCTORS REGION 1, 

LAYER NUMBER 1 


DIM 

121, 

2,1, 

2001,38, 

2002, 38 , A6204 , 

9.989804E-02,A6204, 

2 . 990765E-01 

DIM 

123, 

2,1, 

2002, 36, 

2003, 36, A6204 , 

2 . 9907 65E-01 , A6204 , 

4 . 9641 10E-01 

DIM 

125, 

2,1, 

2003, 34, 

2004, 34,A6204, 

4. 964110 E- 01, A 62 04, 

6. 906856E-01 

DIM 

127, 

2,1, 

2004,32, 

2005,32, A6204 , 

6. 90 68 56E-01 , A6204 , 

0 . 807010E-01 

DIM 

129, 

2,1, 

2005,30, 

2006, 30, A6204 , 

8. 807010 E- 01, A6204 , 

1 . 0652B7E+00 

DIM 

131, 

2,1, 

2006,28, 

2007, 28, A6204 , 

1 . 065287E+00, A6204 , 

1 . 243305E+00 

DIM 

133, 

2,1, 

2007*, 26, 

2008, 26, A6204 , 

1 . 243305E+00, A6204 , 

1 . 413657E+00 

DIM 

135, 

2,1, 

2008,24, 

2009, 24, A6204 , 

1 . 413657E+00, A6204, 

1 . 575294E+00 

DIM 

137, 

2,1, 

2009,22, 

2010, 22, A6204 , 

1 . 575294E+00, A6204 , 

1 . 727219E+00 

DIM 

139, 

2,1, 

2010, 20, 

2011, 20, A6204 , 

1 . 727219E+00, A6204 , 

1 . 8684 94E+00 

DIM 

141, 

2,1, 

2011,18, 

2012, 18, A6204 , 

1, 868494 E+Q0,A6 204, 

1 . 998251E+00 

DIM 

143, 

2,1, 

2012,16, 

2013, 16, A6204 , 

1. 998251E+00,A6204, 

2 . 11 5686E+00 

DIM 

14 5, 

2,1, 

2013,14, 

2014, 14 , A6204 , 

2.11 5686E+00, A6204 , 

2 . 220078E+00 

DIM 

147, 

2,1, 

2014,12, 

2015, 12, A6204 , 

2. 220078E+00,A6204, 

2 . 310783E+00 

DIM 

149, 

2,1, 

2015,10, 

2016, 10, A6204 , 

2 , 310783E+00, A6204, 

2 . 387242E+00 

DIM 

151, 

2,1, 

2016, 8, 

2017, 8, A6204, 

2. 387242E+00,A6204, 

2 . 448982E+00 

DIM 

153, 

2,1, 

2017, 6, 

2018, 6, A6204, 

2 . 448982E+00, A6204 , 

2 . 495623E+00 

DIM 

155, 

2,1, 

2018, 4, 

2019, 4 , A6204 , 

2. 495623E+00, A6204, 

2 . 526877E+00 

DIM 

157, 

2,1, 

2019, 2, 

2020, 2, A6204 , 

2.52 6877E+00, A6204, 

2 . 542554E+00 

DIV 

1 59, 


2020, 

2021, A6204 , 

2. 542554 E+00,A62 04, 

2 . 54 25 54E+00 

REM 

CIRCUMFERENTIAL CONDUCTORS REGION 1, 

LAYER NUMBER 2 


DIM 

1 60, 

2,1, 

2041,38, 

2042, 38 , A6204 , 

9. 989798E-02,A62G4, 

2 , 9907 64E-01 

DIM 

162, 

2,1, 

2042,36, 

2043, 36, A6204 , 

2. 99 07 6 4 E- 01, A 6204, 

4 . 964109E-01 

DIM 

1 64, 

2,1, 

2043,34, 

2044, 34 , A6204 , 

4 . 964109E-01, A6204, 

6 . 9068 55E-01 

DIM 

1 66, 

2,1, 

2044,32, 

2045, 32 , A6204 , 

6. 90 68 5 5E- 01, A 6204, 

8 . 807011E-01 

DIM 

168, 

2,1, 

2045,30, 

2046, 30, A6204 , 

8. 807011 E- 01, A 62 04, 

1 . 065287E+00 

DIM 

170, 

2,1, 

2046, 2B, 

2047, 28 , A6204 , 

1 . 065287E+00, A6204, 

1. 243305E+00 

DIM 

172, 

2,1, 

2047, 26, 

2048, 26, A6204 , 

1. 243305 E+ 00, A62 04, 

1 . 413656E+00 

DIM 

174, 

2,1, 

2048, 24, 

2049, 24 , A6204 , 

1.41 3656E+00, A6204, 

1 . 575294E+00 

DIM 

176, 

2,1, 

2049,22, 

2050, 22, A6204 , 

1. 575294 E+ 00, A6204, 

1 . 727218E+00 

DIM 

178, 

2,1, 

2050,20, 

2051, 20, A6204, 

1. 727218 E+ 00, A 62 04, 

1 . 8684 94E+00 

DIM 

1 B0, 

2,1, 

2051,18, 

2052, 18, A6204 , 

1. 868494E+00, A6204, 

1 . 998250E+00 

DIM 

182, 

2,1, 

2052,16, 

2053, 16, A6204 , 

1 . 998250E+00, A6204, 

2. 1156B5E+00 

DIM 

184, 

2,1, 

2053,14, 

2054, 14 , A6204 , 

2 . 115685 E+ 00, A62 04, 

2 . 220078E+00 

DIM 

186, 

2,1, 

2054,12, 

2055, 12, A6204 , 

2 . 22Q076E+00, A62Q4, 

2 . 310783E+00 

DIM 

188, 

2,1, 

2055,10, 

2056, 10, A6204 , 

2.31 0783E+00, A6204 , 

2 . 387241E+00 

DIM 

190, 

2,1, 

2056, 8, 

2057, 8, A6204, 

2. 387241E+00, A6204 , 

2. 448981E+00 

DIM 

192, 

2, 1, 

2057, 6, 

2058, 6, A6204 , 

2. 448981E+00,A6204, 

2 . 495622 E+00 

DIM 

194, 

2,1, 

2058, 4, 

2059, 4 , A6204 , 

2.495622E+00,A6204, 

2. 526876E+00 

DIM 

196, 

2,1, 

2059, 2, 

2060, 2, A6204 , 

2. 526876E+00,A6204, 

2 . 54 2553E+00 

DIV 

198, 


20 60, 

2061, A6204 , 

2. 542553E+00, A6204, 

2 . 542553E+00 

REM 

CONVECTION i 

CONDUCTORS 

; INSIDE TANK TO TANK WALL 


GEN 

18001, 

40,1, 

18001, 1, 

1001, 1,O.OOOOOE+OQ,0. 00000 E+ 00, 1. 

O 

O 

!-* 

o 

o 

END 







BCD 

3 CONSTANTS DATA 




REM 

NTHETA 

NBETAS BETA RIN 

TVOL 



1- 40 

, 2- 

1,3- 1 

.000, 4- 43.534, 5- 200.000 


REM 

K10-SINDA TEMP UNITS; 

K10-1 (DEG F); K10-2 (DEG R) 



10- 2 






REM 

TIMEO (MIN) 

TIMEND (MIN ) DTIMEI (MIN) OUTPUT (MIN) 

REM 

O.OQOOOE+OO 

3 60 . 

00 0 . 1 2500E-01 0.25000 


101-0. 00000E+00, 102- 

6.0000 , 103 

-0 . 20833E-03, 104-0, 

. 4 1 667E-02 


NLOOP- 

2000 

, DRLXCA- 

0.001000, ARLXCA- 0.001000 


END 







BCD 

3ARRAY 

DATA 






1 SREGION 1 

, (TANKWALL 

), INSIDE SURFACE AREAS (IN* *2 ) 
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ORIGINAL FAGE ?S 
OF POOR QUALITY 


5.83933E+00, 1 .74619E+01, 2.9Q167E+01, 4.03726E+01, 5.14795E+01 
6* 22691E+Q1, 7 . 2 6748E+01 , 8.26324E+01, 9.20805E+01, 1.00961E+02 
1 . 0921 9E+02, 1.16804E+02, 1.23668E+02, 1.29770E+02, 1.35072E+02 
1 ! 3954 1E+02, 1 . 43150E+02, 1.45876E+02, 1.47703E+02, 1.48620E+02 
1 ! 48620E+02, 1.47703E+02, 1.45876E+02, 1.43150E+02, 1.39541E+02 
1 . 35072E+02, 1.29770E+02, 1.23668E+02, 1.16804E+02, 1.09219E+02 
1 . 00 961E+02, 9.20805E+01, 8.26324E+01, 7.26748E+01, 6.22691E+01 
5 *, 14 795E+01, 4 . 03726E+01, 2.90167E+01, 1.74819E+01, 5.B3933E+00 

2 $REGION 1, (TANKWALL } , OUTSIDE SURFACE AREAS {IN**2) 

5 8931 1E+00, 1 . 764 29E+01 , 2.92839E+01, 4.07444E+01, 5.19536E+01 

6 2842 6E+01 , 7.33441E+01, 8 . 33933E+01, 9.29285E+01, 1.01891E+02 
1 * 10225E + 02, 1.17B79E+02, 1.24807E+02, 1.30965E+02, 1.36316E+02 
1 * 4082 6E+Q2, 1.44468E+02, 1.47220E+02, 1.49063E+02, 1.49988E+02 
1 ! 4 9988E+02, 1.49063E+02, 1.47220E+02, 1.44468E+02, 1.40826E+02 
1 3631 6E+02, 1 , 30965E+02, 1.24807E+02, 1.17B79E+02, 1.10225E+02 
1 1 01 891E+02, 9 .292B5E+01, 8.33933E+01, 7.33441E+01, 6.28426E+01 
5.19536E+01, 4.07444E+01, 2 . 92839E+01, 1 . 7 64 29EI-01 , 5.B9311E+00 


END 

REM CONDUCTIVITY BTU*/ { INCH. HR. F) FOR ALUMINUM 2219 



6204 







18. , 

0 . 4 6480E + 00, 

36., 

0 . 89712E+00, 

54., 

0 . 12994E+01 


72. , 

0. 17243E+01, 

90., 

0 . 21 491E+01 , 

10B. , 

0 . 28238E+01 


126. , 

0.28988E+01, 

144., 

0. 32486E+01, 

162., 

0. 33986E+01 


180. , 

0. 34985E+01 , 

270., 

0. 43482E+01, 

360., 

0. 50479E+01 


150. , 

0. 564 /6E + 0 1 , 

540., 

0. 61474E+01, 

630. , 

0. 65472E+01 


20. , 

0. «.8471E + 0 1 , 

810., 

0 . 7Q47QE + 01, 

900., 

0 . 72 969E + 01 


^90. , 

0. 5968E+01 , 

1080. , 

0.77 967E+01 , 

1170., 

0 . 79466E + 01 


1 260. , 

0. 8< 67E+0 ' , 

1350., 

0.76967E+01, 

END 


REM 

SP1 I FIC 

HEAT BTU/tl.B. 

F) 

FOR ALUMINUM 2219 



2i 4 

18., 

0. 35300E-0 i, 

36. , 

0. 1980QE-02, 

54. , 

0 . 74 100E-02 


7 2., 

0.1 8100E-0 . , 

90., 

0.33000E-01, 

10B. , 

0 . 51300E-01 


126., 

0 . L 9230E-0 , 

144. , 

0. 83700E-01, 

162. , 

0. 99400E-01 


: 80. , 

0. 1200E+OD, 

270 ., 

0. 16000E*00, 

360. , 

0 . 18300E+00 


4 50. , 

0. i0000E+00, 

540., 

0 . 20800E+00, 

630. , 

0. 21000E+-00 


/20 . , 

0. 21 700E+00, 

810. , 

0. 22000E+00, 

900. , 

0 . 2280QE+00 


990., 

0. 23400E+00, 

1080. , 

0 . 23800E+00, 

1170., 

0. 24000E+00 


1260. , 

0. 24800E+00, 

1350. , 

0 . 25400E+00, 

END 


REM 

DEN5ITY 

LB/ (CUBIC INCH) FOR ALUMINUM 2219 



3204 





0 . 1032 2E + 00 


18., 

0. 1Q365E+G0, 

36. , 

0. 10362E+00, 

54., 


72. , 

0. 10318E+C0, 

90. , 

0 . 10312E+00, 

106. , 

0 . 10308E+00 


126. , 

0. 1030 5E + 00, 

144 . , 

0.1Q3G1E+00, 

162., 

0.10298E+00 


180. , 

0. 10296E + 00, 

270. , 

0 . 10278E+00, 

360., 

0 . 10260E+00 


450. , 

0.10224E+00, 

540. , 

0 . 101B8E+00, 

630. , 

0. 10152E+00 


720., 

0. 10H6E+00, 

810. , 

0 . 1007 9E+00, 

900., 

0 . 10043E+00 


990. , 

0 . 10007E+00, 

1080. , 

0. 99711E-01, 

1170. , 

0. 99169E-01 


: 260., 

0. 90627E-O1, 

1350., 

0 . 98085E-01 , 

END 


REM 

CP * RHC 

i FOR ALUMINUM 

2 219 





1204 





0 . 76488E-03 


18., 

0 . 36588E-04, 

36., 

0. 2Q516E-03, 

54., 


72., 

0. 18675E-02, 

90., 

0 . 34 031E-02, 

108. , 

0. 52881E-02 


126. , 

0 . 71 310E-0 2, 

144., 

, 0.86215E-02, 

162., 

0 . 10236E-01 


180. , 

0.11 532E-01, 

270 ., 

, 0.1644 5E-01, 

360., 

0. 18776E-01 


450., 

0.2044 8E-01, 

540. , 

r 0.21191E-01, 

630. , 

0. 21319E-01 


720., 

0. 21951E-01, 

810., 

, 0. 22175E-01 

900. , 

0.22899E-01 


990., 

0.2341 7E-01, 

1080. , 

f 0.23731E-01 

1170. , 

, 0 . 23800E-01 


1260. , 

0. 24459E-01, 

1350. , 

, 0 . 24 91 4E-01 

END 



END 

BCD 3 EXECUTION 

F COMMON /U SERI/ NTHETA, NBETAS, NTUNIT, BETA, RIN, TVOL 

F COMMON/USER2/ PTIME, DELTIM, XC1 , XC2, XC3, XC4 

F COMMON/ I NSA /SARIN ( 40) 

F COMMON / OUTSA/ SARO JT ( 40) 

F COMMON /SURFT/T SURF ( 40) 

F COMMON /BNDYT/TBDY { 40) 

F COMMON /HTRCO/HCOFF ( 40) 

F COMMON /SURFQ/QSUFF ( 40) 

F DIMENSION X{ 900) 


118 


F 

M 

M 

M 

M 

M 

M 

F 

M 

M 

F 

F 

F 

F 

F 

M 

F 

F 

F 

M 

F 


NDIM- 900 
NTHETA- Kl 
NBETAS- K2 
BETA -XK3 
RIN -XK4 
TVOL -XK5 
NTUNIT- K10 
DO 120 1-1, NTHETA 
SARIN (I) “A ( 1 I ) 

SAROUT (I) “A (2 + 1) 

120 CONTINUE 

HL- 2400.00 

HV- 200.000 

DO 272 1-1, 26 
IM1-I-1 
G (18001+IMl ) ■ 

272 CONTINUE 

DO 273 I- 27, 40 
IM1-I-1 

G U8001+IM1) - HV* SARIN (I) 

273 CONTINUE 

STDSTL 


/14 4 . 
/ 14 4 . 


HL*SARIN(I) 


F 


END 

BCD 3VARIABLES 1 
COMMON /U SERI / NTHETA, 


NBETAS, NTUNIT, BETA, RIN, TVOL 


END 

BCD 3VARIABLES 2 


END 

BCD 3 OUTPUT CALLS 
TPRNTF 


END 

BCD 3 END OF DATA 


EOF 

cosslnda model 

ja -self I GET ACCOUNTING INFO 
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APPENDIX C 


"CryoTran Model" Files Part 3 


Sample Case of SOLA-ECLIPSE 

Input Data Requirements 
Input Screens for Sample Case 
Model to submit to CRAY 
Run Output 
Plots 


120 



Input Data Requirements 


file management system 

5 - Input file 

6 - Printed output file including debug output 

7 - History file 

8 - Formatted plotfile 

9 - Unformatted plotfile (now formatted) 

10 - Restart input file 

11 - Restart output file 
53 - Printed debug file 

59 - Debug file (now unit 6) 

The CRAY will automatically dispose units 6, 7, and 9. 

The input data to run the code is to be provided either in an input file or may be keyed in within CryoTran. 
The prepared input file may be resident on the VM computer or on the CRAY. The user will be interrogated for 
the name of the file in CryoTran. The only additional means of providing input is through the restart file it 
the user is restarting an analysis. All input values except the problen title, (NAME) , is input by use or 
NAMELIST data. All reading of the input file is performed by Subroutine READER. If a restart of an analysis Is 
being performed, only the title and the first namelist, CNTRL, is required. Many variables have default values 
given in the program. If a value for a variable is provided in the input file, it replaces the default value. 
The names of the namelists are: CNTRL, HYDRO, MESHES, ASETIN, THERMS, TURB, and FEATS. The input variable names 
are listed below grouped by namelist. Each subgroup has a brief description of its contents followed by a 
listing of the input variables contained in it. An explanation of each variable and the default value, if any, 
is provided. The default values are enclosed in brackets, ( ] . 

Variable name Descript ion 


NAME 


problem identif ic^t ion, (title), 48 characters maximum. 


Namelist CNTRL 

These variables are primarily , ssociated with controlling execution of the code. 


AUTOT automatic adjustment of time step 

adjustment 

-0.0 for constant time step 


( 1 . 0 ) 


BUGS 

print plotfile data to unit 8 

logical 

[ . fail 

fraction 

moved (0.50) 




in time step 



unit 6, 

logical (.false.) 



DELT 

time 3tep 


[none] 

DTCRMX 

maximum delt using conjugate residual 


[0.001 


solution method 



*** off 

- 0 [0) 



IDIV 

divergence correction flag 1-on 0-off 

(1) 

IEQIC 

flag used to activate equilibrium free 

surface 

(none) 

ISOR 

pressure iteration solution method 


(0) 


conjugate residual - 0 **** sor - 1 



NDUMP 

ndump-0 new case 


[0] 


ndump>0 restart, read previously dumped 

file. 


NPACK 

flag to activate packing; 0-off, 1- 

on 

[0] 

PLTDT 

time Increment between plots and/or prints 

(none] 


to be output on film 



on paper 

[none) 



TWFIN 

problem time to end calculation 


[none] 

LHYDRO 

selects execution of hydrodynamics 

logical 

[none ] 

LHEAT 

selects execution of heat transfer 

logical 

[none ) 

LTHERM 

not used 

logical 

[none] 

LTURB 

select st urbulence model in hydro boI . 

logical 

[none] 

Namelist 

HYDRO 



The variables In this namelist fall into several 

categories; 



CON 

DEBUG 


IDEFM 


-1.0 for automatic time step 

c. f . 1 . condit ion - cell width 
prints selective output to 

defoamer option flag on « 1 
calculation during setup 


time increment between prints 


fluid properties, constants used in the numerical method, gravitational environment, and problem initial stale. 
For dimensional variables the burden of maintaining a consistent set of units falls to the user. One possible 
consistent set of units is provided in parentheses after the description of each variable where appropriate. 


ALPHA 


[ 1 . 0 ) 


controls amount of donor cell fluxing 
-1.0 for full donor cell differencing 
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C ANGLE 

EPSI 

FLHT 

GX 

GY 

ISURF10 


KB 


KL 

KR 

KT 

OMG 

PERFUL 


RHOF 

SIGMA 

UI 

VI 

XNU 


-0.0 for central differencing) 

contact angle between fluid and wall (deg) (90.0) 

pressure iteration convergence criterion (1.0E-3) 

fluid height, in y-direation (cm) (0.0] 

body acceleration in positive x-directlon (cm/s 1 ) (0.0) 
body acceleration in positive y-direction (cm/ a*) (0.0) 
surface tension Indicator (0} 

-1 for surface tension 
-0 for no surface tension 

indicator for boundary condition to be used (1) 

along the bottom of the mesh, minimum x 
-1 for rigid free-slip wall 
-2 for rigid no-slip wall 
-3 for continuative boundary 
*4 for periodic boundary 
-5 for constant pressure boundary 
Indicator for boundary condition along 
left side of mesh, minimum y, (see KB) 

Indicator for boundary condition along 
right side of mesh, maximum x, (see KB) 
indicator for boundary condition along 
top of mesh, maximum y, (see KB) 
over-relaxation factor used in pressure 
percent full; percentage of tank volume 
by liquid. If value is zero, FLHT sets 
height. If value is non-zerosupercedes 


fluid density (for f-1.0 region) (g/cm*) [1.0] 
surface tension coefficient (g/s 1 ) [0.0] 
initial x-direction velocity (cm/s) (0.0] 
initial y-direction velocity (cm/s) (0.0] 
coeMicient >f kinematic viscosity (cm'/s) [0.0] 


( 1 ] 

[ 1 ] 

ID 

iteration [1.7] 
occupied [0.0] 
liquid 
FLHT. 


Namelist MESHS 

All variables in this group are required for generation of the computational mesh. All lengths must be 
expressed in units consistent with the fluid properties in the HYDRO namelist. For array variables, the number 
of entries required is enclosed in { ] after the description. 


DXMN (N) 

minimum cell width (delta-x) in submesh n 

(NKX) 

[ none] 

DYMN (N) 

minimum cell width (delta-y) in submesh n 

(NKY) 

[ none ] 

ICYL 

mesh geometry indicator 
-1 for cylindrical coordinates 
-0 for plane coordinates 


[0] 

NKX 

number of submesh regions in x-direction 


[none] 

NKY 

number of sutmesh regions in y-direction 


[none] 

NXL(N) 

number of cells between locations xl (n) 
and xc (n) in submesh n 

(NKX) 

[none] 

NXR(N) 

number of cells between locations xc(n) 
and xl(n+l) in submesh n 

(NKX) 

(none) 

NYL(N) 

number of ceils between locations yl (n) 
and yc(n) In submesh n 

(NKY) 

[none] 

NYR(N) 

number of cells between locations yc(n) 
arid yl(n+l) In submesh n 

(NKY) 

[none] 

XC (N) 

x-coordinate of the convergence point (cm) 
in submesh n 

(NKX) 

( none ] 

XL (N) 

location of the left edge of submeah n ( cm) ( NKX f 1 } [ none ; 
(NKX + 1) valuos of xl (n) are necessary because 
the right edge (xr) of submesh n is determined 
by the left edge of submesh (n+1). 

YC (N) 

y-coordlrrate of the convergence point (cm) 
in submesh n 

(NKY) 

[ none ] 


YL(N) location of the bottom of submesh n (cm) ( NKY+1 } [none] 

(nky+1) values of yl (n) are necessary 

because the top edge (yr) of submesh n 

is determined by the bottom edge of submesh (n+1) 

Namelist ASET1N 

All variables in this namelist are associated with solid boundary definition within the computational mesn. 

The boundary modeLing procedure is detailed elsewhere in ref.??????? with only brief descriptions of the 

variables included in this section. 
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IOH 


NOBS 

OAl 

OA2 

OBI 

OB 2 

OAl 

OAl 


Select effect of obstacle function { NOBS J 

-1 to add obstacle "inside" function 
-0 to subtract obstacle "inside" function 
number of obstacle functions to be defined 
coefficient of x 1 in obstacle function {NOBS} 

coefficient of x* in obstacle function {NOBS} 

coefficient of y l in obstacle function {NOBS} 

coefficient of y* in obstacle function {NOBS} 

coefficient of xy in obstacle function {NOBS} 
constatnt tem in obstacle function (NOBS) 


[nonej 


[0} 

10 . 0 ) 
[ 0 . 0 ] 
[ 0 . 0 ] 
[ 0.01 
[0.0J 
[ 0 . 0 } 


Namelist THERMS 

The variables In this 


namelist provide the thermal properties of the fluid being modeled 


CPL 

FLK 

GASVOL 
GSURF 
PGAS 
PGEND 
PS AT 


QFLBC 

TFLD 

TGAS 


cp 

k 

volume of ullage 

surface area of ullage 

initial gas pressure 

gas pressure to terminate execution 

liquid saturation pressure 

if nonzero code simulates 

phase change in nf - 5 cells 

heat flux at boundary 

initial liquid temperature 

initial gas temperature 


(cm 1 ) 

[none] 

(cm 1 ) 

[none] 

(Pa) 

[none] 

(pa) 

[none] 

(pa) 

(0.0) 



[none} 

(K) 

[none] 

(K) 

[none) 


in this list sill provide constants required by the turbnlence model. To date. 

r*.'a a.d da no! „,nl,. fnpot data. This cellar ha. o.t he bo. It. >• 

dummy variable. 


the turbulence 
being held by a 


DUMMY 


Namelist FEATS . . bni ldina reauire modification and/or addition of FORTRAN 
Certain aspects of the code execution an . the program, new coding obviously requires a higher 
coding. Although these areas are clearly ldent ° FEATS hasten established to simplify the Inclusion and 
level of effort than simply chang ng npu var • lnlets an d outlets. Each feature typically requires a 

logl ca i° va r 1 abl e^hlch"®* l«ct i vat ion* of the feature and associated dimensional variables which define the 
attributes of the feature. 


LDRAIN 


LJET 


LQBOT 

LQT0P 

LQUNI 


sel ects 

activation of tank outlet 

at bottom 

DRAINID 

inside diameter 

(cm) 

DRANOD 

outside diameter 

(cm) 

(cm J /s) 

DRANQV 

volume flow rate 
supercedes VDRAIN 

VDRAIN 

fluid velocity 

(cm/a) 

selects 

activation of an axial jet and suction 

BOT JET 

y-value for jet suction 

(cm) 

(cmVs 1 ) 

epsjet 

jet turbulence energy 
dissipation rate 

RADJET 

jet radius 

(cm) 

energy (cm*/s ) 

TKEJET 

jet turbulence kinetic 

TMPJET 

jet fluid temperature 

(K) 

TOP JET 

y-v.ilue of jet issue 

{cm) 

VELJET 

jet fluid velocity 

(cm/s) 

(cmVs) 

V0LJET 

volume flow rate, 
supercedes VELJET 


selects heat flux at bottom of tank 

QBOT heat flux for bottom half of tank 

selects heat flux at top of tank 

QT0P heat flux for top half of tank 

selects uniform heat flux at tank walls 

If .true, uniform heat flux 

if .false, non-uniform heat flux or adiabatic 
QUNI uniform heat flux at tank walls 


[ . false. ] 
[none} 
[none] 
[none] 

[none) 

[ . false. ] 

[ 0 . 0 } 

[ 0 . 0 ] 

[ 0 . 0 ] 

[0.0} 

[ 0 . 0 ] 

[ 0 . 0 } 

[ 0 . 0 } 

[ 0.01 

[ . false . } 
(none} 

[ . false. ] 
[none) 

[ . false. ] 


[none] 
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Sample Case of SOLA-ECLIPSE; Input Screens 
WELCOME TO CRYOTRAN 

YOU WILL BE PROMPTED FOR ALL NECESSARY INPUT. 

READ THE INSTRUCTIONS CAREFULLY. 

TYPE IN THE INPUT DATA CAREFULLY TO AVOID TROUBLE, 

YOU MAY QUIT THE PROGRAM AT ANY INPUT PROMPT BY TYPING A “Q" 


ENTER THE NUMBER FOR THE DESIRED PROBLEM TYPE 
THE PROBLEM TYPES ARE AS FOLLOWS; 

1 - THERMO /THERMAL SINDA ANALYSIS ON A SPHERE. 

2 - THERMO/THERMAL SINDA ANALYSIS ON A CYLINDER. 

3 - RUN A PRESTORED ANALYSIS PROGRAM 
3 


CHOOSE THE ANALYSIS PROGRAM YOU WISH TO USE. 
TYPE IN THE NUMBER OF THE DESIRED ANALYSIS. 

1 NOVENT FILL 

2 CHILL TO TEMP 

3 TARGET FOR NVFILL 

4 SOLA-ECLIPSE 

5 CSAM 


THIS TASK IS BEING SET UP FOR THE CRAY, 
NOW INPUT NECESSARY CRAY INFO. 


WHICH CRAY SYSTEM COS OR UNICOS 
TYPE IN C OR U 


TYPE IN YOUR CRAY USERID, 
userid 


TYPE IN YOUR CRAY PASSWORD, 
pa sBword 

TYPE IN NO. OF CRAY CPU SECONDS TO BE USED. 

IF NUMBER OF SECONDS REQUESTED IS < 10, 60 WILL BE USED. 

59 


NOW GIVE YOUR JOB A NAME, TYPE IN THE NAME, 
1-7 ALPHEBETIC CHARACTERS, 
eclt est 


THE CRAY JCL THAT WAS INPUT IS AS FOLLOWS: 

USERID - userid 

PASSWORD - password 

CPU TIME REQUEST - 59 SECS. 

MEMORY REQUEST - 1500000 words 

JOB NAME - eel test 

ARE THESE ALL CORRECT? TYPE Y OR N OR Q TO QUIT 

NOW WE NEED THE INPUT DATA FOR THE ANALYSIS 
THIS INPUT DATA CAN BE; 


(QUIT) 
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1 STORED ON CRAY 

2 STORED ON VM 

3 TYPED IN NOW 

4 NO INPUT DATA FOR THIS ANALYSIS 

TYPE IN 1 2 3 OR 4 

2 

ANALYSIS INPUT DATA IS STORED ON VM 
NOW WE NEED FILE NAME; FILE TYPE; FILE MODE 
TYPE IN FN FT FM 

solaecl testla a 

jCL COMMAND - IRC-FILEDEF VMDATA DISK SOLAECL TEST1A A 
JCL COMMAND - IRC-FILEDEF VMDATA CLEAR 0 

THE INPUT DATA IS NOW ALL IN. 

END OF CRYOTRAN PREPROCESSOR PROGRAM, 

THE OUTPUT FILE IS CALLED "CRYOTRAN MODEL" . 

DO YOU WANT TO GO TO BEGINNING OF SYSTEM OR QUIT? 

TYPE Y TO GO BACK TO BEGINNING OF SYSTEM, 

OR TYPE N TO QUIT, 
n 

ON TO ANALYSIS PROGRAM 
THE OUTPUT FILE IS CALLED "CRYOTRAN MODEL". 

THIS "CRYOTRAN MODEL" FILE IS A SOLA-ECLIPSE MODEL. 


USER MAY NOW SUBMIT THE FILE ' CRYOTRAN MODEL' 

TO THE CRAY COMPUTER FOR EXECUTION, 

OR MAKE ANY DESIRED MODIFICATIONS WITH AN EDITOR 
PRIOR TO SUBMITTING IT TO THE CRAY. 


TO SUBMIT THE FILE TO CRAY, 

ON THE VM SYSTEM TYPE: CRSUBMIT CRYOTRAN MODEL 


UPON COMPLETION OF THE CRAY EXECUTION OF SOLA-ECLIPSE 
USER MAY PLOT THESE RESULTS BY TYPING: 

DOECLPLT SOLA PLOTFILE 
Ready; T-l.15/2.40 16:03:45 

crsubmlt cryotran model * submit the SOLA model to CRAY 

Ready; T-0.02/0.07 16:04:03 

16:04:04 

MSG FROM NCRAYUX : CRIRDR002I Job vvglenn staged to the Cray 


Ready; T-0.03/0.10 16:05:38 

PRT FILE 0153 FROM NCRAYUX COPY 001 NOHOLD 

PRT FILE 0154 FROM NCRAYUX COPY 001 NOHOLD 

PRT FILE 0155 FROM NCRAYUX COPY 001 NOHOLD 

RL 

Ready; T-0.57/1.41 16:20:46 

doeclplt sola plotfile * produce plots from SOLA output 

DMSACP723I F (500) R/O 


DMSLIO740I Execution begins... * begin execution of the plot 

THE FOLLOWING VARIABLES ARE AVAILABLE TO CONTROL GRAPHICAL OUTPUT 

CURRENT VALUE 

DEBUG - T/F WRITE DEBUG OUTPUT TO FILE <DEBUG OUTPUT>- F 

MODE - INTEGER- 1 NO PAUSES, NO PROMPTS 1 

2 PROMPTSTO CHANGE CONTROL VARIABLES 

LVEC - T/F PRODUCE VELOCITY FIELD VECTOR PLOTS T 

LCNTR - T/F — PRODUCE TEMPERATURE FIELD CONTOUR PLOTS-— F 

LQUIK - T/F ABREVIATED/FULL DISPLAY ^ 

ISYMPL - T/F SYMMETRIC/HALF-FIELD DISPLAYS T 

WANT TO CHANGE THE VALUE OF ANY OF THE CONTROL VARIABLES? (Y/N) 


prog ram 


CEGDIN100I Graphics device NOT assigned. 
CEGDIN100I ENTER desired device name or HELP HELP 
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CEGDIN100R DEFAULT to CANCEL. 

iQaos * name of plot device to print plots 

CEGDI0300I Device LGAOS attached. 

SOLA- EC L GRAPHICS PROGRAM, NORMAL TERMINATION 
PRT FILE 2480 TO RSCS COPY 001 NOHOLD 
CEGDIO800I Device DISCONNECTED from VM/GRAPH3D. 

Ready; T-* .**/*.** 16:21:40 

DMTRGX170I FROM MVSLERC1: 16.24.15 JOB 2480 SHASP54 6 RSCS2480 (JOB 2480 
AT MVSLERC1 


FROM VMLERC1 


SYSTEM OUTPUT RECEIVED 
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Samp!* Case of SOLA-ECLIPSE; Model File, Output of Preprocessor 


f USER-vvglenn 

# QSUB -r ecltest 

# QSUB -eo 

# QSUB -IT 59 

# QSUB -1M 1.5MW 

« 89 


pW-dendrob 

# jobname 

« combine error andstandard output 
# CPU time 
Memory requested 

« End NQS statements 


set -x 

# set echo 


##f This SOLECL file, 

(modeL), was generated by CRYOTRAN. 

cat > model << EOF 

# DATA FROM VM, 

FN FT FM- SOLAECL 

OTVJ1: LH2 , 50%, 4.5 
4CNTRL 

NDUMP- 0, 

CM/S 

PLTDT- 60., 

TWFIN- 0.1, 

PRTilT- 1.E10, 

DELT - 0.01, 

AUTOT- 1, 

DTCRMX- 1.0, 

ISOR- 1, 

CON- 0.35, 

IEQIC- 1, 

IDEFM- 0, 

NPACK- 0, 

IDIV- 0, 

LHYDRO- .TRUE., 

LH EAT- .TRUE., 


LTHERM- .FALSE., 
4 END 
4HYDRO 

LTURB- .TRUE., 


RHOF- 0.0701, 

XNU- 1.803E-3, 


ISRF10- 1, 

SIGMA- 1.813, 

CANGLE- 5.0 

EPSI- l.E-05, 

ALPHA- 1.0, 

OMG- 1.7, 

GX- 0.0, 

GY- 0.0, 


UI- o.o, 

< 

I 

o 

o 


KL- 1, 

KR- 1, 

KT- 1, 

FLHT-0 . , 

PKRFUL 50.0, 



KB- 1, 


4 END 
4 MESHES 

ICYL- 1, 

NKX- 1, 

XL- 0.0, 210., 
XC- 20., 

NXL- 2, 

NXR- 10, 

DXMN- 1C.0, 

NKY- 1, 

YL- 0.0, 1020., 
YC- 30., 

NYL- 1, 

NYR- 33, 

DYMN- 30.0, 

4 END 
4ASETIN 

NOBS- 4, 

IOH ( 1) * 1, 

OA2 (1) - 


IOH (2) - 0, 
OA2 (2)- 
OA1 (2)- 
IOH (3) - 1, 
OA2 (3)- 
OA1 (3)- 
IOH (4) - 0, 
OA2 (4) - 
OA1 ( 4 } - 

4 END 
4THERMS 

PSAT- 0.0, 
TFLD- 21 .0, 
GSURF- 0.0, 
PGEND - 0.0, 
QFLBC - 0.0, 
CPL- 9.6E+7, 
4 END 
4TURB 


o o 
o o 

OB2 U)- 0.0, 
OBI (1)- 1.0, 

OC2 (1)- 0.0, 
OC1 (1)— 210., 

o ►— 
o o 

OB2 (2)- 1.0, 
OBI (2) —420.0, 

OC2 (2)- 0.0, 
OC1 (2)- 0.0, 

o o 
o o 

OB2 {3 ) - 0.0, 
OBI (3)— 1.0, 

QC2 (3) - 0.0, 
OC1 (3) - 810.0, 

1.0, 

0 . 0 , 

062(4)- 1.0, 

OBI (4)— 1620.0, 

0C2 (4)- 0.0, 

OC1 (4)- 6.12E+5 


PGAS- 20.0, 
TGAS- 21.0, 
GASVOL- 0.0, 


FLK - 1.0E+04, 
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DUMMY-0.0, 
4 END 
4 FEATS 


LDRAIN- 

.FALSE., 


LQUNI - 

.FALSE., 

QUNI- 0.0 

LQTOP - 

.TRUE., 

QTOP» 1.3 

LQBOT - 

.TRUE. , 

QBOT- 1.3 

LJET - . 

.TRUE., 



RAD JET- 10.0, BOTJET- 60.0, 

VELJET- 4.5, VOLJET- 0.0, 

4 END 
4FLOBC 

NFLBC - 0, 

XENDl(l) - 0.0, YENDl(l) - 0., XVEL(l) 
XEND2 ( 1 ) - .000, YEND2U) - 0, YVEL(l) 
4 END 
EOF 

/space/cryol Ib/solacl modnl 
ja -self # GET ACCOUNTING INFO 


TOPJET- 120.0, 
TMPJET- 18.0, 


0 ., 
■ 0 , 
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Sampl* case of SOLA-ECLIPSE; CRAY Output of Run 

This output file from the CRAY has been edited and some of the output deleted. 

BEGIN EXECUTION OF SOLA ECLIPSE 

.CnJJf >»TDT - 10000000000., PLTDt - 60.. DELT “ l.E-2, ISO. -1. 

ETC .MX - ... ...» ■ 0. IE0.O ■ 1. ™ ™ 

LTURB - .T., 

DEBUG - .F., BUGS - .F., SEND rx , Q GY . 0 UI - 0., VI - 0., OMG - 1.7, 

4 HYDRO RHOF - 7.01E-2, XNU - 1.8038-3, EPSI - l.E-5, GX - 0., GY 0., UI u., 


ALPHA - 1. 
KR - 1, 

& MESHES 

, KL - 1, 

KT - 1, KB - 1, 
ICYL - 1, NKX - 

FLHT - 0 . , 

1 , XL - 0., 

SIGMA 

210. 

- 1.813, 

, 18*0., 

ISRF10 

xc - 

- 1, CANGLE - 5., PERFUL - 50., &END 
20., 19*0., NXL - 2, 19*0, NXR - 10, 

19*0, 

DXMN - 10. 
NKY - 1, 

, 19*0., 

YL - 0., 1020. 

, 18*0., YC 

- 30., 

, 19*0., 

NYL - 

1, 19*0, NYR - 33, 19*0, DYMN - 30., 

19*0., 

&END 

fcASETIN 

NOBS » 4, OA2 - 

0., le, 0., 

, 1 ■ f 

16*0., 

OAl - 

20*0., OB2 - 0., 1., 0., 1., 16*0., 

OBI 


1, ' 1 ,“J 20 ’' OC2 - 20*0 OC1 - -210., 0., 810., 612000., 16*0., IOH - 1, 0, 1, 17*0, SEND 

psl;°^. PGAS - 0 ‘io.r TFLD “ 21., TGAS.21., 0FLBC-0., GSURF - 0 . , CASVOL-0., PGEND 

0. f CPL - 96000000. , 

FLK - 10000. , 4 END 

tj.; »»■»-»- *-*••• ««• 

■ i . .... so,,, - ..... 0.0, - I... EJET - ™,E, - 10.. «*»* - «•-. «“» • 

4.5, VOLJET - 0., 

JS? “«£' -r E Ul". '^>2 ‘.Tco., YENDl - 10*0., YEND2-10*0., XVEL YVEL- 

10*0. , TBC - 10*0., 
fcEND 

1 X« [°ToOOOOEtoO S SJT , o‘^^”oS , TS- > 1.00000«01 RDX, 1,- 1.00000E-01 XU 1, -5 . 00000E + 00 RXI, 
'x'lj-ToOOOOEtOl RX( 2,- 1.00000E-01 DELX , 2,- 1.000008*01 RDX ( 2)- 1.00000E-01 XI ( 2,- 5.000008*00 RXH 

M 3;“°a! 0 oSMOE + 01 RX« 3,- 5.00000E-02 DELX < 3, - 1 . 000008*01 RDX , 3, - 1 . OOOOOE-Ol XI ( 3 ) - 1 . 500008*01 RXI , 

3 i( 4;! 66 3 6 7 0 0 0°00E*01 RX( 4)- 3.33333E-02 DELX, 4)- 1.000008*01 RDX ( 4)- 1.00000E-01 XI, 4)- 2.50000E*01 RXI, 

4 x" 4 5; 0 .°4 00 20000E*01 RX, 5, - 2.380058-02 DELX < 5, - 1 . 200008*01 RDX , 5, - B. 33333E-02 XI , 5 , - 3 . 60000E*01 RXI, 

M- 7 !! 600008*01 RX, 6,- 1.7BS71E-02 DELX, 6)- 1.40000E*01 RDX, 6)- 7.14286E-02 XI , 6, - 4 . 90000E*01 RXI, 

^ 7; 0 . 4 7 8 2o'oOOE*01 RX, 7>- 3.388898-02 DELX , 7, - 1 . 600008*01 RDX , 7, - 6. 25000E-02 XI , 7, - 6. 400008*01 RXI, 

7 X( 8;!T00000E*01 RX, 81- 1.111118-02 DELX , 8, - 1 . 80000E*01 RDX ( 8) - 5. 55556E-02 XI , 8 8 . 100008*01 RXI, 

8 x‘ 9;! 3 l”l0O00E*02 RX, 9,- 9.09091E-03 DELX, 9 ,- 2.00000E*01 RDX, 9)- 5.00000E-02 XI ( 9, - 1 .000008*02 RXI, 

9 !c;o;“T3 E ;o°o 2 OE*02 RX ,10) * 7.575768-03 DELX, 10,- 2.200008*01 RDX, 10,- 4.545458-02 XI, 10,- 7.210008*02 

XXXZS RX ,11, - 6 . 4102 6E-03 DELX, 11,- 2.400008*01 RDX, 11,- 4.166678-02 XI, 11,- 1.4 40008.0.' 

“a«i\V.VoVoWa 1 RX ,1 2, - 5.494518-03 DELX, 12,- 2.600008*01 RDX, 12,- 3.846158-02 XI, 12,- 1-690008.0. 

*?£!': XXSSZ! RX.13,- 4.761908-03 «««»»- ^00008*01 RDX, 13,- 3.571438-02 XI, 13,- 1.960008.02 

«< i 4 >- ■*»»«>- 2 - 8ooooe+o1 3 - 57143E - 02 XIll4> ‘ 2 - 240 “ 

RXI ,14,- 4 . 46429E-03 

1 FOLLOWING VALUES COMPUTED S PRINTED IN <MSHSETS> J{ 1) . _ 1 500 00E+01 RYJ, 1,-6.666678-0? 

Y( 1)- 0.000008*00 DELY, 1)- 3.00000E+01 RDY , 1,- 3.33334E-02 YJ, 1, l.DUUUut. 

V, 2,- 3.000008*01 DELY, 2,- 3.000008*01 RDY , 2, - 3 .333348-02 Yd, 2,- 1.500008*01 RYJ, 2,- 

Y, 3)- 6.000008*01 DELY ( 3 ,- 3 . 000008*01 RDY , 3 >- 3 . 333338-02 YJ ( 3,- 4.500008*01 RYJ, 3)- 

Y, 4,- 9.000008*01 DELY , 4 ,- 3 . 000008*01 RDY , 4 ,- 3 . 333338-02 YJ , 4, - 7 . 500008*01 RYJ , 4 ,- 1 . 333338-0. 
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Y{ 5)- 1 . 20000E+02 


DELY ( 5)- 3.00000E+01 


RDY< 5)- 3.33333E-02 


YJ( 5)- 1 . 05000E+02 RY J ( 5)- 9.52381E-0+ 


. . . data deleted 

Y (34) ■ 9.9000QE+02 

Y (35) - 1 . 02000E+03 

Y (36) - 1.05000E + 03 


DELY (34)- 3.0000QE+01 
DELY (35)- 3 . OOOOQE+G1 
DELY (36) - 3 . OOGOOE+Ol 


RDY (34) - 3 . 33333E-02 
RDY (3 5)- 3 . 33333E-02 
RDY (36)- 3.33333E-02 

AR 

1 .OOOOOE+OO 
0 . OOOOOE+OO 


YJ (34) - 9.75000E+02 
YJ (35) - 1.00500E+03 
YJ (36) - 1 . 03500E+03 


RYJ (34) - 1.02564E-03 
RYJ (3 5)- 9 . 95025E-04 
RYJ (36) - 9 . 661 64 £-04 

COSO 

0 . OOOOOE+OO 
0, 00000E+00 


CONSTANTS COMPUTED IN <SETUP> - 


BOND NUMBER - O.OOOOE+OO 


1 


BETA 

0. OOOOOE+OO 
0. OOOOOE+OO 


AC 

1. OOOOOE + OO 
1 .OOOOOE-IO 


data has been deltted 


AT SINO 

1. OOOOOE+OO 0. OOOOOE+OO 

0. OOOOOE+OO 0. OOOOOE+OO 


1 

35 

2 

35 

3 

35 

4 

35 

5 

35 

6 

35 

7 

35 

8 

35 

9 

35 

10 

35 

11 

35 

12 

35 

13 

35 


ITER- 


0. OOOOOE+OO 
5 . 66529E+02 
5 . 66Q63E + 02 
5.95267E+02 
7.94994E+02 
1.03761E+03 
1 . 26787E+03 
1 . 3 9770E + 03 
9 . 87989E + 02 
-1 .OOOOOE + OO 
-1 .OOOOOE + OO 
-1 .OOOOOE+OO 
-1 .OOOOOE+OO 
0 TIME- 


1 . OOOOOE-1 0 
9. 96063E-01 
9 . 80121E-01 
9. 481 92E-01 
8. 93388E-01 
8 . 02547E-01 
6.61117E-01 
4 . 50134E-01 
1 . 47401E-01 
0. OOOOOE+OO 
0. OOOOOE+OO 
0. OOOOOE+OO 
0. OOOOOE+OO 
0. OOOOOE+OO 


0. OOOOOE+OO 
9 . 92060E-01 
9 . 681 82E-01 
9 . 28203E-01 
8 . 58572E-01 
7 . 4 6521E-01 
5.75713E-01 
3 . 24555E-01 
0 .OOOOOE+OO 
0. OOOOOE+OO 
0. OOOOOE+OO 
0. OOOOOE+OO 
0. OOOOOE+OO 
DELT- l.OOOOOE- 


0. OOOOOE+OO 
0. OOOOOE+OO 
0. OOOOOE+OO 
0. OOOOOE+OO 
0. OOOOOE + OO 
0. OOOOOE+OO 
0. OOOOOE+OO 
0. OOOOOE+OO 
0. OOOOOE+OO 
0. OOOOOE+OO 
0. OOOOOE+OO 
0. OOOOOE+OO 
0. OOOOOE+OO 
02 CYCLE- 


0TVJ1 : LH2, 50%, 4.5 CM/S 


ITER- 0 TIME- 0. OUOOOE+OO DELT- 1.00000E-02 CYCLE- 


MREG- 0 

K VOL (/v) PR (K) 

FLUID VOLUME - 6 . f. 68i'51 E + t?7 ON CYCLE 0 


0. OOOOOE+OO 
3 . 16503E-01 
9. 97444E-01 
9.92884E-01 
9.85184E-01 
9.72363E-01 
9.52351E-01 
9.22444E-01 
8 . 81387E-01 
8 . 71557E-02 
8.71557E-02 
8 . 71557E-02 
8.71557E-02 
0 VCHGT- 


0 VCHGT- 


0. OOOOOE+OO 
9. 47922E-01 
-7.14 526E-02 
-1. 19082E-01 
-1 . 71490E-O1 
-2. 33474E-01 
-3. 05005E-01 
-3.86131E-01 
-4 , 72394E-01 
9, 96195E-01 
9. 96195E-01 
9. 96195E-01 
9. 96195E-01 
1.13791E+00 


1 .13791E+00 


I J 

PETA 

U 

V 

P 

1 1 
1. OOOOOE+OO 

0. OOOOOE+OO 

0. OOOOOE+OO 

0. OOOOOE+OO 

1 2 
1. OOOOOE+OO 

0 . OOOOOE+CO 

0. OOOOOE+OO 

0. OOOOOE+OO 

1 3 

1. OOOOOE+OO 

O.OOOOOL+tO 

4 . 50000E+00 

0. OOOOOE+OO 


D 

PS 

F 

NF 

0. OOOOOE+OO 

0. OOOOOE+OO 

1 .OOOOOE+OO 

0 

0. OOOOOE+OO 

0. OOOOOE+OO 

1 .OOOOOE+OO 

0 

0. OOOOOE+OO 

0. OOOOOE+OO 

1 .OOOOOE+OO 

0 


. . . data has been deleted 


14 32 

1. OOOOOE+OO 


0 . OOOOOE+C 0 

0. OOOOOE+OO 

0. OOOOOE+OO 0. OOOOOE+OO 

0. OOOOOE+OO 

0. OOOOOE+OO 

14 33 

1. OOOOOE+OO 


0 . OOOQOE+CO 

0. OOOOOE+OO 

0. OOOOOE+OO 0. OOOOOE+OO 

0. OOOOOE+OO 

0. OOOOOE + OO 

14 34 

1. OOOOOE+OO 


0. OOOOOE+OO 

0. OOOOOE+OO 

0. OOOOOE+OO 0. OOOOOE+OO 

0. OOOOOE+OO 

0. OOOOOE+OO 

14 35 

1 .OOOOOE+OO 


0. OOOOOE+OO 

0. OOOOOE+OO 

0. OOOOOE+OO 0. OOOOOE+OO 

0. OOOOOE+OO 

0. OOOOOE+OO 

14 36 

1. OOOOOE+OO 
1 

ITER- 

1 


0. OOOOOE+OO 

0. OOOOOE+OO 

0. OOOOOE + OO 0. OOOOOE + OO 

0. OOOOOE+OO 

0. OOOOOE+OO 

88 

TIME* 1. 

02000E-Q2 

DELT- 1.02000E-02 CYCLE- 

1 VCHGT- 

1 .03037E + 00 


0TVJ1: LH2 

, 50%, 4.5 CM/S 



ITER- 

88 

TIME- 1. 

02000E-02 

DELT- 1 . 02000E-02 CYCLE- 

1 VCHGT- 

1 . 03037E + 00 


0 

0 

0 

0 

0 
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NREG 1 


0 


K VOL (K) PR(K) 


FLUID VOLUME - 6.O6095JE+O7 OK CYCLE 

1 





I J 

u 

V 

P 

D 

PS 

F 

NF 

PETA 
1 1 

0. OOOOOE+OO 

0. OOOOOE+OO 

-3 . 45477E+01 

0. OOOOOE+OO 

0. OOOOOE+OO 

1 .OOOOOE+OO 

0 

1 . OOOOOE+OO 
1 2 

0. OOOOOE+OO 

3.2611 5E-01 

-3. 45477E+01 

0. OOOOOE+OO 

0. OOOOOE+OO 

1 . OOOOOE+OO 

0 

1. 00000E+00 
1 3 

0 .OOOOOE+OO 

4.50000E+00 

-1 .01785E+02 

0. OOOOOE + OO 

0. OOOOOE+OO 

1 . OOOOOE+OO 

0 

1 . OOOOOE+OO 
1 4 

0 .OOOOOE+OO 

1 . 83906E-07 

-5 . 64083E+Q1 

0. OOOOOE + OO 

0. OOOOOE+OO 

1 . OOOOOE+OO 

0 

1 . 00000E+00 
1 5 

0 .OOOOOE+OO 

4 . 50000E+00 

4. 59786E+01 

0. OOOOOE+OO 

0. OOOOOE+OO 

1 .00000£+00 

0 

1 .00000E+00 
1 6 

0. OOOOOE+OC 

3 . 45791E-01 

8 . 8 4386E + 01 

0. OOOOOE+OO 

0. OOOOOE+OO 

1 .OOOOOE+OO 

0 

1. 00000E+00 
1 7 

0. OOOOOE+OO 

5. 44622E-02 

1 . 714 47E + 01 






. . . data has been deleteu 


14 15 

0. OOOOOE+OO 

3.54 901E-0 6 

-3 . 3 9962E-03 

0. OOOOOE + OO 

0. OOOOOE+OO 

1. OOOOOE+OO 

0 

1. OOOOOE+OO 
14 16 

0 .OOOOOE+OO 

1 . 43330E-05 

-4 .13134 E-03 

0. OOOOOE + OO 

0. OOOOOE+OO 

1. OOOOOE + OO 

0 

1. OOOOOE+OO 
14 17 

0 . OOOOOE + OC 

l . 28172E-0 5 

-7 . 0 8647E-03 

0. OOOOOE+OO 

0. OOOOOE+OO 

1 .OOOOOE+OO 

0 

1. OOOOOE+OO 
14 18 

0. OOOOOE+OC 

-2 . 88517E-06 

-9 .7 2907E-03 

0. OOOOOE + OO 

0. OOOOOE+OO 

1 .OOOOOE+OO 

0 

1. OOOOOE+OO 
14 19 

0. OOOOOE+OO 

-7.73684E-05 

-9.134 22E-03 

0. OOOOOE+OO 

0. OOOOOE+OO 

1 .OOOOOE + OO 

0 

1. OOOOOE+OO 
14 20 

0. OOOOOE+OO 

2.307 68E-04 

6. 81733E-03 

0. OOOOOE + OO 

0. OOOOOE+OO 

9 . 99999E-01 

0 

1. OOOOOE+OO 
14 2] 

0. OOOOOE+OO 

-3 . 38134E-05 

-4 . 07617E-02 

0. OOOOOE + OO 

0. OOOOOE+OO 

1 .08392E-01 

0 

1. OOOOOE+OO 
14 22 

0 .OOOOOE+OO 

-1 . 40864E-Q5 

0. OOOOOE+OO 

0. OOOOOE+OO 

0. OOOOOE+OO 

0. OOOOOE + OO 

0 

1. OOOOOE+OO 
14 23 

0 .OOOOOE + OO 

-7. 08 900E-0 6 

0. OOOOOE+OO 

0. OOOOOE+OO 

0. OOOOOE+OO 

0 . OOOOOE + OO 

0 

1. OOOOOE+OO 
14 24 

0. OOOOOE+OO 

-4.17370E-06 

0. OOOOOE+OO 

0. OOOOOE+OO 

0. OOOOOE+OO 

0. OOOOOE+OO 

0 

1. OOOOOE+OO 
14 25 

0. OOOOOE+OO 

-2. 75979E-06 

0. OOOOOE+OO 

0. OOOOOE+OO 

0. OOOOOE+OO 

0. OOOOOE+OO 

0 

1 .OOOOOE+OO 
14 26 

0. OOOOOE+OO 

-1 . 9664 5E-06 

0. OOOOOE+OO 

0. OOOOOE+OO 

0 .OOOOOE+OO 

0. OOOOOE+OO 

0 

1. OOOOOE+OO 
14 27 

0. OOOOOE+OO 

-1 . 45080E-0 6 

0. OOOOOE+OO 

0. OOOOOE+OO 

0. OOOOOE+OO 

0 .OOOOOE+OO 

0 

1. OOOOOE+OO 
14 28 

0 . OOOOOE+0 1 

-1 . 05875E-0 6 

0. OOOOOE+OO 

0. OOOOOE+OO 

0. OOOOOE+OO 

0. OOOOOE+OO 

0 

1. OOOOOE+OO 
14 29 

0. OOOOOE+OO 

-7 . 72Q31E-07 

0 .OOOOOE+OO 

0. OOOOOE+OO 

0. OOOOOE+OO 

0. OOOOOE+OO 

0 

1. OOOOOE + OO 
14 30 

0 .OOOOOE+OO 

-5.72324E-07 

0 .OOOOOE+OO 

0. OOOOOE+OO 

0. OOOOOE+OO 

0. OOOOOE+OO 

0 

1. OOOOOE+OO 
14 31 

0. OOOOOE+OO 

-4. 17460E-07 

0 .OOOOOE+OO 

0. OOOOOE+OO 

0 .OOOOOE+OO 

0. OOOOOE+OO 

0 

1 .OOOOOE+OO 
14 32 

0 .OOOOOE+OO 

0. OOOOOE+OO 

0. OOOOOE+OO 

0. OOOOOE+OO 

0 .OOOOOE+OO 

0. OOOOOE+OO 

0 

1 .OOOOOE + OO 
14 33 

0 . QOOQQF.+ OO . 

0. OOOOOE+OO 

-2 . 663 25E-02 

0. OOOOOE+OO 

0 .OOOOOE+OO 

0. OOOOOE+OO 

0 

1. OOOOOE + OO 
14 34 

0 .OOOOOE+CO 

0. OOOOOE+OO 

0. OOOOOE+OO 

0. OOOOOE + OO 

0. OOOOOE + OO 

0. OOOOOE+OO 

0 

1. OOOOOE + OO 
14 35 

0 . OOOOOE+CO 

0. OOOOOE+OO 

0. OOOOOE + OO 

0 .OOOOOE + OO 

0. OOOOOE + OO 

0. OOOOOE + OO 

0 

1 .OOOOOE+OO 
14 36 

0. OOOOOE+CO 

0. OOOOOE+OO 

0. OOOOOE + OO 

0. OOOOOE + OO 

0 .OOOOOE+OO 

0. OOOOOE + OO 

0 

1. OOOOOE+OO 
1 

ITER- 

ITER- 

76 TIME- 2 , 

45 TIME- 3, 

. 0 5020E-02 
. 07010E-02 

DELT- 1 . Q3020E- 
DELT- 1.01 990E- 

■02 CYCLE- 

02 CYCLE- 

2 VCHGT- 

3 VCUGT- 

1 .13801E+00 
1 . 24 622E+00 
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ITER- 

7 

TIME- 

4 . 07980E-02 

DELT- 

1 . 00 970E-02 

CYCLE- 

4 

VCHGT- 

1 .33022E+OO 

ITER- 

7 

TIME- 

5.09959E-02 

DELT- 

1 . 01 980E-02 

CYCLE- 

5 

VCHGT- 

1 .40368E+00 

ITER- 

7 

TIME - 

6 . 1 2959E-02 

DELT- 

1 . 02999E-02 

CYCLE- 

6 

VCHGT- 

1 . 43586E+00 

ITER- 

15 

TIME- 

7.16908E-O2 

DELT- 

1 . 04029E-02 

CYCLE- 

7 

VCHGT- 

1 . 434 25E+00 

ITER- 

15 

TIME- 

8 . 22058E-02 

DELT- 

1 . 05070E-02 

CYCLE- 

8 

VCHGT- 

1.40883E+00 

ITER- 

15 

TIME- 

9. 28178E-02 

DELT- 

1.06120E-02 

CYCLE- 

9 

VCHGT- 

1 . 37397E+00 

ITER- 

15 

TIME- 

1 . 03536E-01 

DELT- 

1 . 07182E-02 

CYCLE- 

10 

VCHGT- 

1 .342B4E+00 


* EXITQ CALLED FROM <MAIN>: NORMAL TERMINATION * 
IN EXITQ, 10- 6, ' DEBUG- F 

ft************************************************ 

*»********«t******t***t***t********************** 
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0 T V J 1 : L H 2 p 5 OX » ^<,5 CM/S 
T I ME = 0 o 1 02E-0 1 CYCLE = 1 
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APPENDIX C 


"CryoTran Model" Files Part 4 


Output File (Model) to Run CSAM 
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» USER-userid 

♦ QSUB -r csam 
I QSUB -eo 

I QSUB -IT 300 

# QSUB -1M 1.5MW 

* 0S 
set -x 


PW-password 

# jobname 

f Combine error andstandard output 
I CPU time 
# Memory requested 

# End NQS statements 
f set echo 


ja 

«## This CRCSAM file, {mode] waa generated by CRYOTRAN. 
cat > model « EOF # DATA FROM VM, FN FT FM- CSAM TEST1 A 
PDR CFMF DETAILED SUPPLY TANK MODEL 
.19 SCALE TANK OUTFLOW, 0.0% FULL 
HELIUM INERTING/PRESSURIZATON, 8 LBM/HR 
& JOBDAT NPROP ( 1 ) - 1, NPRESS(l) - 1, 

KTCHK-2, 

GPGM{1) - .0001 , 1.E10, 

TKVOL(l) - 22., 

P(D - 25., 

TVNTPGM (1,1) * 10. , 1.E10, 

TVNTPGM (1,2) " 10. , 1.E10, 

TVRATE (1 ) - 0.05,0.175, 

XMSFRAC (1) -0 . 99999, 

OUTPGM (1, 1 ) - 0 . , 120. , 70. 00, 150 . , 0. , 1 - F.10, 

HETMPG (1) -500. , 1 .E9, 


PRSPGM (1 , 1) -45., 150. 
PRATE (1) -2., 

PLOTT - 1., 


5., 1.E10, 


DP TV (1 } - 4 . 

, 4., 


TEND -810.0, 

TSN -0.5, TSX -5.000 


DTMPMAX - 1 . 

. , 


NDTX - 2, 
TPF(l) - 30. 

120., 5. 

, 1 50 . , 60 

NQPF - 10, 
ISTST - 1, 

& END 


NODE 

LIQ-1, 7, 

40.000,23.50, 2 

LIQ-2, 7, 

o 

o 

o 

o 

23.5000 

GAS-1, 6, 

o 

o 

o 

o 

.2, 1, 

TANK-A, 4, 

36.392, 

.001 

TANK-B, 4, 

36. 474, 

.001 

TANK-C, 4, 

36. 565, 

.001 

TANK-D, 4, 

36.511, 

.001 

TANK-E, 4, 

36.718, 

.001 

TANK-F, 4, 

37.057, 

.001 


, 810. , 


1 

1 / 


VCS-A, 4, 

o 

o 

.001 


VCS-B, 4, 

120.0, 

.001 


VCS-C, 4, 

130.0, 

.001 


VCS-D, 4, 

o 

o 

.001 


VCS-E, 4, 

145.0, 

, .001 


VCS-F, 4, 

140.0, 

, .001 


MLI-A, 5, 

360. , 

o 

o 


MLI-B, 5, 

370. , 

, .001 


MLI-C, 5, 

370., 

r .001 


MLI-D, 5, 

371., 

o 

o 


MLI-E, 5, 

373., 

, .001 


MLI-F, 5, 

377., 

, .001 


VAC-JKT, 

0 , 530 

.000 


B0T-PEN-A1 

, 3, 

34.0, 

.0001 

B0T-PEN-B1 

, 3, 

44.0, 

.0001 

BOT-PEN-2 

, 3, 

154. C, 

.0001 

TOP-PEN-1, 

3, 

104. C, 

.0001 

TOP-PEN-2, 

3, 

164.0, 

.0001 

BOT-PEN-3 

, 3, 

454.0, 

.0001 

SUPPT-A, 

11 

, 144.0, 

0.001 

SUPPT-B, 

11 

, 144.0, 

0.001 

TORSLINK , 

11 

, 44,0, 

0.3 

HX-1-1, 120, 

37.000, 

40., 


HX-1-1A, 
HX-1-2 , 


120 , 

120 , 


1175, .001, 4, 1, 7.5, 

37.000, 5., .1175, .001, 4, 1, 7.5, 

97.000, 36.0, .1175, .001, 4, 1 


1, 

1, 


0 

0 
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HX-l-3 , 

120, 137.000, 144. 

, .1175, 

.001, 

4, 

1 

HX-1-4, 

120, 137.000, 72., 

.1175, 

.001, 

4, 

1 

HX-1-5, 

120, 157.000, 12., 

.1175, 

.001, 

4, 

1 

HX-2-1, 

120, 37.000, 4.0, 

.1175, 

.001, 

4, 

2, 

HX-2-2, 

120, 107.000, 8.0, 

.1175, 

.001, 

4, 

2 

HX-2-3, 

120, 137.000, 36.0 

V .1175, 

, .001, 

4, 

2 

HX-2-4, 

120, 137.000, 144. 

, .1175, 

.001, 

4, 

2 

HX-2-5 , 

120, 137.000, 72., 

.1175, 

.001, 

4, 

2 

HX-2-6, 

120, 437.000, 12., 

.1175, 

.001, 

4 , 

2 

HX-2-7, 

120, 437.000, 12., 

.1175, 

.001, 

4 , 

2 

CONDUCTOR 





LIQ-1, 

LIQ-2, 7, 5.277, 0 

. 579, 1 




LIQ-2, 

GAS-1, 6, 5.277, 

0.29, 1 




TANK-A, 

LIQ-1, 7, 6.33010, 

.80000, 

1 



TANK-B, 

LIQ-2, 7, 6.33010, 

.80000, 

1 



TANK-C, 

LIQ-2, 7, 6.33010, 

.80000, 

1 



TANK-D, 

LIQ-2, 7, 6.33010, 

.80000, 

1 



TANK-E, 

GAS-1, 6, 6.33010, 

.80000, 

1 



TANK-F, 

GAS-1, 6, 6.33010, 

.80000, 

1 



TANK-A, 

TANK-B, 4, .0305, 

1. 




TANK-B, 

TANK-C, 4, .03975, 

. 9 




TANK-C, 

TANK-D, 4, .0409, 

.75 




TANK-D, 

TANK-E, 4, .03975, 

. 9 




TANK-E, 

TANK-F, 4, .0305, 

1. 




VCS-A, 

VCS-B, 4, .0129, 1 

.043 




VCS-B, 

VCS-C, 4, .0168, 

939 




VCS-C, 

VCS-D, 4, .01727, 

.7824 




VCS-D, 

VCS-E, 4, .0168, 

939 





VCS-E, VCS-F, 4, .0129, 1.043 

MLI-A, VCS-A, 5, 7. IB, .0521 

MLI-B, VCS-B, 5, 7. IB, .0521 

MLI-C, VCS-C, 5, 7.18, .0521 

MLI-D, VCS-D, 5, 7.18, .0521 

MLI-E, VCS-E, 5, 7.18, .0521 

MLI-F, VCS-F, 5, 7.18, .0521 


VAC-JKT, 

MLI-A, 

5, 7. 

68, 

.0521 


VAC-JKT, 

MLI-B, 

5, 7. 

68, 

0521 


VAC-JKT, 

MLI-C, 

5, 7. 

68, 

0521 


VAC-JKT, 

MLI-D, 

5, 7. 

68, . 

0521 


VAC-JKT, 

MLL-E, 

5, 7. 

68 , 

0521 


VAC-JKT, 

MLI-F, 

5, 7. 

68, 

0521 


VAC-JKT, 

SUPPT-A 

, 11, 3 

.0179 

.26 


SUPPT-A, 

TANK-C 

,11,3 

.0179 

.07 


VAC-JKT, 

SUPPT-B 

,11, 3 

.0179 

.26 


SUPPT-B, 

TANK-D 

, 11, 3 

.0179 

.07 


BOT-PEN- 2, 

BOT- 

PEN-H1 , 

3, 

0.00108, 

0.75 

BOT-PEN-B1 

, TANK 

-A, 

4, 

0.04 , 

1.0 

BOT-PEN- 2, 

BOT- 

PEN-A1, 

3, 

0.00108, 

0.75 

BOT-PEN-A1 

, TANK 

-A, 

4, 

0.0565 , 

1 .0 

HX-2-6 

, HX-2 

“5 , 

4 , 

0.000116, 

0.67 

HX-1-5 

, HX-1 

-4 , 

4, 

0.000116, 

0.42 

VAC-JKT 

, HX-1 

-5 , 

4, 

0.000116, 

1.30 

TOP-PEN-1 

, HX-2 

-2 , 

4, 

0.003 , 

0.17 

TOP-PEN-1 

, TANK 

“F , 

3, 

0.00085 , 

0.21 

TOP-PEN-2 

, TOP- 

PEN-1, 

3, 

0.00085 , 

0. 5 

VAC-JKT 

, TOP- 

PEN-2, 

3, 

0.00085 , 

1.3 

TOP-PEN-2, 

HX-1 

-5, 

4, 

0.003 , 

0.17 

SUPPT-B , 

VCS- 

D , 

12, 

0.0004, 

.229 

SUPPT-A , 

VCS- 

C , 

12, 

0.0004, 

.229 

BOT-PEN-B1 

, HX-2 

-1, 

4, 

0.002 , 

0.04 

BOT-PEN-A1 

, HX-1 

-1, 

4, 

0.206 , 

0.0833 


VCS-D, 

TANK-D, 

11, 

.11 , 

1.0 

VCS-C, 

TANK-C, 

11, 

11 , 

1 .0 

VCS-A, 

TANK-A, 

11, 

,05 , 

1.0 

VCS-A, 

TANK-A, 

99, 

.25 


VCS-B, 

TANK-B, 

99, 

.25 


VCS-C, 

TANK-C, 

99, 

.25 


VCS-D, 

TANK-D, 

99, 

.25 


VCS-E, 

TANK-E, 

99, 

.25 


VCS-F, 

TANK-F, 

99, 

.25 
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VCS-A, 

HX-1-2, 

4, 

.12000, .25000 



VCS-C, 

HX-1-3 1 

4, 

.12000, .25000 



VCS-E, 

HX-1-4 , 

4, 

. 12CQ0, .25000 



VCS-F, 

HX-2-3, 

4, 

.12000, .25000 



VCS-D, 

HX-2-4 , 

4, 

.12000, .25000 



VCS-B, 

HX-2-5 , 

4, 

.12000, .08300 



HX-2-2 , 

HX-2-3, 

4, 

.000116, 

1 . 


HX-2-6, 

bot-pen- 

2 , 

4, 0.002, 

0.17 


BOT-PEN- 

-Al , TORSLINK , 4, 

0.017, 

0 . 6 

HX-1-1A 

, TORSLINK f 4 r 

0.030, 

0.042 

VAC-JKT 

, TORSLINK , 11, 

0.007, 

0.300 

VAC-JKT 

, BOT-PEN 

-3, 

3, 0.000100, 


. 625 

BOT-PEN' 

-3 , BOT-PEN- 

-2, 3, 0.000108, 

.62 5 

HX-2-7, 

BOT-PEN- 

3, 

4, 0.002, 

0.17 


HX-2-7, 

VAC-JKT 

t 

4, 0.00116, 

1.00 


HX-2-7, 

HX-2-6 

* 

4, 0.00116, 

1.00 


*END 







EOF 

/space/cryol ib/crcsam model 
ja -self # GET ACCOUNTING INFO 


APPENDIX D 


SUBROUTINE DESCRIPTIONS 
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SUBROUTINE DESCRIPTIONS 


MAIN PROGRAM (No. 0) 

The Main Program calls on a subroutine to initialize data values and 
for the model definition. 


then calls on the menu subroutines 


SUBROUTINE CLEARS (no. 01) 

Called from various routines. , „ ICAD 

Subroutine to clear the terminal screen. This routine calls the system dependent subroutine CLEAR 
CALL CMSCMD(’VMFCLEAR’, 16, IRT) 

CALL CLEAR 


SUBROUTINE READAL (No. 02) 

Called from various .routines. 

Subroutine to read the input responses from the user and do some validity checks. 
READAL. ..Read n alphabetic characters, n= 1,2,3 
This routine has additional entry points: 

ENTRY READLC...Read alphabetic characters, no test. 

ENTRY READIN...Read integer and test upper and lower bounds. 

ENTRY READRE...Read a real number, test for alphabetic characters 


SUBROUTINE DOJCL(COMAND) (No. 03) 

Called from MAIN, INDAT2 and INSERT. iXT 

Subroutine to execute VM system JCL commands from inside a FORTRAN program. 
This routine is system dependent; see note above. 

This routine calls "CALL SYSCMD(COMAND.IRC)". 


SUBROUTINE BLHDRS (No. 04) 

Called from SINTRU, CONDRS, SNBLKS, NODES. 

Read SINDA block header information and write block headers for each 
SIND A block. 

This subroutine has 14 entry points. 

ENTRY BLHDRS 
ENTRY RDTITL 
ENTRY BLOTTL 
ENTRY BL1TTL 
ENTRY BL2TTL 
ENTRY BL3TTL 
ENTRY BL4TTL 
ENTRY BL5TTL 
ENTRY BL6TTL 
ENTRY BL7TTL 
ENTRY BL8TTL 
ENTRY BL9TTL 
ENTRY BLKEND 
ENTRY ENDDAT 


SUBROUTINES (No. 05) 

Called from VMINTR. 

A collection of routines (programs) that will be executed interactively 


on VM from within the system. 


SUBROUTINE INITAL (no. 1) 

Called from the MAIN. 

Subroutine to initialize common data blocks. 
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SUBROUTINE MENU1 (No. 2) 

Called from MAIN. 

This subroutine has the user specify the problem type. The problem types are: 

1. Thermal/Thermo analysis on a sphere (SINDA). 

2. Thermal/Thermo analysis on a cylinder (SINDA). 

3. Run an analysis program without generating a SINDA model for the two geometries described 

above. 

This subroutine may need to be changed as new capabilities are added to the program. 

SUBROUTINE MENU 2 (No. 3) 

Called from MAIN. 

This subroutine requests input from the user to specify the analysis program that is to be executed, 
based on the problem type input in MENU1. 

This subroutine will need to be changed as new capabilities are added to the program. 

SUBROUTINE SINTRU (No. 4) 

Called from MAIN. 

This subroutine is used to define the geometric regions and then to generate the SINDA model. 

SUBROUTINE GETJCL (No. 41) 

Called from SINTRU, NOSIND, INDAT1. 

Subroutine to obtain CRAY JCL information from the user and then to 
unit 10 (model file). 

The other entry points are called from SINTRU and NOSIND to generate the 
application requested by the user. The entry 
points are: 

ENTRY RITJCL 
ENTRY RITJC2 
ENTRY RITJC3 

If a different computer system is used this subroutine must be changed 
of the system used 

SUBROUTINE NOCHRS (No. 411) 

Called from GETJCL, NODES. 

This subroutine has 2 entry points. 

ENTRY NOCHRS 
ENTRY NBCD 

Entry NOCHRS computes the number of characters in a character string. 

Entry NBCD converts an integer into character form. 

SUBROUTINE TOLOWC (No. 412) 

Called from GETJCL. 

Converts character data to lower case. 

SUBROUTINE REGNl (No. 42) 

Called from SINTRU. 

This subroutine calls the proper subroutine to get region 1 information for the proper geometry. 

SUBROUTINE SFEERE (No. 421) 

Called from REGNl. 

Reads data to define region 1 of a sphere 

SUBROUTINE CYLNDR (No. 422) 

Called from REGNL 

Reads the measurements for a cylindrical tank. 


write this JCL as file 1 on 
JCL file for the 

to reflect the proper JCL 
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SUBROUTINE RGNGNL (No. 423) 

Called from REGN1, RGN2T5. , 

Subroutine to input general information for each region: region width, 

number of layers through the region. 

SUBROUTINE MATMNU (No. 4231) 

Called from RGNGNL, RGN2T5, SPLINP. 

Displays a menu of materials and prompts the user for a material number 

SUBROUTINE RGN2T5 (No. 43) 

Called from SINTRU. 

This subroutine prompts the user to obtain input data to define regions 
spherical or cylindrical geometry. 

SUBROUTINE ULLINP (No. 431) 

Called from RGN2T5, ULLGET. 

This subroutine prompts the user for ullage information, such as where 
the tank and what percent of the tank is filled with liquid. 

There are 2 entry points in this subroutine. 

ENTRY ULLINP 
ENTRY ULLIN2 


temperature, material, 


for each defined region. 


2, 3, 4 and 5 of the 


the ullage is positioned in 


SUBROUTINE ULLGET (No. 432) 

Called from RGN2T5, SPHNDS. 

If there is ullage in the tank determine where the ullage is 


and which nodes are ullage and which 


liquid. 


are 


SUBROUTINE CUBIC (No. 4321) 

Called from ULLGET. 

Finds the real roots of a cubic equation. 


SUBROUTINE READHX (No. 433) 

Called from RGN2T5. 

This subroutine reads in heat exchanger information if there are any. 
exchangers in the model. 


There may be up to 10 heal 


SUBROUTINE NODES (No. 44) 

TtotubroutineMlls the proper routines to generate diffusion nodes for the SINDA model. This 
routine then generates arithmetic and boundary nodes. 


SUBROUTINE SPHNDS (No. 441) 

Called from NODES. 

Subroutine to generate node data on a sphere. 


SUBROUTINE SETUPA (No. 4411) 

Called from SPHNDS. 

Setup data for arithmetic nodes. Checks for heat exchangers; then puts 
SINDA model file. 


out arithmetic nodes to 


SUBROUTINE SPHDIF (No. 4412) 

Called from SPHNDS. 

Compute diffusion nodes for all nlay layers of a spherical wedge. 


SUBROUTINE ULLCHK (No. 44121) 

Called from SPHDIF, RADCON, CIRCON. 

Checks the type of ullage for region NR and computes where it starts; *' 

theta angle, counting from the south pole, does the ullage start for the current layer LN. 


when ct=’ 1*, at which 
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When ct=*c\ is the current layer ullage or not. 

SUBROUTINE CYLNDS (no. 442) 

Called from NODES. 

Calls one of the following subroutines to generate nodes. 

FEND to generate the nodes for a flat end. 

SEND to generate the nodes for a spherical end. 

FEND to generate the nodes for an elliptical end. 
CYLSEC to generate the nodes in the cylindrical section. 

SUBROUTINE FEND (No. 4421) 

Called from CYLNDS. 

Subroutine to generate the nodes for a flat end. 

SUBROUTINE SEND (No. 4422) 

Called from CYLNDS. 

Subroutine to generate the nodes for a spherical end. 

SUBROUTINE FEND (no. 4423) 

Called from CYLNDS. 

Subroutine to generate nodes for an elliptical end. 

SUBROUTINE CYLSEC (No. 4424) 

Called from CYLNDS. 

Subroutine to generate nodes in the cylindrical section. 


SUBROUTINE RITNDS (No. 443) 

Called from NODES, SPHDIF, FEND, SEND, EEND, CYLSEC, SETUPA. 

Writes the node lines to the SIND A model File. 

SUBROUTINE SRCDAT (No. 45) 

Called from SINTRU. 

This subroutine generates the source data block of the SINDA model. 

SUBROUTINE AREAS P(No. 451) 

Called from SRCDAT, SNBLKS, CIRCON, SPHDIF, SPHCDS. 

Computes areas on a sphere. 

The call parameter NAREA determines which type of area. 

If NAREA=1, computes radial area, surface areas. 

If NAREA=2, computes circumferential area. 

SUBROUTINE CONORS (No. 46) 

Called from SINTRU. 

This subroutine calls on the sphere or cylinder conductor generation routine. 

SUBROUTINE SPHCDS (No. 461) 

Called from CONDRS. 

Generates all conductor data for a spherical wedge. 

SUBROUTINE RADCON (No. 4611) 

Called from SPHCDS 

Generates radial conductor data for sphere wedge. 

SUBROUTINE SET ARY (No. 46111) 

Called from RADCON. 

Checks for vapor nodes in conductor data and sets switches NYA and NYB equal to 0 or to 200 to 
change the property table array numbers for a node. This is only done when NR >= 4 and NLGR=1. 
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SUBROUTINE CIRCON (No. 4612) 

Called from SPHCDS. 

Generates circumferential conductor for sphere wedge 
SUBROUTINE RITCND (No. 4613) 

Called from SPHCDS, RADCON, CIRCON, CYLALL, FCND, SCND, ECND. 

Writes conductor cards to SINDA model file, unit 10. 

SUBROUTINE CYLCDS (No. 462) 

Called from CONORS. 

Calls one of the following subroutines to generate conductors: 

FCND to generate the conductors for a flat end. 

SCND to generate the conductors for a spherical end. 

ECND to generate the conductors for an elliptical end. 

CYLALL to generate the conductors for the cylinderical section. 

SUBROUTINE HXARR (No. 4621) 

Called from CYLCDS. 

Generates all conductors that involve a heat exchanger. 

SUBROUTINE CYLALL (No. 4622) 

Called from CYLCDS. 

Generates all conductors in the cylindrical section. 

SUBROUTINE FCND (No. 4623) 

Called from CYLCDS. 

Generates all conductors in a flat end. 

SUBROUTINE SCND (No. 4624) 

Called from CYLCDS. 

Generates all conductors in a spherical end. 

SUBROUTINE ECND (No. 4625) 

Called from CYLCDS. 

Generates all conductors in an elliptical end. 

SUBROUTINE SNBLKS (No. 47) 

Called from S1NTRU. 

This subroutine reads SINDA constants data. 

Generates the constants, array, execution, Variables 1, Variables 2 and output blocks in the SINDA model 
and writes these blocks to the model file, unit 10. 

SUBROUTINE SPLINP (No. 471) 

Called from SNBLKS. 

Subroutine to read special input data for analyses where ntyp=l or 2, and regns(4)=false. This data is 
fluid data inside the tank where the analysis program is solving the thermo problem and there are no 

SEND A nodes. The data that is prompted for are: 

Liquid temperature 
Vapor temperature 
Liquid How rate 
Liquid fill level, percent full. 

SUBROUTINE AREACY (No. 472) 

Called from SNBLKS, FCND, CYLSEC, ECND, SCND. 

Computes areas on a cylinder. 

The call parameter NAREA determines which type of area. If NAREA=1, compute radial area, 
surface areas. If NAREA=2, compute circumferential area. 
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SUBROUTINE PRPTBL (No. 473) 

Called from SNBLKS. 

Put property tables into array data block. 

SUBROUTINE MATUSR (No. 4731) 

Called from PRPTBL. 

Subroutine that gives the user the choice of creating his/her own property. 

SUBROUTINE INSERT (No. 474) 

Called from SNBLKS. 

Subroutine to insert the source code of fluid subroutines into the SINDA model. This is done by: 

Filedefing the proper unit using DOJCL. 

This file will be called ‘CRYOSUBS "XCUTr\ 

This source file must be LRECL=80, RECFM=F 
Then open fortran unit 59 on that file. 

Read 59 and write into MODU (unit 10). 

SUBROUTINE GEOPLT (No. 48) 

Called from SINTRU. 

This subroutine controls the calls to the plotting routines to produce geometry plots of the SINDA 
models. This is not for plots of the analysis output, only the geometry. If the geometry is a sphere this 

routine calls subroutine PLTSPH. If the geometry is cylindrical subroutine PLTCYL is called, 

SUBROUTINE PLTSPH (No. 481) 

Called from GEOPLT. 

Plots the geometry generated for a sphere. 

SUBROUTINE PLTCYL (No. 482) 

Called from GEOPLT. 

Plots the geometry generated for a cylinder 

SUBROUTINE VMINTR (No. 5) 

Called from MAIN. 

This subroutine is the entry to execute analysis routines on VM interactively. 

This subroutine must be changed whenever a new interactive analysis program is added to the system. 

The names of these programs will be added to the array MAINM and the corresponding value in 

array NSRUNN will be set =2. For these programs the output will go to both the screen and a disk file named 
"program output", fortran unit 17. 

SUBROUTINE NOSIND (No. 6) 

Called from MAIN. 

This subroutine sets up the CRAY JCL in a file and then submits it to CRAY to execute an 

analysis program that is prestored on the CRAY as part of this system. 

SUBROUTINE INDAT1 (No. 61) 

Called from NOSIND. 

Subroutine to get input data for an analysis program. This subroutine has two entry points: 

ENTRY INDAT1 
ENTRY INDAT2 

Entry indatl interrogates the user as to the source of the input data. If the data is on CRAY, write an 
access to this data in the model file. 

Entry INDAT2 is called if the data is on VM or if the data is to be typed in at the terminal. In this 
case the data is written inline into the model file. 


DISSPLA 

Called from PLTSPH, PLTCYL. 

Plotting package on the LeRC VM computer used to plot sphere and cylinder SINDA models. 
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APPENDIX E 

CryoTran Program Listings 
Part I CRYOTRAN FORTRAN 
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C 0 OMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM 

PROGRAM CRT RAN 


CCC 

CCC 

CCC 

CCC 

CCC 

CCC 

CCC 

CCC 

CCC 

CCC 

CCC 

CCC 

CCC 

CCC 

CCC 

CCC 

CCC 

CCC 

CCC 

CCC 

CCC 

CCC 

CCC 

CCC 

CCC 

CCC 

CCC 

CCC 

CCC 

CCC 

CCC 

CCC 

CCC 

CCC 

CCC 

CCC 

CCC 

CCC 

CCC 

CCC 

CCC 

CCC 

CCC 

CCC 

CCC 

CCC 

c 


PROGRAM C RYOT RAN, A PROGRAM TO 

READ INPUT DATA, DETERMINE GEOMETRY TYPE. 

THE INPUT DATA IS ECHOED TO FORTRAN UNIT INPEKO 
FILENAME - CRYOTRAN INPUTEKO 
GENERATE A SINDA MODEL ON UNIT MODU. NMOD SET BELOW. 
INCLUDING CALLS TO SUBROUTINES FROM EXECUTION BLOCK, 

VARIABLES 1, VARIABLES 2 , AND OUTPUT BLOCKS. 

OR GENERATE A RUNSTREAM TO RUN AN ANALYSIS PROGRAM WITHOUT 
A SINDA THERMAL ANALYSIS. 

A LIBRARY OF SUBROUTINES WILL RESIDE ON CRAY. 

THIS LIBRARY WILL CONTAIN ONLY SUBROUTINES, NO MAIN PROGRAMS. 
THE MAIN PROGRAM FOR ANY ANALYSIS WILL BE GENERATED EITHER BY 
THIS PROGRAM OR BY THE SINDA PREPROCESSOR. 

THIS PROGRAM MAY BE ACCESSED AND PUT INTO EXECUTION BY 
LINKING TO THE D DISK OF USERLIB CRYOLIB, AND THEN 
INVOKING THE VM EXEC ' RUNCRYO' , AS FOLLOWS: 

LINK CRYOLIB 200 NNN RR (NNN MAY BE ANY NO. THE USER 

ACCESS NNN M DOES NOT HAVE DEFINED) 

RUNCRYO (ON THE ACCESS NNN MUST BE THE "M" DISK) 

USER MAY EDIT THE SINDA MODEL AT ANY TIME TO TAILOR IT TO A 
A SPECIFIC NEED; TO ADD A CAPABILITY NOT AVAILABLE IN 
THIS PROGRAM; OR TO RUN PARAMETRIC STUDIES. 

A FORTRAN CALL TO CLEAR THE SCREEN 'CALL CLEAR' IS USED IN 
THIS PROGRAM. THIS ROUTINE IS ON THE AMDAHL/VM SYSTEM AT LERC. 
THIS ROUTINE, (CLEAR), IS CALLED FROM A SUBROUTINE IN THIS 
PROGRAM CALLED CLEARS, (CLEAR SCREEN) . 

ON ANOTHER SYSTEM THAT DOES NOT HAVE THIS ROUTINE THE USER 
MAY COMMENT OUT THE CALL TO CLEAR IN SUBROUTINE CLEARS, 

OR ACCESS A SUBSTITUTE ROUTINE. 

TO USE AT LERC, USER MUST DO ' FTNLI B' PRIOR 
TO LOAD IN ORDER TO ACCESS THE ROUTINE; 

OR DO 'ADDLIB FTNLI B' , (LERC LOCAL COMMAND). 

SEE VM EXEC 'RUNCRYO' 

NOTE: CALL SYSCMD ... USED IN SUBROUTINE DOJCL (C03) 

AND MAIN (0) 

ISA LOCAL LERC SUBROUTINE TO PERFORM VM JCL REQUESTS FROM 
INSIDE A FORTRAN PROGRAM. 

ON ANOTHER SYSTEM THAT DOES NOT HAVE THIS ROUTINE THE USER 
MAY COMMENT OUT THE CALL TO SYSCMD IN SUBROUTINE DOJCL, 

OR ACCESS A SUBSTITUTE ROUTINE. 


MAIN PROGRAM 

CALL MAI NPG 
CALL PLTDUN 
STOP 
END 

SUBROUTINE MAINPG 

COMMON /GEOMTY/ NTYP , NAN, GEOM (2 ) 

COMMON/UNITS/ MODU, INPEKO, ISCRCH, SINDA 

COMMON /SUBRTS/ SPLIPT, XCUT1 , XCUT2 , VBLBL1 , VBLBL2, OUTBLK 

LOGICAL SPLIPT 
LOGICAL SINDA 

CHARACTER* 1 YN 

CHARACTER* 6 XCUT1, XCUT2, VBLBL1 , VBLBL2, OUTBLK, MAINNM 

CHARACTER* 12 EXMOD 

CHARACTER* 20 FNFTFM 

CHARACTER* 27 CHGN1 , CHGN2, CHGN3 

CHARACTER* 47 RENAME 


DATA CHGN1/' RENAME CRYOTRAN INPUTEKO A 
DATA CHGN2/' RENAME CRYOTRAN MODEL A 


CRY00010 

CRY00020 

CRY00030 

CRY00040 

CRY000 50 

CRY00060 

CRY00070 

CRY00080 

CRY00090 

CRY00100 

CRY001 10 

CRY00120 

CRY001 30 

CRYQ0140 

CRY001 50 

CRY001 60 

CRY00170 

CRY00180 

CRY001 90 

CRY00200 

CRY00210 

CRY00220 

CRY00230 

CRY00240 

CRY002 50 

CRY00260 

CRY00270 

CRY00280 

CRY002 90 

CRY00300 

CRY00310 

CRY00320 

CRY00330 

CRY00340 

CRY00350 

CRY003 60 

CRY00370 

CRY00380 

CRY00390 

CRY00400 

CRY0041Q 

CRY00420 

CRY00430 

CRY00440 

CRY00450 

CRY004 60 

CRY004 70 

CRY004 80 

CRY004 90 

CRY00500 

CRY00510 

CRY00520 

CRY0C530 

CRY00540 

CRY00550 

CRY00560 

CRY00570 

CRY00580 

CRY005 90 

CRY00600 

CRY00610 

CRY00620 

CRY00630 

CRY00640 

CRY00650 

CRY00660 

CRY00670 

CRY00680 

CRY00690 

CRY00700 
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DATA CHGN3/' RENAME PROGRAM OUTPUT A 


'/ 


C 

C 

C 

C 

c 

c 

c 


CALL SUBROUTINE ERR9ET TO SUPPRESS ERROR MESSAGES FOR ERROR 
NO. 108. THIS ERROR OCCURS WHEN A NONEXESTENT VM FILE IS 
SPECIFIED AS A DATA FILE WHEN RUNNING A TYPE 3 PROGRAM 
(A PRESTORED PROGRAM ON THE CRAY} . SEE VS FORTRAN VERSION 2 
LANGUAGE AND LIBRARY REFERENCE, IBM SC26-4221-2, PAGE 311. 


C 

CALL 


C 

CALL 


C 

CALL 


CALL ERRSET(10B # 256, -1,1,1,109) 

INITIALIZE COMMON BLOCKS 
CALL INITAL 

GET PROBLEM TYPE FROM MENU 1 
CALL MENU1 

GET ANALYSIS SUBROUTINE {VARIABLES 1 OR STAND ALONE) 
CALL MENU2 (NRUNON) 

EXMOD-' SINDA' 

IF (NTYP ,EQ. 3) THEN 
EXMOD (1:6)- XCUT2 
EXMOD (7:12) -VBLBL1 
ENDIF 


INITAL (1) 


MENU1 


( 2 ) 


MENU2 (3) 


CALL 


IF (SINDA) THEN 

CALL SINTRU 

CALL CLEARS 
PRINT 2010 
PRINT 2011 

CLOSE UNIT MODU, REWIND, AND EXIT PREPRO PROGRAM. 
PRINT 2012 
PRINT 2013, EXMOD 
PRINT 2050 
PRINT 2060 
ELSE 

IF (NRUNON .EQ. 2) THEN 
MAINNM-XCUT1 


SINTRU (4) 


CALL 


VMINTR (5) 


CRY00710 

CRY00720 

CRY00730 

CRY00740 

CRY00750 

CRY00760 

CRY00770 

CRY007 80 

CRY00790 

CRY00800 

CRY00810 

CRY00820 

CRY00830 

CRY00840 

CRY00850 

CRY00860 

CRY00870 

CRY008B0 

CRY008 90 

CRY00900 

CRY00910 

CRY00920 

CRY00930 

CRY00940 

CRY00950 

CRY00960 

CRY00970 

CRY00980 

CRY00990 

CRY01000 

CRY01010 

CRY01020 

CRYO 1030 

CRY01040 

CRY01050 

CRY010 60 

CRY01070 

CRY01080 

CRYO 10 90 

CRY01100 


CALL 


CALL 


CALL VMINTR (MAINNM) 
PRINT 2020 
PRINT 2015 

CRY01110 
CRY01120 
CRY011 30 
READAL (02) CRY01140 

CALL READAL (1, YN) 

CRY01150 

IF (YN .EQ. * N' ) THEN 
GO TO 999 
ELSE 

GO TO 997 
ENDIF 
ELSE 

CRYC1160 
CRY01170 
CRY01180 
CRY011 90 
CRY01200 
CRY01210 
NOSIND (6) CRY01220 

CALL NOSIND (NRUNON) 
ENDIF 

CALL CLEARS 
PRINT 2010 
PRINT 2012 

CRY01230 
CRY01240 
CRY01250 
CRY012 60 
CRY01270 
CRY01280 

CRY01290 

ENDIF 

CRY01300 

ENDFILE MODU 
REWIND MODU 
) TO TOP OR STOP??? 7 

CRYQ1310 

CRY01320 

CRY01330 

PRINT 2015 

READAL (02) CRY01340 

CRYO 13 50 

CALL READAL (1, YN) 

CRYQ1360 

IF (YN .EQ. ' YM THEN 

CRY01370 

CALL CLEARS 

CRY01380 

PRINT 2016 

CRY01390 

PRINT 2017 
CALL READAL (1,YN) 

CRY01400 
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IF (YN .EQ. 'Y') THEN 



CRY014 10 

PRINT 20181 



CRY01420 

PRINT 2017 



CRY01430 

CALL READAL (1* YN} 



CRY014 40 

IF (YN .EQ. 'Y'} THEN 



CRY014 50 

PRINT 2019 



CRY014 60 

CALL READAL (3, FNFTFM) 



CRY01470 

RENAME-CHGN1// FNFTFM 



CRYO140O 

C CLOSE UNIT INPEKO, REWIND, CHANGE NAME 



CRY01490 

ENDFILE INPEKO 



CRY01500 

REWIND INPEKO 



CRY01510 

CALL DOJCL {RENAME} 



CRY01520 

ENDIF 



CRY01530 

I F (NRUNON .EQ. 1) THEN 



CRY01540 

CALL CLEARS 



CRY01550 

PRINT 20102 



CRY01560 

PRINT 2017 



CRY01570 

CALL READAL (1,YN) 



CRY01580 

IF (YN .EQ. ' Y' ) THEN 



CRY0 1590 

PRINT 2019 



CRY01600 

CALL READAL (3, FNFTFM) 



CRY01610 

RENAME-CHGN2// FNFTFM 



CRY01620 

C CLOSE UNIT MODU, REWIND, CHANGE NAME 



CRY01630 

CALL DOJCL (RENAME) 



CRY01640 

ENDIF 



CRY01650 

ENDIF 



CRYQ1660 

IF (NRUNON .EQ. 2) THEN 



CRY01670 

CALL CLEARS 



CRY01680 

PRINT 20183 



CRY01690 

PRINT 2017 



CRY01700 

CALL READAL (1,YN) 



CRY0171Q 

IF (YN .EQ. 'Y') THF.N 



CRY01720 

PRINT 2019 



CRY01730 

CALL READAL (3, FNFTFM) 



CRY01740 

RE NAME-CHGN3// FNFTFM 



CRY017 50 

C CLOSE UNIT INPEKO, (17), PROGRAM OUTPUT, 

CHANGE 

NAME 

CRY01760 

ENDFILE INPEKO 



CRY01770 

CALL DOJCL (RENAME,) 



CRY01780 

ENDIF 



CRY01790 

END I K 



CRY0 1800 

ENDIF 



CRY01810 

GO TO : 



CRYO102O 

ENDIF 



CRY0 1830 

CALI. CLEARS 



CRY01840 

PRINT 2011 



CRY0 18 50 

PRINT 2012 



CRY01860 

PRINT 2013, EXMOD 



CRY01870 

PRINT 2050 



CRY016B0 

PRINT 2060 



CRY01B90 

IF (NTYP .EQ. 3 .AND. NAN . EQ . 4) PRINT 

2061, EXMOD 

CRY01900 

IF(SINDA) THEN 



CRY01910 

EXMOD"' SINDA MODEL' 



CRY01920 

PRINT 2062, EXMOD 



CRY01930 

ENDIF 



CRY01940 

999 RETURN 



CRY01950 

C 



CRY01960 

C FORMATS 



CRY01970 

C 



CRY01980 

2005 FORMAT {' NOW GET INPUT DATA FOR THE 

SELECTED ANALYSIS PROGRAM' 

/CRY01990 

1 'IS THE ANALYSIS INPUT DATA: 

'/ 


CRY02000 

2 ' 1 STORED ON THE CRAY COMPUTER.'/ 


CRY02010 

3 ' 2 STORED ON THE VM COMPUTER.'/ 


CRY02020 

4 ' 3 TO BE TYPED IN NOW.'/ 



CRY02030 

5 ' TYPE IN 1, 2, OR 3') 



CRY02040 

2010 FORMAT (' END OF CRYOTRAN PREPROCESSOR PROGRAM,') 

CRY02050 

2011 FORMAT (' ON TO ANALYSIS PROGRAM') 



CRY020 60 

2012 FORMAT (' THE OUTPUT FILE IS CALLED 1 

‘CRYOTRAN MODEL".') 

CRY02070 

2013 FORMAT (' THIS "CRYOTRAN MODEL" FILE 

IS A 

Al 2, ' MODEL.') 

CRY02080 

2015 FORMAT {/' DO YOU WANT TO GO TO BEGINNING OF 

CRYOTRAN OR QUIT? 

’ /CRY02090 


1 ' TYPE Y TO GO BACK TO BEGINNING OF CRYOTRAN, ' / CRY02100 
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2016 FORMAT (' 


OR TYPE N TO QUIT CRYOTRAN. ' ) 

BEFORE CONTINUING YOU MAY WANT TO CHANGE THE NAME' / 


"CRYOTRAN INPUTEKO"?') 
"CRYOTRAN MODEL-?' > 
"PROGRAM OUTPUT-?') 

FILE TYPE; FILE MODE'/ 
FN FT FM' ) 


1 ' OF SOME OF THE OUTPUT FILES. IF YOU DO NOT CHANGE THE NAME'/ 

2 ' OF THE MODEL FILE, THE NEW MODEL OUTPUT OF THE NEW RUN'/ 

3 ' WILL OVERWRITE THE MODEL OUTPUT OF THE PREVIOUS RUN.'// 

4 ' DO YOU WANT TO CHANGE THE NAME OF ANY OF YOUR OUTPUT'/ 

5 ' FILES FROM THIS RUN BEFORE CONTINUING?') 

2017 FORMAT (/' TYPE IN Y OR N' ) 

20181 FORMAT (' CHANGE THE NAME OF THE FILE 

20182 FORMAT (' CHANGE THE NAME OF THE FILE 

20183 FORMAT (' CHANGE THE NAME OF THE FILE 

2019 FORMAT (/' TYPE IN THE NEW FILE NAME; 

1 ' YOU MUST TYPE IN ALL THREE PARTS OF NAME 

2020 FORMAT {/' INTERACTIVE PROGRAM ',A6, 'COMPLETED') 

2050 FORMAT {//' USER KAY NOW SUBMIT THE FILE "CRYOTRAN MODEL"'/ 

1 ' TO THE CRAY COMPUTER FOR EXECUTION,'/ 

2 ' OR MAKE ANY DESIRED MODIFICATIONS WITH AN EDITOR'/ 

3 ' PRIOR TO SUBMITTING IT TO THE CRAY.') 

2060 FORMAT (//' TO SUBMIT THE FILE TO CRAY,'/ 

1 ' ON THE VM SYSTEM TYPE: CRSUBMIT CRYOTRAN MODEL') 

2061 FORMAT!//' UPON COMPLETION OF THE CRAY EXECUTION OF ',A12/ 

1 ' USER MAY PLOT THESE RESULTS BY TYPING:'// 

2 ' DOECLPLT SOLA PLOTFILE') 

2062 FORMAT!//' IF USER HAS REQUESTED A GEOMETRY PLOT OF THE ',A12/ 

1 ' THE PLOT DATA IS IN FILE NAMED "QMS PLOT DATA" '// 

2 ' USER MAY PLOT THESE RESULTS BY TYPING: PLOTQA' ) 


END 

C01SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 

SUBROUTINE CLEARS 

c CALLED FROM VARIOUS ROUTINES 

C SUBROUTINE TO CLEAR THE TERMINAL SCREEN 

C THIS ROUTINE IS SYSTEM DEPENDENT; SEE NOTE IN MAIN PROGRAM. 

C 

C CALL CMSCMD ( ' VMFCLEAR ',16,IRT) 

C 

CALL CLEAR 

RETURN 

END 

C02SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 

SUBROUTINE READAL (N, ALF) 

CALLED FROM VARIOUS ROUTINES 

C SUBROUTINE TO READ THE INPUT FROM USER 
C DO SOME VALIDITY CHECKING 
C 

C N - 1 ALPHABETIC 1 CHARACTER 

C N - 2 ALPHABETIC N CHARACTERS 

C N - 3 ALPHABETIC N CHARACTERS NO CHECKING FOR Q, 

C AND CONVERT TO LOWER CASE. CALLED VIA ENTRY READLC 

C 

COMMON/UNITS/ MODU, INPEKO, ISCRCH, SINDA 
C 

CHARACTER* {* ) ALF, ALF 2 

CHARACTER* 1 ALFIN (25*), ALFLC(25), INTLO, INTHI 
CHARACTER* 25 ALPHA, ALOWC 

C 

EQUIVALENCE (ALPHA, ALFIN (1 )) , (ALOWC , ALFLC (1 ) } 

C 

DATA INTLO/' 0'/, INTHI/' 9'/ 

C 

M-N 

GO TO 10 

ENTRY READLC (ALF, ALF 2) 

C READ N ALPHABETIC CHARACTERS, NO CHECK FOR Q, CONVERT TO LOWER CASE. 
M-3 

10 GO TO (1 00, 200, 200) , M 
C 1 CHARACTER ALPH INPUT 
100 READ (5, 1001) ALFIN 

WRITE (INPEKO, 1001) ALFIN (1) 

IF (ALFIN (1) .EQ. ' Q' ) GO TO 999 
ALF-ALFIN (1) 


CRY02110 

CRY02120 

CRY021 30 

CRY02140 

CRY021 50 

CRY021 60 

CRY02170 

CRY02180 

CRY021 90 

CRY02200 

CRY02210 

CRY02220 

CRY0 2230 

CRY022 40 

CRY02250 

CRY022 60 

CRY02270 

CRY02280 

CRY0 22 90 

CRY02300 

CRY02310 

CRY02320 

CRY02330 

CRY023 40 

CRY023 50 

CRY023 60 

CRY02370 

CRY02380 

CRY02390 

CRY02400 

CRY024 10 

CRY02420 

CRY02430 

CRY02440 

CRY0 24 50 

CRY024 60 

CRY02470 

CRY024 80 

CRY024 90 

CRY02500 

CRY02510 

CRY02520 

CRY02530 

CRY02540 

CRY02550 

CRY02560 

CRY02570 

CRY02580 

CRY025 90 

CRY02600 

CRY02610 

CRY02620 

CRY02630 

CRY02640 

CRY02650 

CRY02660 

CRY02670 

CRY02680 

CRY02690 

CRY02700 

CRY02710 

CRY0 27 20 

CRY027 30 

CRY027 40 

CRY02750 

CRY027 60 

CRY02770 

CRY02780 

CRY02790 

CRY02800 
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RETURN 


CRY02810 

200 CONTINUE 


CRY02820 

N CHARACTER ALPHABETIC, TEST THAT INPUT IS 

NOT BLANK 

CRY02830 

210 READ (5,1001) ALFIN 


CRY02B40 

IF (ALFIN (1 ) .EQ. 'Q' .AND. ALFIN (2) .EQ. ' 

' .AND. M .NE. 

3) THEN CRY02850 

GO TO 999 


CRY02860 

ENDIF 


CRY02870 

IF (ALPHA .EQ. ' f ) THEN 


CRY02880 

PRINT 2001 


CRY028 90 

GO TO 210 


CRY02900 

ENDIF 


CRY02910 

WRITE (INPEKO, 1001) ALFIN 


CRY02920 

ALF-ALPHA 


CRY02930 

IF (M .EQ. 3) THEN 


CRY02940 

call tolowc (25, a Iptia, alowc) 


CRY0295O 

ALF2-ALOWC 


CRY02960 

ENDIF 


CRY0297O 

RETURN 


CRY02980 

CRY0299O 

ENTRY READIN (INT, LL, LU) 


CRY03000 

READ INTEGER AND TEST UPPER AND LOWER BOUNDS 


CRY03010 

310 READ (5, 1001) ALFIN 


CRY03020 

IF (ALFIN (1) .EQ. 1 Q' ) GO TO 999 


CRY03030 

DO 315 1-1,25 


CRY03040 

IF (ALFIN (I ) .EQ. ' ' ) GO TO 315 


CRY03050 

IF (ALFIN (I) . LT . INTLO .OR. ALFIN (I) . GT . 

INTHI) THEN 

CRY03060 

PRINT 3001 , ALPHA, LL, LU 


CRY03070 

PRINT 3000 


CRY03080 

GO TO 310 


CRY030 90 

ENDIF 


CRY03100 

315 CONTINUE 


CRY031 10 

REWIND ISCRCH 


CRY031 20 

WRITE (ISCRCH, 1001) ALFIN 


CRY03130 

REWIND ISCRCH 


CRY03140 

READ (ISCRCH, *) INT 


CRY03150 

IF (INT .LT. LL .OR. INT .GT. LU) THEN 


CRY031 60 

PRINT 3001, INT, LL, LU 


CRY03170 

PRINT 3000 


CRY03180 

GO TO 310 


CRY031 90 

ENDIF 


CRY03200 

WRITE (INPEKO, *) INT 


CRY032 10 

RETURN 


CRY03220 

CRY03230 

ENTRY REAI)RE(VAL) 


CRY03240 

READ REAL NUMBER TEST FOR ALPHEBETIC CHARACTERS 

CRY03250 

410 READ (5, 1001 ) ALFIN 


CRY03260 

IF (ALFIN (1) , EQ. ' Q' ) GO TO 999 


CRY03270 

DO 415 1-1,25 


CRY03280 

IF (ALFIN (I ) .EQ. ' ' ) GO TO 415 


CRY032 90 

IF (ALFIN (I) .EQ. GO TO 415 


CRY03300 

IF (ALFIN (I ) .EQ. ' +' ) GO TO 415 


CRY03310 

IF (ALFIN (I ) .EQ. '-') GO TO 415 


CRY033 20 

IF (ALFIN ( I ) .EQ. ' E' ) GO TO 415 


CRY03330 

IF (ALFIN (I ) .LT. INTLO .OR. ALFIN (I) .GT. 

INTHI) THEN 

CRY03340 

PRINT 3002, ALPHA, ALFIN (I) , I 


CRY03350 

PRINT 3000 


CRY03360 

GO TO 410 


CRY03370 

ENDIF 


CRY03380 

415 CONTINUE 


CRY033 90 

REWIND ISCRCH 


CRY03400 

WRITE (ISCRCH, 1001) ALFIN 


CRY034 10 

REWIND ISCRCH 


CRY034 20 

READ (ISCRCH, *) VAL 


CRY034 30 

WRITE (INPEKO, *) VAL 


CRY034 40 

RETURN 


CRY034 50 
CRY034 60 

999 CALL CL: ARS 


CRY034 70 

PRINT 2015 


CRY03480 

READ (5, 1001) ALFIN 


CRY03490 

IF (ALFIN (1) .EQ. ' Q' ) THEN 


CRY03500 
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STOP 

ELSE 

REWIND MODU 
REWIND INPEKO 
CALL MAINPG 
ENDIF 

C FORMAT STATEMENTS 
C 


1001 FORMAT 
2001 FORMAT 
1 
2 

2015 FORMAT 
1 
2 
3 

3000 FORMAT 

3001 FORMAT 
1 

2 

3 

3002 FORMAT 
1 

2 

3 

4 

END 


(25A1) 

{/' *** ERROR* / 

' THE INPUT TYPED IN IS BLANK, IT MUST NOT BE BLANK.'/ 
' RETYPE THE LAST INPUT.*) 

DO YOU REALLY WANT TO QUIT CRYOTRAN? OR'/ 

GO BACK TO THE BEGINNING OF THE PROGRAM?'// 

TYPE Q TO QUIT CRYOTRAN,'/ 

OR TYPE Y TO GO BACK TO BEGINNING OF CRYOTRAN ') 
RE-ENTER THIS NUMBER.') 

*** ERROR'/ 

INPUT VALUE OUT OF RANGE, INPUT VALUE - ',A25/ 

THIS INPUT VALUE MUST BE AN INTEGER BETWEEN ',14, 

AND ' , 14) 

*** ERROR'/ 

INPUT VALUE CONTAINS AN ILLEGAL CHARACTER'/ 

THIS INPUT VALUE MUST BE A REAL NUMBER'/ 

THE INPUT VALUE - *,A25/ 

THE ILLEGAL CHARACTER IS ' , Al , ' AT POSITION ',12) 


(///' 


C03SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


SUBROUTINE DO JCL (COMAND) 

CALLED FROM MAIN {00) IN DAT 2 (61) INSERT (474) 

C SUBROUTINE TO EXECUTE VM SYSTEM JCL COMMANDS FROM INSIDE FORTRAN 
C THIS ROUTINE IS SYSTEM DEPENDENT; SEE NOTE IN MAIN PROGRAM. 

C 


CHARACTER* (*) COMAND 
CALL SYSCMD (COMAND, IRC) 

WRITE (6,*) 'JCL COMMAND - IRC- 
RETURN 
END 


, COMAND, IRC 


C04SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS5 


SUBROUTINE BLHDRS 
CALLED FROM 
CALLED FROM 
CALLED FROM 
CALLED FROM 
C SUBROUTINE 
C 
C 


SINTRU (4) 
NODES (44) 
CONDRS (46) 
SNBLKS (47) 

TO READ INFO FOR SINDA MODEL BLOCK HEADERS 
AND TO WRITE THE SINDA MODEL BLOCK HEADERS, OTHER BLOCK INFO 
AND END STATEMENTS. 


COMMON /REGION/ NTHETA, NBETAS, BETA, RIN, TVOL, ROUT (9) , 

REGNS (9) , NLAYRS (9) , TEMPS (9) , THICK (9) , 
i THKLAY (9) , MATRLS (9) , MATNMS (9) , RGNNMS (9) 

COMMON/UNITS/ MODU, INPEKO, ISCRCH, SINDA 
COMMON/TITL / TITLE, TITLE0 
COMMON/GEOMTY/ NTYP, NAN, GEOM (2 ) 


C 

LOGICAL REGNS, SINDA 
C 

CHARACTER* 16 MATNMS 
CHARACTER* 25 RGNNMS 
CHARACTER*8 GEOM 
CHARACTER* 50 TITLED 
CHARACTER* 80 TITLE 
CHARACTER* 40 TITL1, TITL2 
CHARACTER BLANK 
C 

EQUIVALENCE (TITLl , TITLE) , (TITL2, TITLE (41 : )} 
DATA BLANK/' '/ 

C 

RETURN 

C 


CRY03510 

CRY03520 

CRY03530 

CRY03540 

CRY035 50 

CRY035 60 

CRY03570 

CRY035B0 

CRY03590 

CRY03600 

CRY03610 

CRY0 3620 

CRY03630 

CRY03640 

CRY03650 

CRY03660 

CRY03670 

CRY0 3600 

CRY03690 

CRY03700 

CRY03710 

CRY03720 

CRY03730 

CRY03740 

CRY037 50 

CRY037 60 

CRY03770 

CRY03780 

CRY03790 

CRY03800 

CRY038 10 

CRY038 20 

CRY03830 

CRY03840 

CRY03850 

CRY038 60 

CRY03870 

CRY03880 

CRY03690 

CRY03900 

CRY03910 

CRY03920 

CRY03930 

CRY03940 

CRY03950 

CRY03960 

CRY03970 

CRY03980 

CRY03990 

CRY04000 

CRY04010 

CRY04020 

CRY0 4030 

CRY04040 

CRY04050 

CRY04060 

CRY0 4070 

CRY04080 

CRY040 90 

CRY04100 

CRY041 10 

CRY041 20 

CRY041 30 

CRY041 40 

CRY041 50 

CRY04160 

CRY04170 

CRY04180 

CRY041 90 

CRY04200 


153 


C04AEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE 

C 

ENTRY RDTITL 

C READ TITLE FOR SINDA BLOCK 0 

C 

C 

C GET THE TITLE LINE 
CALL CLEARS 

9 PRINT 1998 

READ (5, 1001, ERR-10, END-10) TITLE 
WRITE ( INPEKO, 1001) TITLE 
RETURN 
C 

10 PRINT 1111 

1111 FORMAT (' ERROR MADE IN INPUTTING THE TITLE, TRY AGAIN') 
GO TO 9 

C04BEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEKEEEEEEEEEEEEEE 
ENTRY BLOTTL 
C 

C BLOCK 0, ID BLOCK 
C 

C WRITE BLANK CARD, ID BLOCK, NODE BLOCK TITLE CARDS 

C 

WRITE (MODU, 2001 ) 

WRITE (MODU, 20011) 

WRITE (MODU, 20012) GEOM (NTYP) , TITLE0 
WRITE (MODU, 20013) BETA 
WRITE (MODU, 2002) TITL1, TITL2 
WRITE (MODU, 3000) 

RETURN 

C 

C04CEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE 
ENTRY BL1TTL 

C WRITE TITL FOR BLOCK 1, NODE DATA BLOCK 
WRITE (MODU, 2101) 

WRITE (MODU, 2102) MATNMS (9) 

RETURN 

C 

C04DEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE 
ENTRY BL2TTL 

C WRITE TITL FOR BLOCK 2, SOURCE DATA BLOCK 
WRITE (MODU, 2201) 

RETURN 

C04EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE 
ENTRY BL3TTL 

C WRITE TITL FOR BLOCK 3, CONDUCTOR DATA BLOCK 
C 

WRITE (MODU, 2301) 

RETURN 

C04FEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE 
ENTRY BL4TTL 

C WRITE TITL FOR BLOCK 4, CONSTANTS DATA BLOCK 
WRITE (MODU, 2401) 

RETURN 

C 

C04GEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE 
ENTRY BL5TTL 

C WRITE TITL FOR BLOCK 5, ARRAY DATA BLOCK 
WRITE (MODU, 2501) 

RETURN 

C04HEEEEEEEEEEEEEEEEEE£EFEEEEKEEEEEEEEEEEEEEEEEKEEEEEEEEEEKKE 
ENTRY BL6TTL 

C WRITE TITL FOR BLOCK 6, EXECUTION DATA BLOCK 
C 

WRITE i MODU, 2601 ) 

RETURN 

CO 4 1 EEEEEEEEELEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE 
ENTRY BL7TTL 

C WRITE TITL FOR BLOCK 7, VARIABLES 1 BLOCK 
WRITE (MODU, 2701) 


CRY04210 

CRY04220 

CRY04230 

CRY04240 

CRY042 50 

CRY04260 

CRY04270 

CRY04280 

CRY04290 

CRY04300 

CRY04310 

CRY04320 

CRY04330 

CRY04340 

CRY04350 

CRY04360 

CRY04370 

CRY04380 

CRY043 90 

CRY044Q0 

CRY04410 

CRY04420 

CRY04430 

CRY04440 

CRY044 50 

CRY04460 

CRY044 70 

CRY04480 

CRY044 90 

CRY04500 

CRY04510 

CRY04520 

CRY04530 

CRY04540 

CRY04550 

CRY04560 

CRY04570 

CRY04580 

CRY045 90 

CRY04600 

CRY04610 

CRY04620 

CRY04630 

CRY04640 

CRY04650 

CRY04660 

CRY04670 

CRY04680 

CRY04690 

CRY04700 

CRY04710 

CRY04720 

CRY04730 

CRY04740 

CRY047 50 

CRY047 60 

CRY04770 

CRY04780 

CRY047 90 

CRY04800 

CRY048 10 

CRY048 20 

CRY04830 

CRY0 4840 

CRY04850 

CRYO40 60 

CRY04870 

CRY04880 

CRY04890 

CRY04900 
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RETURN 

C 

C04JEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE 

ENTRY BL8TTL 

C WRITE TITL FOR BLOCK B, VARIABLES 2 BLOCK 
WRITE (MODU, 2801) 

RETURN 

C04KEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE 

ENTRY BL9TTL 

C WRITE TITL FOR BLOCK 9, OUTPUT BLOCK 
C 

WRITE (MODU, 2901 ) 

RETURN 

C04LEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE 

ENTRY BLKEND 

C ENTRY TO WRITE END — FOR END OF BLOCK. 

C 

WRITE (MODU, 3000) 

RETURN 

CO 4MEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEKEE 

C WRITE END OF DATA LINE 
C 

ENTRY ENDDAT 
WRITE (MODU, 3001) 

RETURN 

C 

C FORMAT STATEMENTS 
C 

1001 FORMAT (A80) 

C 

1998 FORMAT {/// # NOW A TITLE FOR THIS PROBLEM.' / / 

1 ' THE TITLE LINE MAY BE UP TO 80 CHARACTERS LONG . ' / 

2 ' TYPE IN THE TITLE . ' ) 

C 

2001 FORMAT (8QX / 

1 7X, ' BCD 3THERMAL LPCS' ) 

20011 FORMAT ('C' , 6X, * REM THIS SINDA MODEL WAS GENERATED BY CRYOTRAN' 

20012 FORMAT (' C' , 6X, 'REM ',A8,' ',A50) 

20013 FORMAT (' C' , 6X, 'REM # ,10X,' WEDGE ANGLE-BETA - # ,F4.1,' RADIANS') 

2002 FORMAT (7X, 'BCD 9',A40/7X, 'BCD 9',A40) 

2101 FORMAT (7X, 'BCD 3NODE DATA ') 

2102 FORMAT (/X, 'REM NODE TEMPERATURES ARE IN (DEG ',A1,')'/ 

1 7X, 'REM DIMENSIONS ARE IN (IN.), TIME IS IN (SECS)') 

2201 FORMAT (7X, 'BCD 3SOURCE DATA ') 

2301 FORMAT (7X, 'BCD 3CONDUCTOR DATA') 

2401 FORMAT (7X, 'BCD 3CONSTANTS DATA ') 

2501 FORMAT (7X, 'BCD 3ARRAY DATA ') 

2601 FORMAT (7X, 'BCD 3EXECUTI ON ') 

2701 FORMAT (7X, 'BCD 3VARIABLES 1') 

2801 FORMAT (7X, 'BCD 3VARIABLES 2') 

2901 FORMAT (7X, 'BCD 30UTPUT CALLS') 

3000 FORMAT (7X, 'END') 

3001 FORMAT {7 X, ' BCD 3 END OF DATA') 

END 

C1SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 

SUBROUTINE INITAL 

CALLED FROM MAIN * 00 > 

C SUBROUTINE TO INITIALIZE COMMON DATA BLOCKS 
C 

COMMON/TITL / TITLE, TITLEO 
COMMON /GEOMTY/ NTYP, NAN, GEOM (2) 

COMMON/UNITS/ MODU, INPEKO, ISCRCH, SINDA 

COMMON /REGION/ NTHETA, NBETAS, BETA, RIN, TVOL, ROUT (9) , 

1 REGNS (9) , NLAYRS (9) ,TEMPS (9) ,THICK(9) , 

2 THKLAY (9) ,MATRLS (9) , MATNMS (9) , RGNNMS (9) 
COMMON/STUFF/ NHTT , P I , CONVY, CONVR, THETAO , DTHETA, NBASOS, ROUTSF, 

1 BNCOEF (2 ) 

COMMON /ULLAGE/ NLU L4 , NLUL5 , NTHU4 1 , R1NMHH, PCTFUL, RADULO, TVULFT, 

1 CT, LG (3) , LIQVAP (3) 

COMMON /HTXGRS/ NHX, HXTEMP (1 0) , NRHX ( 10 ) , NLHX (1 0) , 


CRY04910 
CRY04920 
CRY04930 
CRY04940 
CRY0495Q 
CRY04960 
CRYO 4970 
CRY04980 
CRY04990 
CRY05000 
CRY05010 
CRY05020 
CRY05030 
CRYO 5040 
CRYO 5050 
CRYO 50 60 
CRYO 5070 
CRY05080 
CRYO 50 90 
CRY051 00 
CRY051 10 
CRY051 20 
CRYO 51 30 
CRY05140 
CRY05150 
CRYO 51 60 
CRYO 51 70 
CRY051 80 
CRY05190 
CRY05200 
CRY05210 
CRY05220 
CRYO 5230 
CRY05240 
CRYO 52 50 
CRY05260 
) CRY05270 
CRY05280 
CRY05290 
CRY05300 
CRY05310 
CRY05320 
CRY05330 
CRYO 53 40 
CRY053 50 
CRY05360 
CRYO 5370 
CRY05380 
CRY05390 
CRYO 54 00 
CRYO 54 1 0 
CRYQ54 20 
CRY05430 
CRY054 40 
CRYO 54 50 
CRY054 60 
CRY05470 
CRY0548Q 
CRY054 90 
CRY05500 
CRY05510 
CRY05520 
CRY05530 
CRY05540 
CRY05550 
CRY05560 
CRYO 5570 
CRY05580 
CRY05590 
CRYO 5600 
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1 NTHHX(IO) , LNGTHX (10) 

COMMON/ SUBRTS/ SPLIPT,. XCUT1 , XCUT2, VBLBL1 , VBLBL2 , OUTBLK 
C 

LOGICAL REGNS,SINDA 
LOGICAL SPLIPT 
C 

CHARACTER* 1 CT, LG 
CHARACTER* 6 LIQVAP 

CHARACTER* 6 XCUT1, XCUT2 , VBLBL1 , VBLBL2, OUTBLK 
CHARACTER* 8 GEOM 
CHARACTER* 1 6 MATNMS 
CHARACTER* 2 5 RGNNMS 
CHARACTER* 50 TITLEO 
CHARACTER* 80 TITLE 
C 

C SET UNIT NUMBER FOR MODU, MODEL OUTPUT UNIT. 

MODU" 10 
INPEKO- 9 
ISCRCH-3 5 
C 

C USE UNIT ISCRCH, <35) AS A SCRATCH FILE FOR INPUT TESTING 
C AND FORMAT CONVERSION IN SUBROUTINE READAL 
C 

C UNIT NO. 36 IS USED IN SUBROUTINES INSERT AND INDAT1 . 

C THIS UNIT IS USED TO READ DATA FROM A VM FILE, 

C USER WILL BE ASKED THE NAME OF THE FILE, PROGRAM THEN 

C DOES A FILEDEF ON THAT FILE, THEN OPENS THE FILE AS UNIT 36. 

C THE CLOSE IS DONE WHEN THE READ IS COMPLETED. 

C 

PI-3.14159265 
TITLEO-' ' 

TITLE -' 

NTHETA-0 

THETAO-PI/2. 

NBETAS-1 
BETA-1 . 

RIN-Q. 

DO 10 1*1, 9 
REGNS(I) -.FALSE. 

NLAYRS (I J -0 
MATRLS U ) "0 
ROUT (I } -0.0 
THICK ( I ) ”0.0 
TEMPS ( I ) 0.0 
MATNMS {I )-' 

RGNNMS (I)-' 

10 CONTINUE 
C 

BNCOEF (1) -0.0 
BNCOEF (2) -0.0 
C 

C INITIALIZE REGION NAMES IN ARRAY RGNNMS (I) 

RGNNMS {1 ) TANKWALL' 

RGNNMS {2) -'OUTSIDE LAYER 1' 

RGNNMS (3) -'OUTSIDE LAYER 2' 

RGNNMS (4} -'INSIDE TANK AT WALL' 

RGNNMS (5) -'INSIDE TANK AT CENTER' 

C 


CRY05610 
CRY05620 
CRY05630 
CRY05640 
CRY05650 
CRY05660 
CRY05670 
CRYO 5680 
CRYO 5690 
CRY05700 
CRYO 57 10 
CRY05720 
CRY05730 
CRY05740 
CRY057 50 
CRY057 60 
CRY05770 
CRY05780 
CRY05790 
CRY05800 
CRYO 58 10 
CRY05820 
CRY05830 
CRY058 40 
CRY05850 
CRY058 60 
CRYO 5870 
CRYO 5880 
CRY058 90 
CRY05900 
CRY05910 
CRYO 5920 
CRYO 5930 
CRY05940 
CRY05950 
CRY05960 
CRYO 5970 
CRY05980 
CRY05990 
CRY06000 
CRY06010 
CRY06020 
CRY06030 
CRY06040 
CRY06050 
CRY060 60 
CRYO 6070 
CRYO 6080 
CRY060 90 
CRY061 00 
CRYO 6110 
CRYO 61 20 
CRYO 61 30 
CRYO 6140 
CRYO 61 50 
CRY061 60 
CRYO 6170 
CRYO 61 80 


C INITIALIZE ULLAGE VARIABLES CRY06190 

C CRYO 6200 


LG (1 ) -' L' 

CRYO 62 10 

LG ( 2 ) - ' ' 

CRYO 62 20 

LG ( 3 } - ' G ' 

CRYO 62 30 

LIQVAP (1) LIQUID' 

CRY06240 

LIQVAP (2)-' ' 

CRYO 62 50 

LIQVAP (3) -'VAPOR' 

CRYO 62 60 

NLUL4-0 

CRY06270 

NLUL5-0 

CRY06280 

NTHU41-0 

CRYO 62 90 

PCTFUL-0 . 0 

CRYO 63 00 
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CT-' ' 

C 

C INITIALIZE HEAT EXCHANGER COMMON BLOCK TO 0 . 0 
C 

NHX-0 

DO 30 1-1, 10 
HXTEMP (I) -0.0 
NRHX(I) -0 
NLHX(I) -0 
NTHHX(I) -0 
LNGTHX (I)«0 
30 CONTINUE 
C 

C INITIALIZE SUBROUTINE NAMES COMMON BLOCK TO BLANKS 
C 

XCUT1-' ' 

XCUT2-' ' 

VBLBL1-' ' 

VBLBL2-' ' 

OUTBLK-' ' 

C 

GEOM (1 ) -' SPHERE' 

GEOM (2) CYLINDER 1, 

C 

RETURN 

END 

C2SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 

SUBROUTINE MENU1 

CALLED FROM MAIN < 00 > 

C THIS SUBROUTINE MAY NEED TO BE CHANGED AS 
C NEW CAPABILITIES ARE ADDED TO THE PROGRAM. 

C 

C MAIN MENU — MENU FOR PROBLEM TYPE — CALLED FROM MAIN 
C 

COMMON/UNITS/ MODU, INPEKO, ISCRCH, SINDA 
COMMON /GEOMTY/ NTYP, NAN, GEOM (2 ) 

C 

CHARACTER* B GEOM 
C 

LOGICAL SINDA, LTEST 
C 

DATA NTYPES /3/ 

C 

100 CALL CLEARS 
PRINT 2000 
200 PRINT 2001 
PRINT 2002 
PRINT 2003 
PRINT 2004 

CALL READ IN (NTYP, 1, NTYPES) 

SINDA- . TRUE . 

IF (NTYP .EQ. 3) SINDA- . FALSE . 

RETURN 
C FORMATS 

2000 FORMAT (//' WELCOME TO CRYOTRAN'/ 

1 ' YOU WILL BE PROMPTED FOR ALL NECESSARY INPUT.'/ 

2 ' READ THE INSTRUCTIONS CAREFULLY.'/ 

3 ' TYPE IN THE INPUT DATA CAREFULLY TO AVOID TROUBLE,' 

4 ' YOU MAY QUIT THE PROGRAM AT ANY INPUT PROMPT BY', 

5 ' TYPING A "Q" (QUIT) ' ) 

2001 FORMAT (///' ENTER THE NUMBER FOR THE DESIRED PROBLEM TYPE'/ 

1 ' THE PROBLEM TYPES ARE AS FOLLOWS:') 

2002 FORMAT (/' 1 - THERMO/THERMAL SINDA ANALYSIS ON A SPHERE.') 

2003 FORMAT (' 2 - THERMO/THERMAL SINDA ANALYSIS ON A CYLINDER.') 

2004 FORMAT (' 3 - RUN A PRESTORED ANALYSIS PROGRAM') 

2050 FORMAT (' ***** ERROR, THE PROBLEM TYPE YOU INPUT IS OUT OF RANGE' 


1 '***•* PROBLEM TYPE MUST BE FROM 1 TO ',13/ 

2 '*»*** RE-ENTER PROBLEM TYPE *****') 


END 

C3SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


CRY0 63 10 
CRY06320 
CRY0 6330 
CRY06340 
CRY0 63 50 
CRY06360 
CRY0 6370 
CRY06380 
CRY06390 
CRY06400 
CRY064 10 
CRY064 20 
CRY0 64 30 
CRY064 40 
CRY0 6450 
CRY0 64 60 
CRY0 64 70 
CRY0 64 80 
CRY06490 
CRY06500 
CRY06510 
CRY06520 
CRY06530 
CRY0 6540 
CRY06550 
CRYO 65 60 
CRY06570 
CRY06580 
CRY065 90 
CRY06600 
CRY06610 
CRYO 6620 
CRYO 6630 
CRYO 6640 
CRYO 6650 
CRYO 6660 
CRYO 6670 
CRY06680 
CRY06690 
CRY06700 
CRY06710 
CRY06720 
CRY06730 
CRY06740 
CRYO 67 50 
CRYO 67 60 
CRYO 6770 
CRY067 80 
CRY067 90 
CRYO 68 00 
CRYO 6810 
CRYO 6820 
CRYO 6830 
CRYO 68 40 
CRYO 68 50 
CRYO 68 60 
CRY06870 
/ CRYO 6660 
CRY06890 
CRYO 6900 
CRYO 6910 
CRY06920 
CRY06930 
CRYO 6940 
CRYO 6950 
/ CRYO 69 60 
CRYO 6970 
CRY06980 
CRYO 69 90 
CRY07000 
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SUBROUTINE MENU2 (NRUNON) 

CALLED FROM 
C 

C THIS SUBROUTINE WILL NEED TO BE CHANGED AS 
C NEW CAPABILITIES ARE ADDED TO THE PROGRAM. 


MAIN (00) 


MENU 2 ANALYSIS SUBROUTINES 


FOR NTYP, {FROM MENU1 ) , - 1,2; A SINDA MODEL WILL BE GENERATED. CRY07090 

NTYP = 1 (SPHERE) CRY07100 

NTYP- 2 (CYLINDER) CRY07110 

FOR NTYP - 3 NO SINDA MODEL GENERATED BY THIS PROGRAM. CRY071 20 

THE CURRENT ANALYSIS PROGRAMS ARE: CRY07130 

ANALT1 OR ANALT5 - 1 CRY07140 

A SINDA MODEL OF A 1 RADIAN WEDGE. CRY07150 

UP TO 5 REGIONS MAY BE DEFINED. CRY07160 

REGIONS 4 AND 5 ARE USUALLY LIQUID OR VAPOR CRY07170 

AND ARE FULLY NODALIZED WITH SINDA NODES. CURRENTLY CRY07160 

THESE REGIONS HAVE CONDUCTION CONNECTORS, BUT CRY07190 

CONVECTION CONNECTORS WILL BE ADDED SO THAT ONE MAY CRY07200 

HAVE CONDUCTION ONLY, CONVECTION ONLY, OR BOTH CRY07210 

CONDUCTION AND CONVECTION IN REGIONS 4 AND 5. CRY07220 

ANALT1 OR ANALT5 - 2 CRY07230 

A SINDA MODEL OF A 1 RADIAN WEDGE. CRY07240 

ONLY REGIONS 1, 2, AND 3 WILL BE NODALIZED WITH SINDA CRY07250 
NODES. REGIONS 4 AND 5 ARE NOT MODELED WITH SINDA CRY07260 

NODES, BUT ARE MODELED BY ANALYTICAL SUBROUTINES. CRY07270 

THESE SUBROUTINES ARE CALLED FROM THE EXECUTION AND CRY07280 

VARIABLES 1 AND 2 BLOCKS IN SINDA. CRY07290 

THE WRITER OF THESE ANALYTICAL ROUTINES IS SUPPLIED CRY07300 

WITH THE FOLLOWING COMMON BLOCKS AND ARRAYS. CRY07310 

COMMON/ US ER1/ NTHETA, NBETAS, NTUNIT, BETA, RIN, TNKVOL CRY07320 
COMMON/ USER 2/ TIMEO, DTIMEU, FFLOW, TLIQ, TGAS CRY07330 

COMMON/ INSA /SARIN (NN) , INSIDE TANK SURFACE AREA, INPUT CRY07340 
COMMON/OUTSA/SAROUT (NN) , OUTSIDE SURFACE AREA, INPUT CRY07350 
COMMON/ SURFT/TSURF (NN) , INSIDE TANK SURFACE TEMP, INPUT CRY07360 


COMMON/ BNDYT/TBDY (NN) , TANK LIQ OR VAP TEMP, OUTPUT 
COMMON/ HTRCO/HCOEF (NN) , HEAT TR COEFF, NOT SURE NEEDED 
COMMON/SURFG/ GSURF (NN) , TANK TO SURF G VALUE, OUTPUT 
COMMON/ SURF Q/QSURF (NN) , INSIDE SURF Q, OUTPUT 
WHERE NN IS THE DIMENSION NTHETA 


CRY07370 
CRY07380 
CRY073 90 
CRY07400 
CRY074 10 
CRY07420 


c 

PRESENTLY THE PROGRAM IS SETUP TO HANDLE UP TO 

15 ANALYSIS 


CRY07430 

c 

PROGRAMS (NAN) FOR EACH OF 

THE SIX (6) 

GEOMETRIES BELOW 


CRY074 40 

c 









CRY074 50 

c 

NTYP-1 

(SPHERE) 







CRY074 60 

c 

ANALT1 

- NAN- 1-1 5 

- SPHERE 

MODELED 

BY 

WEDGES, 

RADIAL MESH, 

2D 

CRY07470 

c 

ANALT2 

- NAN-15-30 

- SPHERE 

MODELED 

BY 

WEDGES, 

RADIAL MESH, 

3D 

CRY07480 

c 

ANALT3 

- NAN-31-45 

- SPHERE 

MODELED 

BY 

WEDGES, 

RECTANGULAR MESH, 

2D 

CRY074 90 

c 

ANALT4 

- NAN-46-60 

- SPHERE 

MODELED 

BY 

WEDGES, 

RECTANGULAR MESH, 

3D 

CRY07500 

c 









CRY07510 

c 

NTYP-2 

(CYLINDER) 







CRY07520 

c 

ANALT5 

- NAN- 1-15 

- CYLINDER WEDGE 

MODEL, 

RADIAL MESH, 

2D 

CRY07530 

c 

ANALT6 

- NAN=1 6 -30 

- CYLINDER WEDGE 

MODEL, 

RADIAL MESH, 

3D 

CRY07540 

c 









CRY07550 

c 

ANALNS 

— A CANNED 

ANALYSIS 

PROGRAM 

WITHOUT SINDA. 


CRY075 60 

c 









CRY07570 

c 

AN ALT 5, 

6 -- ARE CYLINDER MODELS, HAVING A MESH 

OF WEDGES 


CRY07580 


RADIALLY AND TOP TO BOTTOM, CRY07590 

A 3D MODEL WOULD BE A SERIES OF WEDGES CIRCUMFERENTIALLYCRY0760Q 
WHERE USER CAN SPECIFY ANY COMBINATIONS OF CRY07610 

SPHERICAL ENDS CRY07620 

SQRT2 ELLIPTICAL ENDS CRY07630 

FLAT ENDS CRY07640 

OPEN ENDS CRY07650 

CRY07660 

THE GEOMETRY MAY BE DEFINED BY AS MANY AS 5 REGIONS AS FOLLOWS: CRY07670 

REGION 1. TANK WALL CRY07680 

2. A LAYER ON OUTSIDE OF TANK WALL; E.G. INSULATION CRY07690 

3. A 2ND LAYER OUTSIDE, ON TOP OF REGION 2. CRY07700 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 


c 


c 

c 

c 


c 


c 

c 

c 

c 

c 

c 

c 


4. THE FIRST LAYER INSIDE OF THE TANK, ADJACENT TO 
THE TANK WALL. (SEE DESCRIPTION BELOW) 

5. THE 2ND LAYER INSIDE OF THE TANK, MEASURED FROM 
LAYER 4 TOWARD THE CEWTeR OF THE TANK. 

(SEE DESCRIPTION BELOW) 

THE INSIDE OF THE TANK IS DETERMINED BY THE ANALYSIS ROUTINE. 
SOME ANALYSIS ROUTINES WILL HAVE THE INTERIOR OF THE TANK 
NODALIZED WITH SINDA NODES, SOME WILL NOT. THIS IS SPECIFIED 
BY THE VARIABLE REG45 . IF REG45 - TRUE, THE INTERIOR WILL BE 


CRY07710 
CRY07720 
CRY07730 
CRY07740 
CRYQ7750 
CRY077 60 
CRY07770 
CRY07780 
CRY07790 


a I 1 ML Vni\inoiiCi ■ - r 

NODALIZED; IF REG4S * FALSE, THE INTERIOR WILL NOT BE NODALIZED CRY07800 

• nn /^nVAOOn n 


nvL/nuAULiwf ^ ^ ■ *• * 

AND THE THERMODYNAMICS OF THE INTERIOR OF THE TANK WILL BE 
COMPLETELY MANAGED BY THE ANALYSIS SUBROUTINES. 

WHEN THE INSIDE OF THE TANK IS DEFINED, (NODALIZED) , IT MAY BE 
1 OR 2 REGIONS. THESE ARE DEFINED AS REGIONS 4 AND 5 . 

REGION 5 IS OPTIONAL. REGION 4 MAY BE DEFINED ALONE 
OR BOTH REGIONS 4 AND 5 MAY BE DEFINED. THIS MAY BE USED TO 
DEFINE 2 DIFFERENT MATERIALS INSIDE OF TANK, OR, IN ORDER TO 
HAVE TWO MESH SPACINGS OF A SINGLE MATERIAL INSIDE OF THE TANK 
IN THE RADIAL DIRECTION. 


REG45 IS A LOGICAL VARIABLE SUCH THAT, 

REG45 ( I, J) • .TRUE. IF THE CORRESPONDING ANALT(J)(I) IS AN 
ANALYSIS ROUTINE THAT WANTS THE INSIDE OF THE TANK (REGIONS 4 
TO BE NODALIZED WITH SINDA NODES. 

REG4 5 ( I, J) “ FALSE IF NO SINDA NODES ARE NEEDED 
ANALT( J) (I) . 

GLOBAL VARIABLES DEFINED IN COMMON STATEMENTS 

COMMON/UNITS/ MODU, INPEKO, ISCRCH, SINDA 
COMMON/TITL / TITLE, TITLEO 
COMMON /GEOMTY/ NTYP, NAN, GEOM (2 ) 

COMMON /REGION/ NTHETA, NBETAS, BETA, RIN, TVOL, ROUT (9) , 

1 REGNS (9> ,NLAYRS {9} , TEMPS (9) ,THICK(9) , 

2 THKLAY ( 9 ) , MATRLS { 9 ) , MATNMS ( 9 ) , RGNNMS ( 9 ) 
COMMON /SUBRTS/ SPLIPT, XCUT1 , XCUT2 , VBLBL1 , VBLBL2 , OUTBLK 

LOGICAL SPLIPT 
LOGICAL REGNS 

CHARACTER* 8 GEOM 
CHARACTER* 50 TITLEO 
CHARACTER* 80 TITLE 
CHARACTER* 16 MATNMS 
CHARACTER* 25 RGNNMS 

CHARACTER* 6 XCUT1, XCUT2 , VBLBL1 , VBLBL2, OUTBLK 

LOCAL VARIABLES 

LOGICAL SINDA 
LOGICAL REG45 (15, 6) 

LOGICAL SPECIN (15,2) 


CRY07810 
CRY07820 
CRY07830 
CRYO704O 
CRY078 50 
CRYO706O 
CRY07870 
CRY07880 
CRYO 78 90 
CRY07900 
CRY07910 
CRY07920 
CRY07930 
CRY07940 
CRY07950 
FOR THE CORRESPONDINGCRY07960 
CRY07970 


& 5 ), 


CRY07980 
CRY07990 
CRY08000 
CRY08010 
CRY08020 
CRY08030 
CRY0B040 
CRY06050 
CRY08060 
CRY08070 
CRY08080 
CRY080 90 
CRY08100 
CRY0B110 
CRY08120 
CRY08130 
CRY08140 
CRY081 50 
CRY081 60 
CRY06170 
CRY08180 
CRY081 90 
CRY08200 
CRYO 8210 
CRY08220 
CRY08230 


CHARACTER* 50 ANALT1 (15) , ANALT2 (15} , ANALT3 (15) , ANALT4 (1 5) 
CHARACTER* 50 ANALT5 (15) , AN ALT 6 (15) , ANALNS (15) 

CHARACTER* 6 EXEC 1 (15 , 6) , EXEC2(15,6), VBL1(15,6), 

1 VBL2(15,6), OUT (15, 6), MAINNM(15) 

CHARACTER* 1 INP 

DIMENSION NSRUNM (15) 

NTYP WILL BE - 1 (SPHERE), 2 (CYLINDER) OR 3 (NO SINDA) 
COMBINATION OF VARIABLES (NTYP AND NAN) WILL DETERMINE 
THE GEOMETRY AND MESH TO BE GENERATED. 

DATA FOR NTYP-1, SPHERE 

DATA ANALTl / '2D WEDGE WITH INSIDE OF TANK NODALIZED' , 

2 ' 2D WEDGE SHELL - NO NODES INSIDE OF TANK' , 

3 * 2D WEDGE SHELL - THICK WALL FILL ANALYSIS', 


CRY08250 
CRYO 82 60 
CRY08270 
CRY08280 
CRY08290 
CRY08300 
CRY08310 
CRY0B320 
CRY08330 
CRY08340 
CRY083 50 
CRYO 83 60 
CRY08370 
CRY08380 
CRY083 90 
CRY08400 
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c 

c 


c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 


c 


c 


c 


c 


G 12*' ' / 

DATA ANALT2/ 15*' '/ 

DATA ANALT3/ 15*' '/ 

DATA ANALT4/ 15*' '/ 

DATA NALT1/3/, NALT2/0/, NALT3/0/, NALT4/0/ 

DATA (SPECIN (I, 1) , 1-1, 15) /.FALSE., .FALSE., .TRUE., 12* .FALSE./ 
DATA FOR NTYP-2, CYLINDER 

DATA ANALT5/ ' 2D WEDGE WITH INSIDE OF TANK NODALI ZED' , 

2 '2D WEDGE SHELL - NO NODES INSIDE OF TANK', 

G 13*' '/ 

DATA ANALT6/ 15*' '/ 

DATA NALT5/2/, NALT6/0/ 

DATA {SPECIN (I, 2) , 1-1, 15)/ 15* .FALSE./ 

DATA STATEMENT FOR REGIONS 4 AND 5, REG4 5 {1 , N) , N-l , 2, 3, 4 {SPHERE) 

REG45 (1, N) ,N-5, 6 (CYLINDER) 

IF REGIONS 4/5 ARE NODAI.IZED WITH SINDA NODES, REG45-TRUE 
IF REGIONS 4/5 ARE NOT NODALIZED WITH SINDA NODES, REG4 5-FALSE 
DATA REG 4 5 / .TRUE., .FALSE., .FALSE., 12*. FALSE., 

2 15*. FALSE . , 

3 15* .FALSE . , 

4 15*. FALSE., 

5 .TRUE., .FALSE., 13*. FALSE., 

6 15*. FALSE./ 


NAMES OF ANALYSIS SUBROUTINES FOR SINDA RUNS TO BE CALLED FROM 
EXECUTION, VARIABLES, AND OUTPUT BLOCKS 

THESE ROUTINES ARE IN FILES ON THE VM COMPUTER AND ARE COPIED 
INTO THE BLOCKS {INTO THE MODEL) BY THE SYSTEM. THEY WILL THEN 
BE COMPILED WITH THE GENERATED SINDA ROUTINES AND EXECUTED. 
THEY ARE IN THE MODEL SO THE USER MAY MODIFY THEM IF DESIRED. 


DATA 

EXEC 1 / 

' ' , ' 

', ' THWSE1 ' t 

, 12* 

2 


15*' ', 



3 


15*' ', 



4 


15*' ', 



5 


' ' , ' 

', 13*' ', 


6 


15*' ' / 



DATA 

EXFC2/ 


' THWSE2' , 

, 12* 

2 


15*' 



3 


15*' 



4 


15*' 



5 


15*' ', 



6 


15*' ' 




DATA 

VB; i / 

' 

' , ' 

', ' THWSV1' , 12* 

2 


15*' 1 

' , 


3 


15*' 

' , 


4 


15*' 

' , 


5 


' 

' , ' 

', 13*' ', 

6 


15*' 

' / 


DATA 

VBL2 / 


/ 

'THWSV2' ,12*' 

2 


15*' ' 

/ 


3 


15*' - 

' , 


4 


15*' - 

t 


5 


' 

' , ' 

' , 13*' ' , 

6 


15*' 1 

r / 


DATA 

OUT / ’ 


* 

', ' THWSOU' , 12*' 

2 


15*' ‘ 

/ 


3 


15*' ‘ 

» 


4 


15*' 1 

’ , 


5 


' 

t 

', 13*' 

6 


15*' - 

' / 



CRY084 10 

CRY084 20 

CRY08430 

CRY08440 

CRY08450 

CRY08460 

CRY084 70 

CRY08480 

CRY084 90 

CRY08500 

CRY08510 

CRY08520 

CRY08530 

CRY08540 

CRY08550 

CRY08560 

CRY08570 

CRY08580 

CRY08590 

CRY08600 

CRY08610 

CRY08620 

CRY08630 

CRY08640 

CRY08650 

CRY08660 

CRY08670 

CRY08680 

CRY08690 

CRY08700 

CRY08710 

CRY08720 

CRY08730 

CRY08740 

CRY08750 

CRY08760 

CRY0B770 

CRY08780 

CRY087 90 

CRY08800 

CRY08810 

CRY08820 

CRY0B830 

CRY08840 

CRY088 50 

CRYO806O 

CRY08870 

CRY08880 

CRY088 90 

CRY08900 

CRY08910 

CRY08920 

CRY08930 

CRY08940 

CRY08950 

CRY0896Q 

CRY08970 

CRY08980 

CRY08990 

CRY0 9000 

CRY0 9010 

CRY09020 

CRY09030 

CRYO 9040 

CRY09050 

CRYO 9060 

CRYO 9070 

CRYO 9080 

CRY090 90 

CRY091 00 
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c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 


DATA STATEMENTS THAT NEED TO BE CHANGED WHEN A NEW PROGRAM OF 
NTYP - 3 IS ADDED TO THE SYSTEM. THAT IS A PROGRAM PRESTORED 
ON CRAY OR VM. 

DATA FOR NTYP-3 ; SPECIAL PROGRAMS 

DATA ANALNS/ 'NOVENT FILL' , 'CHILL TO TEMP', 'TARGET FOR NVFILL', 
1 ' SOLA-ECLIPSE' , 'CSAM', 10*' '/ 

DATA NALNS/5/ 


NAMES OF NOSINDA ANALYSIS 'MAIN' SUBROUTINES 
AND WHICH COMPUTER THEY ARE DESIGNED TO RUN ON. 

IF NSRUNM - 1 RUN ON CRAY 

2 RUN ON VM IN INTERACTIVE MODE, 

BY MEANS OF A SUBROUTINE CALL FROM 

3 RUN ON VM IN BATCH MODE, 

BY MEANS OF CALL TO SUB DOJCL. 


NOSIND. 


DATA MAINNM/' NVFILL' , 'CHILL', 'TARGET' 

2 ' SOLECI.' , ' CRCSAM' , 

3 10 *' '/ 

DATA NSRUNM/ 2, 2, 2, 1, 1, 10*0/ 


CALL CLEARS 
SPLIPT-. FALSE. 
PRINT 2001 
PRINT 2002 
IF(SINDA) THEN 


IF (NTYP .EQ. 

1) THEN 


IF (NALTl . 

, GT . 0) 

PRINT 

IF (NALT2 . 

. GT . 0) 

PRINT 

IF (NALT3 . 

, GT . 0) 

PRINT 

IF (NALT4 . 

, GT . 0) 

PRINT 

ENDIF 



IF (NTYP -EQ, 

, 2) THEN 

IF (NALT5 . 

.GT. 0) 

PRINT 

IF (NA1.T6 

.GT. 0) 

PRINT 


ENDIF 

ELSE 

PRINT 2003, (I 
ENDIF 
NRUNON-O 

CALL READIN (NAN, 
FOR NTYP-1 SPHERE 
MESHING 
2D 


, ANALT1 (I) , I “1 , NALT1 ) 


2003,(1 , ANALT5 (I) , 1-1 , NALT5) 

2003, (1+15, ANALT6 (I) ,I-1,NALT6) 


, ANALNS (I) , 1-1, NALNS) 


1, 60) 

ALL MODELS ARE WEDGES 
RAD - RADIALLY RECT - RECTANGULAR 
i- RAD 3D-RAD 2D-RECT 3D-RECT 


NAN 

NC WILL BE 

NANAL 

NPROG 


I I I 

- 1,2, . . . , 15 ; 1 6, 

0 , 

- 1 , 

-1,2,. ..,15 


II II I 

...,30;31, . . . , 4 5 ; 4 6 , ..., 60; 

1, 2, 3 

2, 3, 4 


FOR NTYP=*2 CYLINDER ALL MODELS ARE WEDGES 
2D-RAD 3D -RAD 


I 

NAN - 1,2, 

NC WILL BE - 
NANAL 

NPROG ”1,2, . 


I I I 

. . ., 15; 16, . . 30; 
0 , 1 

5 , 6 


NC=NAN/1 6 
NANAL-NCfl 

IF (NTYP .EQ. 2) NANAL-NANAL+4 
NP ROG-N AN-NC* 1 5 
PUT ANALTNAN INTO TITLE0 

IF (NANAL .EQ. 1) TITLEQ* ANALT1 (N PROG) 
IF (NANAL .EQ. 2) TITLED* ANALT2 (NPROG) 


CRY09110 
CRY09120 
CRY09130 
CRY091 40 
CRY09150 
CRY09160 
CRY0 9170 
CRY0 91 80 
CRY09190 
CRY09200 
CRY09210 
CRY0 9220 
CRY0 9230 
CRY09240 
CRY0 92 50 
CRY09260 
CRY09270 
CRY09280 
CRY0 9290 
CRY0 9300 
CRY09310 
CRY0 9320 
CRY0 9330 
CRY09340 
CRY0 93 50 
CRY093 60 
CRY09370 
CRY09380 
CRYO 93 90 
CRYQ9400 
CRY09410 
CRYO 94 20 
CRYO 9430 
CRY09440 
CRYO 94 50 
CRYO 94 60 
CRY094 70 
CRYO 94 80 
CRY094 90 
CRY09500 
CRY09510 
CRYO 95 20 
CRY09530 
CRY09540 
CRY09550 
CRYO 95 60 
CRY09570 
CRY09580 
CRY095 90 
CRY09600 
CRY09610 
CRYO 9620 
CRYO 9630 
CRY09640 
CRY09650 
CRYO 9660 
CRYO 9670 
CRY09680 
CRYO 96 90 
CRY09700 
CRYO 9710 
CRYO 97 20 
CRY09730 
CRYO 9740 
CRYO 97 50 
CRY09760 
CRYO 9770 
CRYO 97 80 
CRY09790 
CRYO 9800 
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IF (NANAL . EQ. 3) TITLE0-ANALT3 (NPROG) 

IF (NANAL .EQ. 4) TITLF0-ANALT4 (NPROG) 

IF (NANAL .EQ. 5) TITLE0-ANALT5 (NPROGJ 

IF {NANAL .EQ. 6) TITLF0-ANALT6 (NPROO) 

C SET BETA-1 RADIAN AND NBETAS-1 FOR VERSION 1 . 0 OF PROGRAM 
IF{NC .EQ. 0) THEN 
BETA-1.0 
NBETAS-1 
ENDIF 

IF(SINDA) THEN 

XCUT1-EXEC1 (NPROG, NANAL} 

XCUT2-EXEC2 (NPROG, NANAL) 

VBLBL1-VBL1 (NPROG, NANAL) 

VBLBL2-VBL2 (NPROG, NANAL) 

OUTBLK -OUT (NPROG, NANAL) 

SPLIPT-SPECIN (NAN, NTYP } 

ELSE 

XCUT1 -MAINNM (NAN) 

XCUT2-ANALNS (NAN) (1 : 6) 

VBLBL1-ANALNS (NAN) (7:12) 

ENDIF 

NRUNGN-1 

IF (NTYP .EQ. 3) NRUNC N-NSRUNM (NAN) 

C 

C INITIALIZE ARRAY REGNS T( .FALSE.; SET REGNS (4 ) FROM DATA REG45 
C 


REGNS (1) - . FALSE . 

IF(SINDA) REGNS (1) -.TRUE. 

REGNS (2) -.FALSE. 

REGNS (3) -.FALSE. 

REGNS (4) -REG45 (NPROG, NANAL) 

REGNS (5) -.FALSE. 

RETURN 

C FORMAT STATEMENTS 
1001 FORMAT (A 1) 

2001 FORMAT (///' CHOOSE THE ANALYSIS PROGRAM YOU WISH TO USE.') 

2002 FORMAT (' TYPE IN THE NUMBER OF THE DESIRED ANALYSIS ') 

2003 FORMAT (lb, 4X,A50) 

END 


C4SSSSSSSSSSSS;SSSSSSSSSSSSSSS;SSSSSSSSSSSSSSSSSSSSSSSSSSSSS 

SUBROUTINE SINTRJ 
CALLED FROM 

C SUBROUTINE ; O DEFINE THE GEOMETRIC REGIONS, THEN GENERATE 
C THE SINDA MODEL. 

C 


MAIN 


( 00 ) 


c 


COMMON/CFOMTY/ NTYP, NAN, GEOM (2) 


CHARACTER* B GEOM 

CALL GET THE TITLE L. NERDTITL (04) 

CALL RDTTTL 

CALL GET CRAY JCL INFO * 

CALL GET JCL (UNICOS) 

CALL WRITE CRAY JCL TO UNIT MODU 

CALL RITJCL 
CALL RITJC2 

CALL 

CALL REGN1 

CALL 

CALL RGN2T5 

CALL 

CALL BL0TTL 
C 

CALI. NODES 


GET JCL (41) 
RITJCL (41) 

REGN1 (42) 
RGN2T5 (43) 
BLOTTL (04) 
NODES (44) 


SRCDAT (45) 

CALL SEC DAT 

CONORS (46) 

CALL CONORS 

SNBLKS (47) 

CALL SNBLKS 


CRY09810 

CRY09820 

CRY09830 

CRY09840 

CRY09850 

CRY09860 

CRY09870 

CRY09880 

CRY09890 

CRY09900 

CRY09910 

CRY09920 

CRY09930 

CRY0 9940 

CRY09950 

CRY0 9960 

CRY09970 

CRY0 9980 

CRY0 9990 

CRY10000 

CRY10010 

CRY10020 

CRY10030 

CRY10040 

CRY10050 

CRY10060 

CRY10070 

CRY10080 

CRY10090 

CRY10100 

CRY10110 

CRY10120 

CRY10130 

CRY10140 

CRY10150 

CRY10160 

CRY10170 

CRY10180 

CRY10190 

CRY10200 

CRY1021 0 

CRY10220 

CRY10230 

CRY10240 

CRY10250 

CRY10260 

CRY10270 

CRY10280 

CRY102 90 

CRY10300 

CRY10310 

CRY10320 

CRY10330 

CRY10340 

CRY103 50 

CRY10360 

CRY10370 

CRY10380 

CRY10390 

CRY10400 

CRY10410 

CRY10420 

CRY104 30 

CRY10440 

CRY10450 

CRY10460 

CRY10470 

CRY10480 

CRY104 90 

CRY10500 
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c 

RITJC4 

(41) 

CRY1051Q 


CALL RITJC4 (0) 


CRY10520 

c 

GEOPLT 

(48) 

CRY10530 


CALL GEOPLT 


CRY10540 


RETURN 


CRY10550 


END 


CRY10560 

C41SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


CRY10570 


SUBROUTINE GET JCL (UNICOS) 


CRY10580 

CALLED FROM SINTRU 

(4) 

CRY105 90 

c 



CRY10600 

c 

SUBROUTINE TO GET JCL INFO FROM USER AND THEN TO WRITE THE 


CRY10610 

c 

JCL AS FILE 1 ON UNIT 10 (MODEL FILE) TO EXECUTE PROBLEM. 


CRY10620 

c 



CRY10630 

c 

GET CRAY UID, ETC. TO GENERATE CRAY JCL FILE 


CRY10640 

c 



CRY10650 

c 

IF A DIFFERENT COMPUTER SYSTEM IS USED THIS SUBROUTINE 


CRY10660 

c 

MUST BE CHANGED TO REFLECT THE PROPER JCL OF THE SYSTEM USED 

. 

CRY10670 

c 



CRY10680 

c 

THIS ROUTINE HAS 2 ENTI Y POINTS, 


CRY10690 

c 

THE DATA THEN CAN REMAIN LOCAL. 


CRY10700 

c 



CRY1071Q 


COMMON/UNITS/ MODU, NPEKO, ISCRCH, SINDA 


CRY10720 


COMMON /SUBRTS/ SPLIP' 1 , XCUT1 , XCUT2 , VBLBL1 , VBLBL2 , OUTBLK 


CRY10730 

c 



CRY10740 


LOGICAL SPLIPT 


CRY10750 


LOGICAL SINDA 


CRY10760 


LOGICAL UNICOS 


CRY10770 

c 



CRY10780 


CHARACTER* 6 XCUT1, XIUT2, VBLBL1 , VBLBL2 , OUTBLK 


CRY10790 


CHARACTER* 15 CRAUID, CRAAPW, JOBNAM 


CRY10800 


CHARACTER*15 UIDLC, APWLC, JNAMLC 


CRY10810 


CHARACTER* 15 FILNAM, FILNLC 


CRY10820 


CHARACTER* 2 NCBCD 


CRY10830 


CHARACTER*! YN 


CRY10840 


CHARACTER* 48 FMT JOB, FMTACC 


CRY10850 

c 



CRY10860 


DATA FMT JOB/' ("JOB, JN-' * , A7, " , T«" , 18, ' ' ,MFL-' ' , H, " ) 

' / 

CRY10B70 


DATA FMTACC/ ' <" ACCOUNT, AC-' ' , A15, * ' ,APW-' ' ,A15, " . " ) 


' /CRY10880 

c 



CRY10890 


101 CALL CLEARS 


CRY10900 


PRINT 2000 


CRY10910 


PRINT 2006 


CRY10920 


CALL READAL (1 , YN ) 


CRY10930 


UNICOS-. FALSE. 


CRY10940 


IF (YN , F.Q. 'U') UNICOS-. TRUE. 


CRY10950 


call clears 


CRY10960 


111 PRINT 2001 


CRY10970 


CALL READLC (CRAUID, l IDLC) 


CRY10980 


115 PRINT 2002 


CRY10990 


CALL READLC (CRAAPW,/ PWLC) 


CRY11QG0 


PRINT 2003 


CRY11010 


CALL READIN (KRATIM, 3 , 99999) 


CRY11020 


IF (KRATIM ,LE. 10) 1 RATI M- 60 


CRY11030 


KRAMFL-1 500000 


CRY11040 


IF (SINDA) THEN 


CRY11050 


PRINT 2004 


CRY11060 


CALL READIN (KRAMF1 , 1,4 000000) 


CRY11070 


ENDIF 


CRY11080 


IF (KRAMFL .LT. 1 500( 00) KRAMFL-1 500000 


CRY11090 


119 PRINT 2005 


CRY11100 


CALL READLC (JOBNAM, JNAMLC) 


CRY11110 


CALL CLEARS 


CRY11120 


IF (UNICOS) THEN 


CRY11130 


PRINT 1996, UIDLC, APWLC, KRATIM, KRAMFL, JNAMLC 


CRY111 40 


ELSE 


CRY11150 


PRINT 1996, CRAUID, CRAAPW, KRATIM, KRAMFL, JOBNAM 


CRY11160 


ENDIF 


CRY11170 


CALL READAL (1,YN) 


CRY11180 


IF (YN .EQ. * N' ) GO TO 101 


CRY11190 




CRY11200 


RETU RN 
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C41AEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE 

CRY11210 

C 

ENTRY TO WRITE THE FIRST PART OF CRAY JCL TO UNIT 10, 

FILE 1 

CRY11220 

CALLED FROM 

SINTRU (4 ) 

CRY11230 

CALLED FROM 

NOSIND (6) 

CRY1124Q 


ENTRY RITJCL 


CRY11250 


REWIND MODU 


CRY11260 


IF (UNICOS) THEN 


CRY11270 

C 

CRAY JCL FOR UNICOS, PART 1 OF FILE 


CRY11280 


WRITE (MODU, 3010) UlDLC, APWLC 


CRY11290 


WRITE (MODU, 3011) JNAMLC 


CRY11300 


WRITE (MODU, 3012) 


CRY11310 


WRITE (MODU, 3013) KRATIM 


CRY11320 


store-kramf 1 


CRY11330 


st ore- store/ 10 00 000 . 


CRY11340 


WRITE (MODU, 3014) store 


CRY11350 


WRITE (MODU, 3015) 


CRY11360 


IF (SINDA) THEN 


CRY11370 


WRITE (MODU, 3016) 


CRY113B0 


ELSE 


CRY11390 


WRITE (MODU, 3013) XCUT1 


CRY11400 


ENDIF 


CRY11410 


ELSE 


CRY11420 

C 

GENERATE CRAY JCL, (COS), (FILE 1 OF INPUT FILE) 


CRY11430 

C 

GENERATE JOB CARD 


CRY11440 

call 

nochrs (40) 

CRY11450 


CALL NOCHRS ( JOBNAM, ' JOBNAM' , 7, NC, NCBCD) 


CRY11460 


FMTJOB (13: 13) -NCBCD (1:D 


CRY11470 


WRITE (MODU, FMTJOB) JOBNAM, KRATIM, KRAMFL 


CRY11480 

C 

GENERATE ACCOUNT CARD 


CRY11490 

C 

GET USERID 


CRY11500 


CALL NOCHRS (CRAUID, ' USERID' , 15, NC, NCBCD) 


CRY11510 


FMTACC (17:18) -NC BCD (1:2) 


CRY11520 

C 

GET PASSWORD APW 


CRY11530 


CALL NOCHRS (CRAAPW, 'APW' , 1 5, NC, NCBCD) 


CRY11540 


FMTACC (29: 30) -NCBCD (1:2) 


CRY11550 


WRITE (MODU, FMTACC) CRAUID, CRAAPW 


CRY11560 


WRITE (MODU, 3003) 


CRY11570 


IF (SINDA) WRITE (MODU, 3004) 


CRY11580 


IF (SINDA) WRITE (MODU, 3005) 


CRY11590 


ENDIF 


CRY11600 


RETURN 


CRY11610 

c 



CRY11620 

c 

ENTRY POINT TO PUT L.AST PART OF CRAY COS JCL TO UNIT MODU, FILE 1 

CRY11630 

CALLED FROM 

SINTRU (4) 

CRY11640 

CALLED FROM 

NOSIND (6) 

CRY11650 


ENTRY RIIJC2 


CRY11660 


IF (UNICOS) THEN 


CRY11670 


ELSE 


CRYU680 


WRITE (MODU, 3006) 


CRY11690 


WRITE (MODU, 3007) 


CRY11700 


WRITE (MODU, 3008} 


CRY11710 

C 

END OF CRAY COS FILE 1 (JCL) GENERATION. 


CRY11720 


ENDIF 


CRY11730 


RETURN 


CRY11740 

C 



CRY11750 


ENTRY RITJC3 (NINPD, I ILNAM) 


CRY11760 

c 

INSERT THE UNICOS JCL feat STATEMENT) TO GET THE MODEL 

DATA. 

CRY11770 

c 

THE ACTUAL MODEL DATA WILL FOLLOW THIS LINE OF JCL. 


CRY11780 


IF (NINPD .EQ. 1) THEN 


CRY11790 


IF (FILNAM .NE. ' ') CALL TOLOWC (1 5, FILNAM, FI LNLC) 


CRY11800 


WRITE (MODU, 3017) FILNI.C, FILNAM 


CRY11810 


ENDIF 


CRY11820 


IF (NINPD .EQ. 2) WR TE (MODU, 30161) FILNAM 


CRY11830 


IF (NINPD .EQ. 3) WR CTE (MODU, 301 6?) FILNAM 


CRY11840 


RETURN 


CRY11850 

c 



CRY11860 


ENTRY RI F JC4 (NINPD) 


CRY11870 

c 

INSERT THE LAST PART OF UNICOS JCL FOR SINDA MODEL. 


CRY11880 

c 

FOR UNICOS THIS IS WRITTEN FOLLOWING THE MODEL DATA. 


CRY11890 


IF (UNICOS) THEN 


CRY11900 
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IF (SINDA) THEN 
WRITE (MODU, 3020) 

WRITE (MODU, 3021) 

ELSE 

IF (NINPD .GE. 2) THEN 
WRITE (MODU, 3020) 

ENDIF 

CALL TOLOWC (6, XCUT1, FILNLC) 

WRITE (MODU, 3023) FILNLC 
ENDIF 

WRITE (MODU, 3022) 

C END OF CRAY UNICOS JCL GENERATION FOR SINDA MODEL. 

ENDIF 

RETURN 

C FORMAT STATEMENTS 
1001 FORMAT (A15) 

THE CRAY JCL THAT WAS INPUT IS AS FOLLOWS:'/ 
USERID - ' , A1 5/ 

PASSWORE - ' , A15/ 

CPU TIME REQUEST - ',19, ' SECS.'/ 

MEMORY REQUEST - ',19,' words'/ 

JOB NAME - ' , A1 5// 

ARE THESE ALL CORRECT? TYPE Y OR N', 

OR Q TO QUIT') 

THIS TASK IS BEING SET UP FOR THE CRAY,'/ 

NOW INPUT NECESSARY CRAY INFO.') 

TYPE IN YOUR CRAY USERID.') 

TYPE IN YOUR CRAY PASSWORD.') 

TYPE IN NO. OF CRAY CPU SECONDS TO BE USED.'/ 

1 ' IF NUMBER OF SECONDS REQUESTED IS < 10, 60 WILL BE USED, 

2004 FORMAT (/' TYPE AMOUNT OF CRAY MEMORYTO BE REQUESTED,'/ 

1 ' IF AMOUNT REQUESTED IS < 1,500,000, 1,500,000 WILL 


1996 FORMAT {////' 
1 
2 

3 

4 

5 

6 
7 

2000 FORMAT (///' 

1 

2001 FORMAT (/' 

2002 FORMAT (////' 

2003 FORMAT (/' 


2 USED.') 

2005 FORMAT {/ ' 

1 

2006 FORMAT {//' 
1 


NOW GIVE YOUR JOB A NAME, TYPE IN THE NAME,'/ 
1-7 ALPHEBETIC CHARACTERS.') 

WHICH CRAY SYSTEM COS OR UNICOS'/ 

TYPE IN C OR U' ) 


FORMAT STATEMENTS TO GENERATE CRAY COS JCL 

3003 FORMAT (' ACCESS, DN^CRYOLI B, PDN-CRYOTRANLIB, ID>=CFTO, OWN=CRYOLIB. ' 

3004 FORMAT {' ACCESS, DN-SPROC, PDN-RUNSINDA, ID-SINDA, OWN-XXCRAY . ' ) 

3005 FORMAT (' RUNP RE .' / 'RUNEXEC.') 

it*********************************************'/ 

*'/ 

NORMAL JOB TERMINATION *' / 

*' / 

********* ***********»*************************' / 


3006 FORMAT (' 
1 

2 

3 

4 

5 

3007 FORMAT (' 
1 

2 

3 

4 

5 

6 


EXIT.' ) 

******* 


DUMP JOB. ' 
DEBUG. ' ) 


*********** 


BOMBED! !!!!!! 


******** 


3008 FORMAT {' /EOF. ' ) 


FORMAT STATEMENTS TO GENERATE CRAY UNICOS JCL 


3010 FORMAT (' # USER-' , A1 >, 3X, ' PW-' , A15) 

3011 FORMAT ( ' • QSUB -r ',A15, ' # 

3012 FORMAT ('I QSUB -eo * 

1 ' standard output' ) 

3013 FORMAT ('# QSUB -IT ',16,' 

3014 FORMAT ('# QSUB -1M ' f F4.1,'Mw 

3015 FORMAT (' # 

1 'set -x 

2 ' ja ' ) 

3016 FORMAT ('cat > mocel << EOF 


I jobname' ) 
t Combine; error and' , 

I CPU time' ) 

# Memory requested' ) 

# End NQS statements'/ 

# set echo' / 

» SINDA MODEL TO FOLLOW' ) 


CRY11910 
CRY11920 
CRY11930 
CRY11940 
CRY11950 
CRY1196Q 
CRY11970 
CRY119B0 
CRY11990 
CRY12000 
CRY12010 
CRY12020 
CRY12030 
CRY12040 
CRY12050 
CRY12060 
CRY12070 
CRY12080 
CRY12090 
CRY12100 
CRY12110 
CRY121 20 
CRY12130 
CRY12140 
CRY12150 
CRY1216Q 
CRY12170 
CRY12180 
CRY12190 
') CRY12200 
CRY12210 
BE CRY12220 
CRY12230 
CRY12240 
CRY12250 
CRY12260 
CRY12270 
CRY12280 
CRY12290 
CRY12300 
) CRY12310 

CRY12320 
CRY12330 
CRY12340 
CRY12350 
CRY12360 
CRY12370 
CRY12380 
CRY12390 
CRY12400 
CRY12410 
CRY12420 
CRY124 30 
CRY12440 
CRY12450 
CRY12460 
CRY12470 
CRY12480 
CRY12490 
CRY12500 
CRY12510 
CRY12520 
CRY12530 
CRY12540 
CRY12550 
CRY12560 
CRY12570 
CRY12580 
CRY12590 
CRY12600 
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30161 FORMAT (' cat > model << EOF f DATA FROM VM, FN FT FM- ',A15) 

30162 FORMAT {'cat > model << EOF f DATA FROM THE TERMINAL') 

3017 FORMAT ('cat $HOME/ ' r al 5, ' >> model # DATA FROM CRAY, FILENAME- ' 

1 A15 ) 

3018 FORMAT ('f## This ',A6,' file, (model ) , was generated by CRYOTRAN.' 

3020 FORMAT ('EOF' ) 

3021 FORMAT {' cossinda model') 

3022 FORMAT (' ja -self I GET ACCOUNTING INFO') 

3023 FORMAT {' /space/cryo lib/' ,A6, ' model') 

END 

C4 11 ssssssssssssssssssssssssssssssssssssssssssssssssssssssss 

SUBROUTINE NOCHRS (STRING, SNAME, NOK, NC, NCBCD) 

CALLED FROM GETJCL (41) 

CALLED FROM NODES (44) 

C 

CHARACTER* 1 BLNK, STRING (15) 

CHARACTER* 2 NCBCD, NUMS(15) 

CHARACTER*? SNAME 
C 

DATA BLNK/' '/ 

DATA NUMS/'l ','2 ','3 ','4 ','5 ','6 ','7 ','8 ','9 
1 '10' # '11','12' # '13','14','15'/ 

C 

200 N-0 

DO 201 I -1,15 

IF (STRING { I) .EQ. BLNK) GO TO 220 
N-N+l 

201 CONTINUE 

220 IF (N .LE. 0 .OR. N .GT. NOK) THEN 

IF (N .LE. 0 ) PRINT 2001,CRPRM, CRPRM 
IF (N .GT. NOK) PRINT 2003, CRPRM, CRPRM 
PRINT 2002, CRPRM, NOK 
READ (5, 1001) STRING 
WRITE(INPEKO, 1001} STRING 
GO TO 200 
ENDIF 
NC-N 

NCBCD-NUMS <N ) (1:2) 

RETURN 

C ENTRY INTO THIS SUBROUTINE TO CONVERT AN INTEGER TO CHARACTER FORM 
ENTRY NHCD (NC, NCBCD) 

I F (NC .OF.. 1 .AND. NC . LE. 15) THEN 
NCBCD-NUMS (NC) 

ELSE 

NCBCD” BLNK 
ENDIF 



RETURN 





1001 

FORMAT ( 1 5A1 ) 





2001 

FORMAT (' CRAY 

A7, 

' IS 

BLANK, MUST HAVE A NON-BLANK 

2002 

FORMAT (' TYPE 

IN ', 

A7, ' 

; UP TO 

',12,' CHARACTERS') 

2003 

FORMAT {' CRAY 

A7, 

' IS 

TOO LONG, 

MUST BE ' ,A7, 


1 ' CHARACTERS OR LESS' ) 

END 

C412SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
SUBROUTINE TOLOWC (NN, ALF, ALFLOW) 

CALLED FROM GETJCL (41) 

C SUBROUTINE TO CONVERT ALPHABETIC DATA TO LOWER CASE 
CHARACTER * (*) ALF, ALFLOW 
CHARACTER* 1 ALFIN (25), ALFLC(25) 

CHARACTER* 25 ALPHA, ALOWC 
C 

EQUIVALENCE (ALPHA , ALFIN (1 )) , (ALOWC, ALFLC (1 ) ) 

C 

ALPHA-ALF 

DO 220 1-1 , NN 
NCHARP-ICHAR (ALFIN (I) ) 

I F (NCHARP .LT. 193 .OR. NCHARP .GT. 233) THEN 
ALFLC (I) -ALFIN (I) 

ELSE 

NC HARP "NCHARl - 64 


CRY12610 
CRY12620 
, CRY12630 
CRY12640 
) CRY12650 
CRY12660 
CRY12670 
CRY12680 
CRY12690 
CRY12700 
CRY12710 
CRY12720 
CRY12730 
CRY12740 
CRY12750 
CRY12760 
CRY12770 
CRY12780 
CRY12790 
CRY12800 
CRY12610 
CRY12820 
CRY12830 
CRY12840 
CRY12850 
CRY12860 
CRY12870 
CRY12880 
CRY12890 
CRY12900 
CRY1291Q 
CRY12920 
CRY12930 
CRY12940 
CRY12950 
CRY12960 
CRY12970 
CRY12980 
CRY12990 
CRY13000 
CRY13010 
CRY13020 
CRY13030 
CRY13040 
CRY130 50 
CRY130 60 
CRY13070 
CRY13080 
CRY13090 
CRY13100 
CRY13110 
CRY13120 
CRY13130 
CRY131 40 
CRY131 50 
CRY131 60 
CRY13170 
CRY13180 
CRY131 90 
CRY13200 
CRY13210 
CRY13220 
CRY13230 
CRY13240 
CRY13250 
CRY13260 
CRY13270 
CRY13280 
CRY13290 
CRY13300 
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ALFLC (I) -CHAR (NCHARP ) 

ENDIF 

220 CONTINUE 
ALFLOW-ALOWC 
RETURN 
END 

C42SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


SUBROUTINE REGN1 

CALLED FROM SINTRU{4) 

C SUBROUTINE TO GET GEOMETRY FOR REGION 1. 

C REGION 1 IS TANK 
C 

COMMON /GEOMTY/ NTYP , NAN, GEOM (2 ) 

C 

CHARACTER* 8 GEOM 


CALL 

IF (NTYP . F.Q. 1) 

CALL 

SFEERE 

SPHERE 

(421) 

CALL 

CALL 

CYLNDR (NAN) 

CYLNDR 

(422) 

IF (NTYP . EQ. 2) 

CALL 



RGNGNL 

(423) 


CALL RGNGNL (1) 

RETURN 

END 






C4 23SSSSSSSSSSGSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


SUBROUTINE RGNGNL (NR) 

CALLED FROM 
CALLED FROM 

C SUBROUTINE TO INPUT INFO FOR EACH REGION. 

REGION WIDTH, TEMP, MATERIAL, NO. LAYERS THRU 


REGNl 

RGN2T5 


(42) 

(43) 


TEMPERATURES 


TEMPS (1-5) 
TEMPS (6) 
TEMPS (7) 
TEMPS (8) 
TEMPS (9) 


TEMP OF REGION 1-5 
OUTSIDE ATMOSPHERE TEMP 
OUTSIDE ATMOSPHERE TEMP 


INSIDE OF TANK WHEN REGNS (4) =FALSE 
TEMPERATURE UNITS DESIGNATOR, NTUNIT, SAVED IN MATRLS (9) 

AND THE VALUE OF THESE UNITS, {' F # OR ' R' ) , IN MATNMS ( 9) 

IF INPUT TEMPERATURES ARE TO BE DEG F MATRLS (9) - 1 
IF INPUT TEMPERATURES ARE TO BE DEG R MATRLS (9) - 2 


C DESIGNATOR FOR OUTSIDE BOUNDARY COEFFICIENTS WILL BE SAVE IN 
C NLAYRS (8 ) AND NLAYRS (9) FOR OUTSIDE TO BOUNDARY CONDUCTORS 

C 1 AND 2 RESPECTIVELY. 

C IF NLAYRS (8/9) - 1 BNCOEF(l/2) IS A CONVECTION CONDUCTOR 

C IF NLAYRS (6/9) - 2 BNCOEF(l/2) IS A RADIATION CONDUCTOR 

C IF EITHER OF THE ABOVE COEFFICIENTS IS A RADIATION CONDUCTOR 

C AND IF THE NTUNIT IS DEG R, THEN CHANGE ALL TEMPERATURES TO DEG 

C THOSE TO BE CHANGED: TEMPS (1-9) , HXTEMP(l-lO) 

C 

COMMON /REGION/ NTHETA, NBETAS, BETA, RIN, TVOL, ROUT (9) , 

1 REGNS (9) , NLAYRS (9) , TEMPS (9) , THICK (9) , 

2 TIIKLAY (9) , MATRLS (9) , MATNMS (9) , RGNNMS (9) 

COMMON /GEOMTY/ NTYP, NAN, GEOM (2 ) 

C 

LOGICAL REGNS 
C 

CHARACTER* 8 GEOM 
CHARACTER* 16 MATNMS 
CHARACTER*25 RGNNMS 
CHARACTER*! RF 

C 

C REMAINING INPUT FOR REGION 1, AND INPUT FOR REGIONS 2, 3, 4 AND 5. 

C 

100 IF (NR .GT. 1) CALL CLEARS 
PRINT 2000 , NR, RGNNMS (NR) 

NTHII-G 

IF (NR .GT. 1) THEN 

C THICKNESS (WIDTH) FOR REGIONS 2, 3, 4 AND 5 


CRY13310 
CRY13320 
CRY13330 
CRY13340 
CRY13350 
CRY133 60 
CRY13370 
CRY13380 
CRY13390 
CRY134 00 
CRY13410 
CRY13420 
CRY13430 
CRY13440 
CRY13450 
CRY13460 
CRY13470 
CRY134 80 
CRY13490 
CRY13500 
CRY13510 
CRY13520 
CRY13530 
CRY13540 
CRY13550 
CRY13560 
CRY13570 
CRY13580 
CRY13590 
CRY13600 
CRY1361Q 
CRY13620 
CRY13630 
CRY13640 
CRY13650 
CRY13660 
CRY13670 
CRY13660 
CRY13690 
CRY13700 
CRY13710 
CRY13720 
CRY13730 
CRY13740 
CRY13750 
CRY137 60 
CRY13770 
F.CRY13780 
CRY13790 
CRY13800 
CRY13810 
CRY13820 
CRY13830 
CRY1 3840 
CRY13850 
CRY138 60 
CRY13870 
CRY13880 
CRY13890 
CRY13900 
CRY13910 
CRY13920 
CRY13930 
CRY13940 
CRY13950 
CRY13960 
CRY13970 
CRY13980 
CRY13990 
CRY14000 
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ORIGINAL PAGE IS 
OF POOR QUALITY 


IF (NR .EQ. 5) THEN 

THICK ( 5) -RIN-THICK (4 ) 

ROUT (5) -THICK (5) 

IF (THICK (5) . LE. 0.0) THEN 
PRINT 3003 

CALL READIN(IGO / 1, 2) 

IF (I GO ,EQ. 1) THEN 
NR-4 

GO TO 100 
ENDIF 

IF (I GO . EQ. 2) THEN 
REGNS (5) -.FALSE. 

RETURN 
ENDIF 
ENDIF 
GO TO 200 
ENDIF 

IF (NR .EQ. 4) THEN 
ROUT (4) -RIN 
IF (REGNS {5 } ) THEN 

PRINT 2005, GEOM(NTYP) , GEOM (NTYP) , GEOM (NTYP) , RIN 
ELSE 

TH ICK (4) -RIN 
GO TO 200 
ENDIF 
ENDIF 

C DOES USER WANT TO INPUT REGION THICKNESS OR LAYER THICKNESS. 
C DETERMINE THIS THEN READ THE APPROPRIATE VALUE. 

150 PRINT 2007 , NR 

CALL READIN (NTHII, 1, 2) 

CALL CLEARS 
IF (NTHI I , EQ. 1) THEN 
PRINT 2001 , NR 
CALL READRE (THICK (NR) ) 

ENDIF 

IF (NTH II .EQ. 2) THEN 
PRINT 2008, NR 
CALL READRE (THKj,AY.(NR) ) 

ENDIF 

ENDIF 

C 

C GET NO. OF LAYERS, (NO. OF NODES THU THIS REGION) 

200 PRINT 2102, NR 

CALL READIN (NLAY, 1, 30) 

NLAYRS (NR) -NLAY 
ENLAY-NLAY 

C COMPUT EITHER THE LAYER THICKNESS OR THE REGION THICKNESS. 
IF (NTHII .LE. 1) THKLAY (NR) -THICK (NR) /ENLAY 
IF (NTHII .EQ. 2) THICK (N R) -THKLAY (NR) * EN LA Y 
IF (NR . EQ. 2) ROUT (2 ) -ROUT (1 ) +THICK { 2) 

IF (NR . LQ. 3) ROUT (3) -ROUT (2) +THICK (3) 

IF (NR . EQ. 4) THEN 

IF (THI CK (4 } .GT. RIN) THEN 
PRINT 3002, RIN 
GO TO 150 
ENDIF 
ENDIF 

C GET MAX RADIUS OF THE MODEL, — STORE IT IN ROUT (6) 

IF (ROUT (NR) .GT. ROUT (6)) ROUT ( 6 ) -ROUT (NR) 

C 

C NOW GET INITIAL TEMPERATURE FOR THIS REGION 
IF (NR . EQ. 1) THEN 
45 PRINT 2006 

CALL READALU, k-") 

I F (RF .NE. ' R' .AND. RF .NE. ' F' ) THEN 
CAL!. CLEARS 
PRINT 3001 
GO TO 45 
ENDIF 

MATRIX (9) -1 


CRY14010 

CRY14020 

CRY14030 

CRY14040 

CRY14050 

CRY14Q60 

CRY14070 

CRY14080 

CRY14090 

CRY14100 

CRY14110 

CRY14120 

CRY14130 

CRY14140 

CRY14150 

CRY14160 

CRY14170 

CRY14180 

CRY14190 

CRY14200 

CRY14210 

CRY14220 

CRY14230 

CRY14240 

CRY14250 

CRY14260 

CRY14270 

CRY14280 

CRY14290 

CRY14300 

CRY14310 

CRY14320 

CRY14330 

CRY14340 

CRY14350 

CRY14360 

CRY14370 

CRY143R0 

CRY14390 

CRY14400 

CRY14410 

CRY144 20 

CRY14430 

CRY14440 

CRY14450 

CRY14460 

CRY1447Q 

CRY14480 

CRY14490 

CRY14500 

CRY14510 

CRY14520 

CRY14530 

CRY14540 

CRY14550 

CRY14560 

CRY14570 

CRY14580 

CRY14590 

CRY14600 

CRY14610 

CRY14620 

CRY14630 

CRY14640 

CRY14650 

CRY14660 

CRY14670 

CRY14680 

CRY14690 

CRY14700 
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c 

c 


MATNMS (9) F' 

IF <RF .EQ. 'R') THEN 
MATRLS (9) -2 
MATNMS (9>-'R' 

ENDIF 

ENDIF 

PRINT 2003 f MATNMS (9) 

CALL READRE (TEMPS (NR)) 

NOW GET MATERIAL NUMBER FOR PROPERTIES OF THIS REGION 
CALL CLEARS 


CALL 


CALL MATMNU (NR) 


MATMNU (4231) 


' , A25) 

',12,' (IN.)') 


RETURN 

1001 FORMAT (Al) 

1002 FORMAT (II) 

2000 FORMAT (///' INPUTTING DATA FOR REGION' , 1 3, ' , 

2001 FORMAT!/' TYPE IN THICKNESS (WIDTH) OF REGION 

2002 FORMAT!/' TYPE IN THE NO. OF LAYERS OF NODES THRU REGION', 12) 

2003 FORMAT!/' TYPE IN THE INITIAL TEMPERATURE FOR THIS REGION', 

1 ' (DEG ' ,A1, ' ) ' ) 

2005 FORMAT {/' REGION 4 IS PART OF THE DISTANCE INSIDE THE ' , A8 , 

1 ' ALONG THE RADIUS, ' / 

2 ' FROM THE INSIDE TANK WALL TOWARD THE CENTER OF THE ' , A8 , / 

3 ' WHERE RIN, (THE INSIDE ',A8,' RADIUS) «' f F8.3) 

2006 FORMAT!/' TEMPERATURES MAY BE IN DEGF OR DEGR IF NO', 

1 ' RADIATION IS PRESENT.'/ 

2 ' THE TEMPERATURES WILL BE INPUT IN WHAT UNITS F OR 

3 ' TYPE IN F OR R') 

2007 FORMAT (///' NOW NEED TO SPECIFY THICKNESS OF REGION' , 12/ 


R?' / 


1 
2 

3 

4 

5 

2008 FORMAT (/' 

1 ,12 

3001 FORMAT (/// 
1 

2 

3002 FORMAT (/// 
1 

2 ' 

3003 FORMAT (/// 
1 

2 

3 

4 

5 

END 


AND THE NUMBER OF LAYERS THRU THE REGION.'/ 

TO DEFINE THE REGION THICKNESS THE INPUT MAY BE:'/ 
1. the REGION THICKNESS (IN.)'/ 

OR 2. THE THICKNESS OF EACH LAYER IN THE REGION'/ 
TYPE IN 1 OR 2') 

TYPE IN THICKNESS (WIDTH) OF EACH LAYER OF REGION 
' (IN.)') 

ERROR IN TYPING TEMPERATURE UNITS,'/ 

THEY MUST BE F OR R' / 

TRY AGAIN') 

ERROR IN REGION 4 THICKNESS, INPUT VALUE IS TOO', 
LARGE'/' MUST BE < INSIDE RADIUS, RIN-',F7.1/ 

RETYPE REGION 4 THICKNESS') 


ERROR IN REGION 5 THICKNESS, REGION 5 IS DEFINED'/ 
BUT REGION 4 THICKNESS - RIN.'/ 

THE OPTIONS ARE: ' / 

1. CHANGE THE WIDTH OF REGION 4.'/ 

2. ELIMINATE REGION 5 FROM THE GEOMETRY.'/ 

TYPE IN 1 OR 2') 


1SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


RGNGNL (423) 
SPLINP (471) 


C423 

C SUBROUTINE MATMNU (NR) 

CALLED FROM 
CALLED FROM 

THIS ENTRY IS TO PRINT THE MATERIAL NAMES AS A MENU FOR THE USER 
TO PICK MATERIAL NUMBERS OF THE MODEL. 

THIS ROUTINE IS NOW IN EHABS LIB OF ROUTINES 

LEAVE THIS IN AS DOCUMENTATION ONLY; USE SUBROUTINE FROM FILE 
CRY02 . 

COMMENT OUT ALL LINES OF THIS ROUTINE 


THE NAMES AND MATERIAL NUMBERS IN THIS ROUTINE MUST CORRESPOND 
TO THE NAMES AND NUMBERS IN THE DATA BASE. 

THE MATERIAL NUMBERS CORRESPOND TO THE ORDER IN WHICH THE NAMES 
ARE LISTED IN THIS PROGRAM, IN VECTOR MENU. 

THE MATERIAL NUMBERS ARE: 

1XX LIQUID MATERIALS 


CRY14710 

CRY14720 

CRY14730 

CRY14740 

CRY14750 

CRY14760 

CRY14770 

CRY14780 

CRY14790 

CRY14800 

CRY14810 

CRY14820 

CRY14830 

CRY14840 

CRY14850 

CRY14860 

CRY14870 

CRY14880 

CRY14890 

CRY14900 

CRY1491Q 

CRY14920 

CRY14930 

CRY1494Q 

CRY14950 

CRY14960 

CRY14970 

CRY14980 

CRY14990 

CRY15000 

CRY15010 

CRY15020 

CRY15030 

CRY15040 

CRY15050 

CRY15060 

CRY15070 

CRY15080 

CRY15090 

CRY15100 

CRY15110 

CRY15120 

CRY15130 

CRY15140 

CRY15150 

CRY15160 

CRY15170 

CRY15180 

CRY15190 

CRY15200 

CRY15210 

CRY15220 

CRY15230 

CRY15240 

CRY15250 

CRY15260 

CRY15270 

CRY15280 

CRY15290 

CRY15300 

CRY15310 

CRY15320 

CRY15330 

CRY15340 

CRY15350 

CRY15360 

CRY15370 

CRY15380 

CRY15390 

CRY15400 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


2XX 

3XX 


SOLIDS 

GASEOUS MATERIALS 


THE ARRAY DATA FOR MATERIAL PROPERTIES ARE: 

ARRAY NO. DESCRIPTION SYMBOL 

1NXX SPECIFIC HEAT * DENSITY OF MATERIAL NXX Cp*RHO 

2NXX SPECIFIC HEAT OF MATERIAL NXX Cp 

3NXX DENSITY OF MATERIAL NXX RHO 

4NXX VISCOSITY OF MATERIAL NXX MU 

5NXX ENTHALPY OF MATERIAL NXX h 

6NXX THERMAL CONDUCTIVITY OF MATERIAL NXX k 

C43SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
SUBROUTINE RGN2T5 

CALLED FROM SINTRU(4) 

C SUBROUTINE TO DEFINE THE GEOMETRY FOR REGIONS 2, 3, 4 AND 5. 

INPUT FOR REGIONS 2 , 3, 4, 5 
REG 2 -- LAYER ON OUTSIDE OF TANK. 

REG 3 — 2ND LAYER ON OUTSIDE OF TANK, ON TOP OF LAYER 1 (REG 

REG 4 — INSIDE TANK, STARTING AT TANK WALL TOWARD CENTER. 
REG 5 — INSIDE TANK, STARTING AT REG 3 TO CENTER. 


CRY15410 
CRY15420 
CRY15430 
CRY15440 
UNITS CRY15450 

Btu/in3-degf CRY15460 
Btu/lbm-degf CRY15470 
lb/in3 CRY15480 

lb hr/in2 CRY15490 
Btu/lb CRY15500 

Bt u/hr-in-degfCRYl 5510 
CRY15520 


COMMON /REGION/ NTHETA, NBETAS, BETA, RIN, TVOL, ROUT (9) , 

1 REGNS { 9) , NLAYRS ( 9) , TEMPS (9) , THICK (9) , 

2 THKLAY (9) , MATRLS (9) , MATNMS (9) , RGNNMS (9) 

COMMON /HTXGRS/ NHX, HXTEMP (10) , NRHX ( 10) , NLHX (1 0) , 

1 NTHHX (10) , LNGTHX (10) 

COMMON/STUFF/ NHTT, PI, CONVY, CONVR, THETA0 , DTHETA, NBASOS, ROUTSF, 
1 BNCOEF (2) 

COMMON /ULLAGE/ NLUL4 , NLUL5, NTHU4 1 , RINMHH, PCTFUL, RADULG, TVULFT, 
1 CT, LG (3) , LIQVAP (3) 


PRINT 2301 
PRINT 2001 
CALL READAL ( 1, YN) 

IF (YN .EQ. * Y # ) THEN 
REGNS (3) -.TRUE. 

CALL RGNGNL (3 ) 

ENDIF 

C 

C GET REGION INPUT FOR REGIONS 4 AND 5 IF ANY 
400 IF (REGNS (4) ) THEN 
CALL CLEARS 
PRINT 2401 

CALL READIN (NINSR, 1, 2) 


CRY15530 
CRY15540 
CRY15550 
CRY15560 
CRY15570 
2) . CRY1 5580 
CRY15590 
CRY15600 
CRY15610 
CRY15620 
CRY15630 
CRY15640 
CRY15650 
CRY15660 
CRY15670 
CRY15680 
CRYX5690 
CRY15700 
CRY15710 


c 


CRY15720 

LOGICAL REGNS, VPCSHD 


CRY15730 

C 


CRY15740 

CHARACTER* 1 YN, CT, LG 


CRY15750 

CHARACTER* 6 LIQVAP 


CRY15760 

CHARACTER* 16 MATNMS 


CRY15770 

CHARACTER* 25 RGNNMS 


CRY15780 

C 


CRY15790 

NTUNIT-MATRLS (9) 


CRY15800 

C 


CRY15810 

C GET INPUT INFO FOR REGION 2, (INSULATION) IF ANY 


CRY15820 

C 


CRY15830 

CALL CLEARS 


CRY15840 

PRINT 2201 


CRY15850 

PRINT 2001 


CRY15860 

CALL READAL (1, YN) 


CRY15870 

IF (YN .EQ. 'Y') THEN 


CRY15880 

REGNS (2) -.TRUE. 


CRY15890 

CALL 

RGNGNL (423) 

CRY15900 

CALL RGNGNL (2) 


CRY15910 

ELSE 


CRY15920 

GO TO 400 


CRY15930 

ENDIF 


CRY15940 

C 


CRY15950 

C REGION 3 INPUT 


CRY15960 

CALL CLEARS 


CRY15970 


CRY15980 

CRY15990 

CRY16000 

CRY16010 

CRY16020 

CRY16030 

CRY16040 

CRY16050 

CRY16060 

CRY16070 

CRY16080 

CRY16090 

CRY16100 
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IF (NINSR « EQ. 2) REGNS (5) - .TRUE. 

CALL 

CALL RGNGNL (4) 

IF (MATRLS (4) . LT . 200) THEN 
CT-' L' 

ELSE 

IF {MATRLS (4) .LT. 300) THEN 
CT-' F' 

PCTFUL-100. 

ELSE 


RGNGNL (423) 


CT-' O' 

PCTFUL-0.0 

ENDIF 

ENDIF 

501 IF (REGNS (5)) THEN 
NR-5 

CALL RGNGNL (NR) 

IF (NR .NE. 5) GO TO 501 

509 CT-' ' 

510 IF (MATRLS (4) .LT. 200 .AND. MATRLS (5) .LT. 200) THEN 

CT-' L ' 

IF (MATRLS (4) .NE. MATRLS (5)) THEN 
CALL CLEARS 

PRINT 3006,MATNMS (4) , MATRLS (4) , MATNMS (5) , MATRLS (5) 
520 PRINT 3007 

CALL READ IN (N45, 0, 45 ) 

IF (N45 .EQ. 0) THEN 
ELSE 

IF (N45 .EQ. 4) THEN 
CALL MATMNU ( 4 ) 

GO TO 509 
ELSE 

IF (N45 .EQ. 5) THEN 
CALL MATMNU (5) 

GO TO 509 
ELSE 

IF (N45 .EQ. 45) THEN 
CALL MATMNU (4) 

CALL MATMNU (5) 

GO TO 509 
ELSE 

PRINT 3006 
GO TO 520 
ENDIF 
ENDIF 
ENDIF 
ENDIF 
ENDIF 
ENDIF 

C CHECK ON MATERIALS OF REGIONS 4 
C IF BOTH ARE LIQUID; SET CT«'I/, 

C THIS IS DONE ABOVE. 


AND 5. 

AND CALL ULLAGE ROUTINES. 


c 

IF BOTH ARE NOT LIQUID, THEY 

COULD 

BE: 

c 

1 . 

BOTH SOLID, 


CT-F, 

PCTFUL-100 

c 

2. 

BOTH VAPOR, 


CT-0, 

PCTFUL-0.0 

c 

3. 

1 LIQUID AND 1 

VAPOR, 

CT-M, 

PCTFUL-100 

C 

4. 

1 LIQUID AND 1 

SOLID, 

CT-M, 

PCTFUL-100 

c 

5. 

1 VAPOR AND 1 

SOLID, 

CT-M, 

PCTFUL-100 

c 


IF (CT .NE. 'L'; 

) THEN 





IF (MATRLS (4) 

.LT. 300 

.AND. 

, MATRLS (5) 

c 

BOTH 

SOLID 





CT-' F' 

PCTFUL-100. 0 
ELSE 

IF (MATRLS (4) 
BOTH VAPOR 

CT-' 0' 
PCTFUL-0.0 
ELSE 


.LT. 300) THEN 


.GE. 300 .AND. MATRLS (5) .GE. 300) THEN 


CRY16110 
CRY16120 
CRY16130 
CRY16140 
CRY16150 
CRY16160 
CRY16170 
CRY1618Q 
CRY16190 
CRY16200 
CRY16210 
CRY16220 
CRY16230 
CRY16240 
CRY16250 
CRY16260 
CRY16270 
CRY16280 
CRY16290 
CRY16300 
CRY16310 
CRY16320 
CRY16330 
CRY16340 
CRY16350 
CRY16360 
CRY16370 
CRY16380 
CRY16390 
CRY1 6400 
CRY16410 
CRY16420 
CRY16430 
CRY16440 
CRY16450 
CRY16460 
CRY16470 
CRY16480 
CRY16490 
CRY16500 
CRY16510 
CRY16520 
CRY16530 
CRY16540 
CRY16550 
CRY16560 
CRY16570 
CRY16580 
CRY16590 
CRY16600 
CRY16610 
CRY16620 
CRY16630 
CRY16640 
CRY16650 
CRY16660 
CRY16670 
CRY16680 
CRY16690 
CRY16700 
CRY16710 
CRY16720 
CRY16730 
CRY16740 
CRY16750 
CRY16760 
CRY16770 
CRY16780 
CRY16790 
CRY16B00 
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CALL 


MATERIALS ARE MIXED 
CT-'M' 

PCTFUL-100.0 

ENDIF 

ENDIF 

ENDIF 

ENDIF 


CHECK ON HEAT TRANSFER MECHANISMS FOR REGIONS 4 AND 5. 

PROMPT USER FOR I. CONDUCTION ONLY; 2. CONVECTION ONLY; 

OR 3. BOTH COND. AND CONV. 

THEN IF RESPONSE IS 2 OR 3, PROMPT USER FOR CONV. COEFFICIENTS; 

CIRCUMFERENTIAL AND/OR RADIAL 

NHTT-0 
CALL CLEARS 
PRINT 2402 

CALL READIN (NHTT,1, 3) 

IF (NHTT .GE. 2) THEN 
CONVY-O.O 
PRINT 2403 
PRINT 2001 
CALL READAL (1 , YN) 

IF (YN .EQ. ' Y' ) THEN 
PRINT 2404 
CALL READRE (CONVY) 

CONVY-CONVY/144 . 

ENDIF 
CONVR-O . 0 
PRINT 2405 
PRINT 2001 
CALL READAL (1, YN) 

IF (YN .EQ. * Y r ) THEN 
PRINT 2404 
CALL READRE (CONVR) 

CGNVR-CONVR/144. 

ENDIF 

ENDIF 

END OF IFBLOCK NHTT >- 2 


GET % 
IF 
IF 
IF C 


TANK IS FILLED# 
PCTFUL - 100 
PCTFUL 
< PCTFUL 


0 

100 


WHERE IS ULLAGE. 

CT-'F' TANK IS FULL NO ULLAGE 
CT-'O' TANK IS EMPTY, ALL NODES ARE VAPOR 
TANK HAS ULLAGE, WHERE IS IT? 

CT- # 1' 1-G ANALYSIS, FLAT ULLAGE ON TOP 

0-G ANALYSIS, ULLAGE AT CENTER 


CT 

CT 


0-G ANALYSIS, ULLAGE AT TOP W/ FILM 


IF {CT .EQ. ' L' ) THEN 


ULLINP (431) 


CALL ULLINP 
ENDIF 
ENDIF 

END OF IFBLOCK REGNS (4) STARTING AT IFN 400 


INPUT INFO ABOUT HEAT EXCHANGERS, 
CALL CLEARS 
NHX-0 
PRINT 2601 
PRINT 2001 
CALL READAL (1,YN) 

700 IF (YN .EQ. ' Y' ) THEN 
NHX-NHX+1 
CALL CLEARS 
PRINT 26021 
N-NHX 


MAX NO. - 10 


CALL 

710 


READHX (433) 


NERR-0 


CRY16B10 
CRY16820 
CRY16830 
CRY16840 
CRY16850 
CRY16860 
CRY16870 
CRY16BBQ 
CRY16890 
CRY16900 
CRY16910 
CRY16920 
CRY16930 
CRY16940 
CRY16950 
CRY16960 
CRY16970 
CRY16980 
CRY16990 
CRY17000 
CRY17010 
CRY17020 
CRY17030 
CRY17040 
CRY17050 
CRY17060 
CRY17070 
CRY17080 
CRY17090 
CRY17100 
CRY17110 
CRY17120 
CRY17130 
CRY17140 
CRY17150 
CRY17160 
CRY17170 
CRY17180 
CRY17190 
CRY17200 
CRY17210 
CRY17220 
CRY17230 
CRY17240 
CRY17250 
CRY17260 
CRY17270 
CRY17280 
CRY17290 
CRY17300 
CRY17310 
CRY17320 
CRY17330 
CRY17340 
CRY17350 
CRY17360 
CRY17370 
CRY173B0 
CRY17390 
CRY174 00 
CRY17410 
CRY17420 
CRY17430 
CRY17440 
CRY17450 
CRY17460 
CRY17470 
CRY17480 
CRY17490 
CRY17500 
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CALL READHX (N, NERR) 

CRY17510 



IF {NERR .GT. 0) THEN 

CRY17520 



YN - ' N' 

CRY17530 



GO TO 715 

CRY1754Q 



ENDIF 

CRY17550 



CALL CLEARS 

CRY17560 



PRINT 26081, NHX, NLHX (NHX) , NRHX (NHX) , NTHHX (NHX) , 

CRY17570 


1 

LNGTHX (NHX) , HXTEMP (NHX) 

CRY17580 



PRINT 2001 

CRY17590 



CALL READAL (1, YN) 

CRY17600 


715 

IF (YN .EQ. ' N' ) THEN 

CRY17610 



PRINT 26082, NHX 

CRY17620 



PRINT 2001 

CRY17630 



CALL READAL {1, YN} 

CRY17640 



IF (YN .EQ. ' Y' ) THEN 

CRY17650 



CALL CLEARS 

CRY17660 



GO TO 710 

CRY17670 



ELSE 

CRY17680 



NHX-NHX-1 

CRY17690 



GO TO 770 

CRY17700 



ENDIF 

CRY17710 



ENDIF 

CRY17720 

c 



CRY17730 

c 

TEST THIS NEW HX FOR : OTHER HX' S IN SAME REGION, 

CRY17740 

c 


OTHER HX' S IN SAME LAYER OF SAME REGION, 

CRY17750 

c 



CRY17760 



NHXM1-NHX-1 

CRY17770 


750 

DO 760 I-l , NHXM1 

CRY17780 



IF (NRHX (NHX) .EQ. NRHX (I)) THEN 

CRY17790 

c 


HX (NHX) IS IN SAME REGION AS HX ( I ) 

CRY17800 



IF (NLHX (NHX) .EQ. NLHX (I ) ) THEN 

CRY17810 

c 


HX (NHX) ALSO ON SAME LAYER AS HX(I) 

CRY17820 



NOVLAP -0 

CRY17B30 



IF (NTHHX (NHX) .LE. NTHHX (I) ) THEN 

CRY17840 

c 


HX (NHX) STARTS AT SMALLER THETA THAN HX(I) 

CRY17850 

c 


TEST FOR OVERLAP 

CRY17860 



IF (NTHHX (NHX) +LNGTHX (NHX) -1 ,GE . NTHHX (I)) THEN 

CRY17870 

c 


THESE 2 HX' S OVERLAP; ERROR 

CRY17880 

c 


WRITE ERROR MESSAGE AND CHANGE AN HX OR DELETE A HX. 

CRY17890 



NOV LAP -1 

CRY17900 



ENDIF 

CRY17910 



ELSE 

CRY17920 

c 


HX (NHX) STARTS AT LARGER THETA THAN HX(I) 

CRY17930 

c 


TEST FOR OVERLAP 

CRY17940 




CRY17950 



IF (NTHHX (I) +LNGTHX (I) -1 .GE. NTHHX (NHX) ) THEN 

CRY17960 

c 


THESE 2 HX' S OVERLAP; ERROR 2 

CRY17970 

c 


WRITE ERROR MESSAGE AND CHANGE AN HX OR DELETE HX. 

CRY17980 



NOVLAP -2 

CRY17990 



ENDIF 

CRY18000 



IF (NOVLAP .GT. 0) THEN 

CRY18010 



NHXEND-NTHHX (NHX) +LNGTHX (NHX) -1 

CRY18020 



IEND -NTHHX (I) +LNGTHX (I ) -1 

CRY18030 



IF (NOVLAP .EQ. 1)PRINT 3001 , NHX, I, NHX, NTHHX (NHX) , 

CRY18040 


1 

NHXEND, I , NTHHX (I) , IEND 

CRY18050 



IF (NOVLAP .EQ. 2)PRINT 3001, I, NHX, I, NTHHX (I) , IEND, 

CRY18060 


1 

NHX, NTHHX (NHX) , NHXEND 

CRY18070 



CALL READAL (1,YN) 

CRY18080 



IF (YN .EQ. 'Y') THEN 

CRY18090 


752 

PRINT 3002, NHX, I 

CRY18100 



CALL READIN (NNNHX, -9990, 99990) 

CRY18110 



IF (NNNHX .NE. NHX .OR. NNNHX .NE. I) THEN 

CRY18120 



PRINT 3003, NNNHX 

CRY18130 



GO TO 752 

CRY18140 



ELSE 

CRY181 50 



HNX-HNX-1 

CRY181 60 



GO TO 770 

CRY18170 



ENDIF 

CRY18180 



ELSE 

CRY18190 



YN-' N' 

CRY18200 
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N-NNNHX 


CRY18210 


GO TO 715 


CRY18220 


ENDIF 


CRY18230 


ENDIF 


CRY18240 


ENDIF 


CRY18250 


ENDIF 


CRY18260 


ENDIF 


CRY18270 


760 CONTINUE 


CRY18280 

c 



CRY18290 


770 IF (NHX . LT . 10) THEN 


CRY18300 


PRINT 26083 


CRY18310 


CALL READAL (1,YN) 


CRY18320 


IF (YN .EQ. ' Y' ) GO TO 700 


CRY18330 


ENDIF 


CRY18340 


ENDIF 


CRY18350 

c 

VAPOR COOLED SHIELDS INPUT 


CRY18360 

c 

9/29 88 


CRY18370 

c 

PRESENTLY THE VAPOR COOLED SHIELDS OPTION IS NOT IN 

THE SYSTEM. 

CRY18380 

c 

VAPOR COOLED SHIELDS ARE NOT WELL DEFINED. 


CRY1B3 90 

c 

HEAT EXCHANGERS CAN BE SUBSTITUTED FOR VAPOR COOLED 

SHIELDS 

CRY18400 

c 

FOR THE PRESENT. THIS CAPABILITY MAY BE WORKED ON AT A LATER DATE. 

CRY18410 

c 



CRY18420 

c 

OUTSIDE ATMOSPHERE BOUNDARY NODES, 2 POSSIBLE 


CRY18430 

c 

THESE MAY BE CONVECTION OR RADIATION 


CRY18440 

c 

NLAYRS (8/9) WILL BE SET TO 1 FOR CONVECTION OR TO 2 

FOR RADIATION 

CRY18450 

c 

IF EITHER OF THESE NODES IS DEFINED AS A RADIATION NODE 

CRY18460 

c 

AND IF THE INITIAL TEMPERATURES ARE IN DEG R, 


CRY18470 

c 

THEN THE INITIAL TEMPERATURES WILL BE CONVERTED TO DEG F. 

CRY18480 

c 



CRY184 90 


TEMPS (6) —9999.9 


CRY18500 


TEMPS(7) —9999.9 


CRY18510 


IBN-0 


CRY18520 


CALL CLEARS 


CRY18530 


PRINT 2901 


CRY18540 


PRINT 2001 


CRY18550 


CALL READAL (1, YN) 


CRY18560 


IF {YN .EQ. 'YM THEN 


CRY18570 


920 PRINT 2902 , MATNMS ( 9) 


CRY18580 


IBN-IBN+1 


CRY18590 


CALL READRE (TEMPS { IBN+5) > 


CRY18600 


930 PRINT 2903 


CRY18610 


CALL READAL (1,YN) 


CRY18620 


IF (YN .EQ. 'CM THEN 


CRY18630 

c 

OUTSIDE BOUNDARY NODE, CONVECTION TO SURFACE, INPUT 

H (BTU/HR-FT2) 

CRY18640 

c 

CONVERT H TO BTU/HR-IN2-DEG, H-H/144 


CRY18650 

c 

COMPUTE G-H*A 


CRY18660 

c 

SET NLAYRS {8/9) - 1 DENOTING CONVECTION. 


CRY18670 


PRINT 2904 


CRY18680 


CALL READRE (BNCOEF {I BN) ) 


CRY18690 


BNCOEF (IBN) -BNCOEF (IBNJ/144. 


CRY18700 


NLAYRS (7+IBNJ-l 


CRY18710 


ELSE 


CRY18720 


IF (YN .EQ. f RM THEN 


CRY18730 

c 

OUTSIDE BOUNDARY NODE, RADIATION TO SURFACE 


CRY18740 

c 

TYPE IN RADIATION COEF (EPS*FORMF) 


CRY18750 

c 

PROGRAM WILL MULTIPLY BY S TE FAN- BOLT ZMAN* AREA TO 


CRY18760 

c 

GET G-SIG* (EPS*F) *A (BTU/HR) 


CRY1B770 

c 

STEFAN-BOLTZMAN CONSTANT, (SIGMA) "0. 1712E-B (BTU/HR-FT2-DEGR4 ) 

CRY18780 

c 

SET NLAYRS (8/9) - 2 DENOTING RADIATION. 


CRY18790 


PRINT 2905 


CRY18800 


CALL READRE ( BNCOEF (IBN)) 


CRY18810 


BNCOEF (IBN)- BNCOEF (IBN) *0 . 171 2E-8/144 . 


CRY18820 


NLAYRS (7+IBN) -2 


CRY18830 


ELSE 


CRY18840 

c 

WRONG REPLY, REPLY MUST BE ' C' OR 'R', TRY AGAIN 


CRY18850 


PRINT 3005 


CRY188 60 


GO TO 930 


CRY18870 


ENDIF 


CRY18880 


ENDIF 


CRY18890 


CALL CLEARS 


CRY18900 
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IF (I BN .LT. 2) THEN. 

PRINT 2906 
PRINT 2001 
CALL READAL (1, YN) 

IF (YN .EQ. 'Y') THEN 
GO TO 920 
ENDIF 
ENDIF 
ENDIF 

C CHECK FOR RADIATION CONDUCTOR AND DEGR. 

C INDICATER ' F' OR ' R' IS IN MATNMS ( 9) 

C IF TRUE CHANGE THE INPUT TEMPERATURES TO DEG F. 

C THOSE TO BE CHANGED: TEMPS {1-9) , HXTEMP (1-10) 

C 

IF (MATNMS (9) .EQ. ' R' ) THEN 

IF (NLAYRS (8) .EQ. 2 .OR. NLAYRS (9) .EQ. 2) THEN 
CALL CLEARS 
PRINT 2909 
MATNMS (9) -'F' 

MATRLS (9) -1 
IBNT-IBN+5 
DO 950 I-1,IBNT 
TEMPS (I) -TEMPS (I) -460.0 
950 CONTINUE 

DO 955 I-1,NHX 
HXTEMP (I) -HXTEMP (I) -460.0 
955 CONTINUE 

ENDIF 
ENDIF 
RETURN 


C FORMAT STATEMENTS 

C 

1001 FORMAT (Al) 

2001 FORMAT {' TYPE IN Y OR N' ) 

2201 FORMAT (///' IS THERE TO BE A REGION ON THE OUTSIDE', 

1 ' OF THE TANKWALL?'/ 

2 ' EG. INSULATION.') 

2301 FORMAT (///' IS THERE TO BE A 2ND REGION OUTSIDE OF', 

1 ' THE TANKWALL?'/ 

2 ' EG. MORE OR DIFFERENT INSULATION.') 

2401 FORMAT (///' FOR THIS ANALYSIS THE INSIDE OF THE TANK', 

1 ' WILL BE NODALIZED'/ 

2 ' HOW MANY REGIONS INSIDE OF THE TANK ? 1 OR 2' 


2402 FORMAT (// 

1 ' 

2 

3 ' 

4 

5 

2403 FORMAT (' 

2404 FORMAT {' 

2405 FORMAT (' 
2601 FORMAT (///' 

26021 FORMAT (///' 

26081 FORMAT (///' 
1 

2 

3 

4 

26082 FORMAT (//' 

1 ' 

2 

26083 FORMAT (' 

2701 FORMAT (///' 

2702 FORMAT {' 

2703 FORMAT (' 

2704 FORMAT {' 

1 

2705 FORMAT (' 


THE HEAT TRANSFER MECHANISM INSIDE THE TANK,'/ 

I.E. REGIONS 4 AND 5, IS TO BE:'/ 

1. CONDUCTION ONLY'/ 

2. CONVECTION ONLY'/ 

3. CONDUCTION AND CONVECTION'/ 

TYPE IN 1 2 OR 3' ) 

CONVECTION IN THE Y, (CIRCUMFERENTIAL), DIRECTION?') 
TYPE IN THE CONVECTION COEFFICIENT, (BTU/ (HR-FT2-DEGF) 
CONVECTION IN THE RADIAL DIRECTION?') 

ARE THERE TO BE ANY HEAT EXCHANGERS?') 

HEAT EXCHANGER INFO, MAX NO. -10') 

HEAT EXCHANGER NO. ',13,' SPECIFIED '/ 

ON TOP OF LAYER', 13,' OF REGION', 1 2, 

STARTING AT THETA ANGLE', 13,' FOR ',13,' NODES,', 
WITH TEMPERATURE -',F7.2,/ 

IS THIS CORRECT?') 

DO YOU WANT TO RE-SPECIFY OR DELETE', 

HEAT EXCHANGER ',13,'?'/ 

TYPE Y TO RE-SPECIFY OR N TO DELETE.') 

MORE HEAT EXCHANGERS? TYPE Y OR N' ) 

ARE THERE TO BE VAPOR COOLED SHIELDS?') 

TYPE IN NUMBER OF SHIELDS 1 OR 2' ) 

TYPE IN THE REGION NUMBER WHERE THE 1ST SHIELD GOES.' 
THE SHIELD IS ON TOP OF WHICH LAYER OF THE REGION?'/ 
TYPE IN THE LAYER NO.' ) 

TYPE IN THE THETA ANGLE WHERE THE VCS STARTS.'/ 


CRY1891Q 
CRY18920 
CRY18930 
CRY18940 
CRY18950 
CRY18960 
CRY18970 
CRY18980 
CRY18990 
CRY19000 
CRY19010 
CRY19020 
CRY19030 
CRY19040 
CRY19050 
CRY19060 
CRY19070 
CRY19080 
CRY19090 
CRY19100 
CRY19110 
CRY19120 
CRY19130 
CRY19140 
CRY19150 
CRY19160 
CRY19170 
CRY19180 
CRY19190 
CRY19200 
CRY19210 
CRY19220 
CRY19230 
CRY19240 
CRY19250 
CRY19260 
CRY19270 
CRY19280 
CRY19290 
CRY19300 
CRY19310 
CRY19320 
CRY19330 
CRY19340 
CRY19350 
CRY19360 
CRY19370 
CRY19380 
CRY19390 
CRY19400 
CRY19410 
CRY19420 
CRY19430 
CRY19440 
CRY19450 
CRY19460 
CRY19470 
CRY19480 
CRY194 90 
CRY19500 
CRY19510 
CRY19520 
CRY19530 
CRY19540 
CRY1 9550 
CRY1 9560 
CRY19570 
CRY1 9580 
CRY1 9590 
CRY19600 
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2706 FORMAT {' 

1 

2707 FORMAT (' 

1 

2001 FORMAT { ' 
2807 FORMAT (' 

1 

2901 FORMAT (/// 


COUNT UP FROM THE SOUTH POLE.') 

TYPE IN THE NUMBER OF THETAS THE' , 

VCS IS TO COVER.' ) 

TYPE IN THE VAPOR COOLED SHIELD 1', 

TEMPERATURE (DEG ',A1,')') 

TYPE IN THE REGION NUMBER WHERE THE 2ND SHIELD GOES.- 
TYPE IN THE VAPOR COOLED SHIELD 2', 

TEMPERATURE (DEG ' ,A1, ' ) ' ) 

THERE MAY BE UP TO TWO BOUNDARY NODES ON THE ' 


1 

2 ' 

3 

2902 FORMAT (' 

1 

2903 FORMAT (' 

1 ' 

2 

2904 FORMAT (/' 

2905 FORMAT (/' 

2906 FORMAT {// 
2909 FORMAT (// 

1 

2 

3001 FORMAT (' 

1 

2 

3' TYPE 

3002 FORMAT (' 


OUTSIDE OF THE TANKWALL.'/ 

EG. OUTSIDE ATMOSPHERE.'/ 

DO YOU WANT ONE OR MORE OF THESE BOUNDARY NODES?') 
TYPE IN THE OUTSIDE ATMOSPHERE' , 

TEMPERATURE (DEG ',A1,')') 

THE HEAT TRANSFER TO THIS OUTSIDE TEMPERATURE IS TO BE 1 
CONVECTION OR RADIATION?'/ 

TYPE IN C OR R') 

TYPE IN THE CONVECTION COEFFICIENT, (BTU/HR-FT2-DEG) - 
TYPE IN THE RADIATION FACTOR (EPS*F) ') 

' DO YOU WANT A 2ND OUTSIDE BOUNDARY NODE?') 

' ONE OR MORE OF THE OUTSIDE BOUNDARY CONDUCTORS', 

' IS A RADIATION CONDUCTOR,'/ 

' ALL TEMPERATURES HAVE BEEN CONVERTED TO DEG F.') 

* * * ERROR* * * HX ',12,' AND HX ',12,' OVERLAP? HX"S', 
CANNOT OVERLAP.'/ 

RESPECIFY ONE OF THESE OR DELETE HX ',12/ 

Y TO RESPECIFY OR N TO DELETE') 

WHICH HX DO YOU WANT TO RESPECIFY? ',14,' OR', 14) 


3003 FORMAT ( 14,' IS AN INCORRECT RESPONSE; 


3005 FORMAT (' 

3006 FORMAT (//' 
1 

2 

3 

4 

5 

3007 FORMAT (' 

1 ' 

1 

1 

3000 FORMAT (' 

1 

2 

3 ' 


TRY AGAIN.' 
C OR R , 


TRY AGAIN. ' ) 


WRONG REPLY, REPLY MUST BE 
* * ^POSSIBLE ERROR* * * ' / 

REGION 4 AND REGION 5 MATERIALS ARE BOTH LIQUIDS'/ 

BUT THEY ARE NOT THE SAME LIQUIDS.'/ 

REGION 4 IS LIQUID ',A16,', MATERIAL NO.', 15/ 

REGION 5 IS LIQUID ',A16,', MATERIAL NO.', 15/ 

IS THIS O.K. OR DO YOU WANT TO MAKE A CHANGE?') 

TYPE IN 0 (ZERO) FOR O.K., CONTINUE;'/ 

4 TO CHANGE MATERIAL 4;'/ 

5 TO CHANGE MATERIAL 5;'/ 

OR 45 TO CHANGE BOTH MATERIALS.') 

* * *£RROR* * * ' / 

ERROR IN TYPING INPUT, THE ONLY VALID RESPONSES ARE'/ 
0 ( ZERO) , 4, 5, OR 45 TRY AGAIN, ' , 

OR TYPE Q TO QUIT') 


CALLED FROM 

C GET % TANK IS FILLED, 


END 

C431SSSSSSSSSSSSSSS5SSSSSSSSSSSSSSS5SSSSSSSSSSSSSSSSSSSSSSSS 
SUBROUTINE ULLINP 

RGN2T5 (43) 

WHERE IS ULLAGE. 

IF PCTFUL - 100 CT-'F' TANK IS FULL NO ULLAGE 

IF PCTFUL - 0 CT-'O' TANK IS EMPTY, ALL NODES ARE VAPOR 

IF 0 < PCTFUL < 100 TANK HAS ULLAGE, WHERE IS IT? 

CT-'l' 1-G ANALYSIS, FLAT ULLAGE ON TOP 
CT-'C' 0-G ANALYSIS, ULLAGE AT CENTER 
CT-'T' 0-G ANALYSIS, ULLAGE AT TOP W/ FILM 


COMMON /ULLAGE/ NLUL4 , NLUL5, NTHU41 , RINMHH, PCTFUL, RADULG, TVULFT, 
1 CT, LG (3) , LIQVAP (3) 

CHARACTER* 1 CT, LG 
CHARACTER* 6 LIQVAP 

CALL CLEARS 
PRINT 2501 
ENTRY ULLIN2 
CALL READRE (PCTFUL) 

IF (PCTFUL .LT. 99. 99} THEN 
IF (PCTFUL .GT. 0.0) THEN 
605 PRINT 2503 

CALL READAL ( 1 , CT) 


CRY19610 
CRY19620 
CRY19630 
CRY19640 
CRY19650 
CRY19660 
CRY19670 
CRY19680 
CRY19690 
CRY19700 
CRY1971Q 
CRY19720 
CRY19730 
CRY19740 
/CRY19750 
CRY19760 
CRY19770 
) CRY1 9780 
CRY19790 
CRY19800 
CRY19810 
CRY19820 
CRY19830 
CRY19840 
CRY19850 
CRY19860 
CRY19870 
CRY19880 
CRY19890 
CRY19900 
CRY19910 
CRY19920 
CRY19930 
CRY19940 
CRY19950 
CRY19960 
CRY19970 
CRY19980 
CRY19990 
CRY20000 
CRY20010 
CRY20020 
CRY20030 
CRY20040 
CRY20050 
CRY20060 
CRY20070 
CRY20080 
CRY20090 
CRY20100 
CRY20110 
CRY201 20 
CRY201 30 
CRY201 40 
CRY201 50 
CRY201 60 
CRY201 70 
CRY20180 
CRY20190 
CRY20200 
CRY20210 
CRY20220 
CRY20230 
CRY202 40 
CRY202 50 
CRY202 60 
CRY202 70 
CRY202 80 
CRY20290 
CRY20300 
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IF (CT .EQ. '0' .OR. CT .EQ. 'O') THEN 
610 PRINT 2502 

CALL READAL (1, CT) 

IF (CT .EQ. 'C' .OR. CT .EQ. 'T') THEN 
ELSE 

PRINT 3004 
GO TO 610 
ENDIF 
ELSE 

IF (CT .NE. '1') THEN 
PRINT 3005 
GO TO 605 
ENDIF 
ENDIF 
ELSE 

TANK HAS REGION (S) 4, (5) DEFINED BUT %FULL-0. 

HENCE THE TANK IS EMPTY. ALL NODES SHOULD BE DEFINED AS VAPOR NODES. 


CT-'O' 

ENDIF 

ELSE 

TANK HAS REGION (S) 4, (5) DEFINED BUT %FULL-100. 

HENCE THE TANK IS COMPLETELY FULL. ALL NODES ARE LIQUID NODES. 
CT-' F' 

ENDIF 

RETURN 

FORMAT STATEMENTS 


2501 FORMAT (/// 

2502 FORMAT (/' 

1 

2503 FORMAT (/' 

1 ' 

3004 FORMAT (' 

1 

3005 FORMAT (' 


' TYPE IN % TANK IS FULL OF LIQUID.') 

WHERE IS THE ULLAGE? CENTER OR TOP?'/ 

TYPE IN C OR T' ) 

IS THIS ANALYSIS A LOW-G OR 1-G ANALYSIS?'/ 

TYPE IN 0 OR 1') 

ULLAGE MUST BE SPECIFIED AS CENTER C OR TOP T'/ 
RESPECIFY C OR T' ) 

WRONG REPLY, REPLY MUST BE 0 OR 1 , TRY AGAIN.') 


END 


C4 


33SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


SUBROUTINE READHX (NNHX, NERR) 

CALLED FROM RGN2T5 

COMMON /REGION/ NTHETA, NBETAS, BETA, RIN, TVOL, ROUT (9) , 

1 REGNS (9) , NLAYRS ( 9) , TEMPS (9) r THICK (9) , 

2 THKLAY (9) , MATRLS (9) , MATNMS (9) , RGNNMS (9) 
COMMON /HTXGRS/ NHX, HXTEMP (10) , NRHX (10 ) , NLHX (1 0) , 

1 NTHHX(IO) , LNGTHX (10) 


( 43 ) 


LOGICAL REGNS 


CHARACTER* 16 MATNMS 
CHARACTER* 2 5 RGNNMS 
CHARACTER *1 YN 
C CALL CLEARS 

PRINT 26022, NNHX 
PRINT 2603 

CALL READIN (NRHX (NNHX) ) 

C HX NO. NNHX IS IN REGION NRHX; TEST IF REGN NRHX EXISTS 

NNNN-NRHX (NNHX) 

IF (.NOT. REGNS (NNNN) ) THEN 

C REGN NRHX IS FALSE, ERROR, CANNOT BE A HX, REGN DOES NOT EXIST; 

C UNLESS NRHX - 4 AND NLAYER-1 , (INSIDE TANK WALL) 

IF (NNNN .EQ. 4) THEN 

C THIS HX IS ON THE INSIDE TANK WALL 

NLHX (NNHX) -1 
GO TO 730 
ELSE 

PRINT 3002, NNHX, NNNN 
NERR-1 
RETURN 
ENDIF 


CRY20310 
CRY20320 
CRY20330 
CRY20340 
CRY20350 
CRY20360 
CRY20370 
CRY20380 
CRY20390 
CRY20400 
CRY20410 
CRY20420 
CRY20430 
CRY20440 
CRY204 50 
CRY204 60 
CRY204 70 
CRY204 80 
CRY204 90 
CRY20500 
CRY20510 
CRY20520 
CRY20530 
CRY205 40 
CRY205 50 
CRY20560 
CRY20570 
CRY20580 
CRY20590 
CRY20600 
CRY20610 
CRY20620 
CRY20630 
CRY20640 
CRY20650 
CRY20660 
CRY20670 
CRY206B0 
CRY20690 
CRY20700 
CRY20710 
CRY20720 
CRY20730 
CRY20740 
CRY20750 
CRY207 60 
CRY20770 
CRY20780 
CRY207 90 
CRY20800 
CRY20810 
CRY20820 
CRY20830 
CRY20840 
CRY20850 
CRY208 60 
CRY20870 
CRY20880 
CRY20890 
CRY20900 
CRY20910 
CRY20920 
CRY20930 
CRY20940 
CRY20950 
CRY20960 
CRY20970 
CRY20980 
CRY20990 
CRY21000 
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ENDIF 

C GET THE LAYER NO. OF THE DESIGNATED REGION THAT CONTAINS THE HX. 

C THE HX IS ON TOP OF THE SPECIFIED LAYER. 

C COUNT LAYER FROM OUTSIDE TOWARD CENTER OF SHPERE FOR ALL REGIONS. 
NREGHX-NRHX (NNHX) 

IF (NLAYRS (NREGHX) ,LE. 1) THEN 
NLHX (NNHX) - 1 
ELSE 

720 PRINT 2604, NRHX (NNHX) 

CALL READIN (NLHX (NNHX) , 1 , NLAYRS (NREGHX) ) 

ENDIF 

730 PRINT 2605 

CALL READIN (NTHHX (NNHX) , 1, NTHETA) 

PRINT 2606 

CALL READIN (LNGTHX (NNHX) , I, NTHETA) 

IF (NTHHX (NNHX) +LNGTHX (NNHX) -1 .GT. NTHETA) THEN 
PRINT 3003, NNHX, NTHHX (NNHX) , LNGTHX (NNHX) , NTHETA 
NERR-10 
RETURN 
ENDIF 

PRINT 2607, MATNMS (9) 

CALL READRE (HXTEMP (NNHX) ) 

RETURN 

FORMAT STATEMENTS 


C 
C 
C 

26022 FORMAT (' 
2603 FORMAT (' 
1 

2 60 4 FORMAT (' 
1 


INPUT FOR HEAT EXCHANGER NO. ' , 12) 

TYPE IN THE REGION NUMBER WHERE THE' 
HEAT EXCHANGER GOES.') 

THE HEAT EXCHANGER IS ON TOP OF', 
WHICH LAYER OF REGION' , 13, '?' / 


TYPE IN THE LAYER NO., COUNT LAYERS FROM OUTSIDE'/ 
TOWARD THE CENTER. ' ) 


2 605 FORMAT (' 

1 

2 

2 60 6 FORMAT (' 

1 

2 60 7 FORMAT (' 
3001 FORMAT (//' 
1 
2 


TYPE IN THE THETA ANGLE WHERE', 

' THE HEAT EXCHANGER STARTS'/ 

COUNT UP FROM THE SOUTH POLE.') 

TYPE IN THE NUMBER OF THETAS THAT', 

' THE HEAT EXCHANGER COVERS.') 

TYPE IN THE HEAT EXCHANGER TEMPERATURE (DEG ' , A1 , ' ) ' ) 
**** ERROR ***'/ 

YOU SPECIFIED LAYER NO. ',13, 'FOR THE HEAT EXCHANGER'/ 
BUT REGION', 12,' HAS ONLY', 13,' LAYERS.'/ 


3002 FORMAT (//' 
1 

2 

3003 FORMAT (//' 
1 

2 

3 

4 

5 


RETYPE THE LAYER NO.') 

HEAT EXCHANGER NO. ',12,' DEFINED IN REGION ',13/ 

BUT REGION ',13, ' DOES NOT EXIST.'/ 

CHANGE OR DELETE THIS HEAT EXCHANGER') 

**** ERROR ***'/ 

FOR HEAT EXCHANGER NUMBER' , 13/ 

THE STARTING POSITION, (THETA- ',13,') PLUS'/ 

THE LENGTH OF THE HX, (',13,')'/ 

EXCEEDS THE NUMBER OF THETAS IN THE SPHERE, (',13,')'/ 
RESPECIFY OR DELETE THIS HEAT EXCHANGER') 


END 

C44SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
SUBROUTINE NODES 

CALLED FROM SINTRU(4> 

C GENERATE NODE DATA BLOCK 


ENERAi E 
. REG 1 
REG 2 
REG 3 
REG 4 
REG 5 


ALL THE NODES FOR THE SINDA MODEL 


TANK 

IF ANY — 


2 SURFACES (ARITH NODES), 

1 OUTSIDE SURF (ARITH NODES), 


IF ANY — 1 OUTSIDE SURF (ARITH NODES), 


N1 LAYERS (DIFF NODES) 
N2 LAYERS (DIFF NODES) 
N3 LAYERS (DIFF NODES) 


IF ANY — 

IF ANY — 

INSIDE TANK WHEN RECNS(4) 
HEAT EXCHANGERS 1 


N 4 LAYERS (DIFF NODES) 

N5 LAYERS (DIFF NODES) 

.FALSE. —1 BNDY NODE AT EACH THETA 
BNDY NODE FOR EACH HEAT EXCHANGER 


OUTSIDE ATMOSPHERE I 

VAPOR COOLED SHIELDS 1 


BNDY NODE 

BNDY NODE FOR EACH SHIELD (NOT IN PGM) 


CRY21010 

CRY21020 

CRY21030 

CRY21D40 

CRY21050 

CRY21060 

CRY21070 

CRY21080 

CRY21090 

CRY21100 

CRY21110 

CRY21120 

CRY21130 

CRY21140 

CRY211 50 

CRY211 60 

CRY211 70 

CRY211B0 

CRY211 90 

CRY21200 

CRY21210 

CRY21220 

CRY21230 

CRY21240 

CRY21250 

CRY21260 

CRY21270 

CRY21280 

CRY21290 

CRY21300 

CRY21310 

CRY21320 

CRY21330 

CRY21340 

CRY21350 

CRY21360 

CRY21370 

CRY21380 

CRY21390 

CRY21400 

CRY21410 

CRY21420 

CRY21430 

CRY21440 

CRY2I450 

CRY21460 

CRY214 70 

CRY21480 

CRY21490 

CRY21500 

CRY21510 

CRY21520 

CRY21530 

CRY21540 

CRY21550 

CRY21560 

CRY21570 

CRY21580 

CRY21590 

CRY21600 

CRY21610 

CRY21620 

CRY21630 

CRY21640 

CRY21650 

CRY21660 

CRY21670 

CRY21680 

CRY21690 

CRY21700 
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C GENERATED NODE 
Cl. REG 1 TANK 
C 2. REG 2 IF ANY — 

C 3. REG 3 IF ANY — 

C 4. REG 4 IF ANY — 

C 5. REG 5 IF ANY -- SURF - 9000; 

C 6. INSIDE TANK WHEN R£GNS(4)-.F. 
C 7. HEAT EXCHANGERS 
C 8. OUTSIDE ATMOSPHERE 
C 9. VAPOR COOLED SHIELDS 
C 


FOR EACH REGION IN MODEL 
2000; SURF 2 - 3000 
4000; SURF - 5000 
6000; SURF - 7000 
8000 
10000 
18000 

BDY - 20001, 20002, ETC. 

BDY - 20301 

BDY - 20101, 20102, ETC. 


NUMBER SERIES, (NODEBASE), 
-- SURF1 - 1000; DIF - 
DIF - 
DIF - 
DIF - 
DIF - 
BDY - 


COMMON/UNITS/ MODU, INPEKO, ISCRCH, SINDA 

COMMON /REGION/ NTHETA, NBETAS, BETA, RIN, TVOL, ROUT (9) , 

1 REGNS (9) , NLAYRS (9) , TEMPS (9) , THICK (9) , 

2 THKLAY ( 9 ) , MATRLS ( 9 ) , MATNMS ( 9 ) , RGNNMS ( 9 ) 

COMMON /HTXGRS/ NHX, HXTEMP (10) ,NRHX (10) , NLHX (10) , 

1 NTHHX (10 ) , LNGTHX (10) 

COMMON/STUFF/ NHTT, P I, CONVY, CONVR, THETA0, DTHETA, NBASOS , ROUTSF , 
1 BNCOEF (2 ) 

COMMON /SUBRTS/ SPLIPT, XCUT1 , XCUT2 , VBLBL1 , VBLBL2 , OUTBLK 
COMMON /ULLAGE/ NLUL4 , NLUL5 , NTHU41 , RINMHH, PCTFUL, RADULG, TVULFT, 


1 CT, LG (3) , LIQVAP (3) 

COMMON /GEOMTY/ NTYP, NAN, GEOM (2 ) 


LOGICAL REGNS, SINDA 
LOGICAL SPLIPT 


C 


CHARACTER* 1 
CHARACTER* 2 
CHARACTER* 6 
CHARACTER* 6 
CHARACTER* 8 
CHARACTER* 15 
CHARACTER* 16 
CHARACTER* 17 
CHARACTER* 25 


CT, LG 
NUMBR 
LIQVAP 

XCUT1 , XCUT2, VBLBL1 , VBLBL2, OUTBLK 

GEOM 

HXGBCD . 

MATNMS 

HXLABL 

RGNNMS 


C 

DATA HXGBCD/ ' HEAT EXCHANGER '/ 
CALL WRITE NODE BLOCK TITLE 
CALL BL1TTL 
C NTYP-1, SPHERE 
CALL 

IF (NTYP .EQ. 1) CALL SPHNDS 


BL1TTL (04) 


SPHNDS (441) 


C 

C NTYP - 2 , 2D-CYLINDER 
CALL 

IF (NTYP .EQ. 2) CALL CYLNDS 


CYLNDS (442) 


C 

C TEST FOR BNDY NODES (18000) INSIDE TANK 

C IF SUB VBLBL1 EXISTS OR IF USER WANTS THESE NODES, GENERATE THEM 
C USE REGNS (9) AS A FLAG FOR NODES 18000 
C 

IF (.NOT, REGNS (4)) THEN 
IF (VBLBL1 .NE. ' ') THEN 
REGNS (9) -.TRUE. 

ELSE 

CALL CLEARS 
PRINT 2001 

CALL READIN (ICT, 1, 3) 

IF (ICT .GT. 1) THEN 
REGNS (9) -.TRUE. 

CALL CLEARS 

IF (ICT .EQ. 2) PRINT 20021, MATNMS (9) 

IF (ICT .EQ. 3) PRINT 20022, MATNMS (9) 

CALL READRE (TEMPS (9) ) 

IF (ICT .EQ. 3) THEN 
PRINT 20023, MATNMS (9) 

CALL READRE (THICK (9) ) 

301 PRINT 2003 

CALL READRE (PCTFUL) 


CRY21710 
CRY21720 
CRY21730 
CRY21740 
CRY21750 
CRY21760 
CRY21770 
CRY21780 
CRY21790 
CRY21800 
CRY2181Q 
CRY218 20 
CRY218 30 
CRY21840 
CRY21850 
CRY21860 
CRY2187Q 
CRY21880 
CRY218 90 
CRY21900 
CRY21910 
CRY21920 
CRY21930 
CRY21940 
CRY21950 
CRY21960 
CRY21970 
CRY21980 
CRY219 90 
CRY22000 
CRY22010 
CRY22020 
CRY22030 
CRY22C4G 
CRY22050 
CRY22060 
CRY22070 
CRY22080 
CRY22090 
CRY22100 
CRY22110 
CRY22120 
CRY22130 
CRY22140 
CRY221 50 
CRY221 60 
CRY22170 
CRY22180 
CRY221 90 
HERECRY2 2200 
CRY22210 
CRY22220 
CRY22230 
CRY22240 
CRY22250 
CRY22260 
CRY22270 
CRY222B0 
CRY22290 
CRY22300 
CRY22310 
CRY22320 
CRY22330 
CRY22340 
CRY223 50 
CRY22360 
CRY22370 
CRY223 80 
CRY223 90 
CRY22400 
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IF {PCTFUL .LE. 0.0 .OR. PCTFUL .GE. 100.) THEN 
PRINT 3000 
GO TO 301 
ENDIF 
CT-' 1' 

THKLAY(4) -RIN 

IF {NTYP .EQ. 1) CALL ULLGET 
IF {NTYP .EQ. 2) CALL ULL1G 
ENDIF 
ENDIF 
ENDIF 

IF (REGNS (9) ) THEN 
WRITE (MODU, 2000) 

IF (THICK (9) .EQ. 0.0) THEN 

CALL RITNDS (NTH ETA, 3, 18001, 1,1, TEMPS (9) , 1, ' INSIDE TANK 
ELSE 

NLN-NTHU41-1 

CALL RITNDS (NLN r 3, 18001,1, 1, TEMPS (9) , 1, ' IN TANK, LIQUID ') 
NVN-NTHETA-NLN 
NNODE- 18001+NLN 

CALL RITNDS (NVN, 3, NNODE, 1, 1, THICK (9) ,1, ' IN TANK, VAPOR ') 
ENDIF 
ENDIF 

CALL CLEARS 
ENDIF 
C 

C IF NHX > 0, DEFINE HEAT EXCHANGER NODES, NODE NOS. 20001, 20002, ETC. 
IF (NHX .GT. 0) THEN 
DO 600 I -1 , NHX 
NODNO-20000+I 
CALL NBCD { I , NUMBR) 

HXLABL-HXGBCD//NUMBR 

CALL RITNDS (443) 

CALL RITNDS {1, 3,NODNO, 1, 1, HXTEMP (I) , 1.0, HXLABL) 

600 CONTINUE 
ENDIF 

C GET NODEBASE AND RADIUS FOR OUTSIDE SURFACE 

C 

NS-1 

DO 101 J-2,3 
IF (REGNS (J)) NS-J 
101 CONTINUE 

ROUTSF-ROUT (NS) 

NBASOS-2000*NS+10Q0 


C 

C OUTPUT NODES FOR VAPOR COOLED SHIELDS 

C THIS SECTION PRESENTLY NOT ACTIVATED, VAPOR COOLED SHIELDS 
C NOT WELL DEFINED. PRESENTLY USE HEAT EXCHANGERS AS SUBSTITUTE. 

C 

C OUTSIDE ATMOSPHERE NODE (BOUNDARY NODE) 

CALL RITNDS (443) 


IF (TEMPS (6) .NE. -9999.9) THEN 

CALL RITNDS (1,3, 20301, 1,1, TEMPS(6) ,1.0, 'OUTSIDE ATMOS 1 ') 

ENDIF 

IF (TEMPS (7) .NE. -9999.9) THEN 

CALL RITNDS (1, 3, 20302, 1, 1, TEMPS (7), 1.0,' OUTSIDE ATMOS 2 ') 

ENDIF 

CALL BLKEND 
RETURN 

C FORMAT STATEMENTS 

2000 FORMAT (7X, ' REM CONSTANT VALUE BOUNDARY NODES; REGION 4, 

1 ' INSIDE OF TANK' > 

2001 FORMAT!///' FOR THIS MODEL, REGION 4 (INSIDE OF TANK),'/ 

1 ' IS NOT NODALIZED WITH SINDA NODES;'/ 

2 ' DO YOU WANT CONSTANT TEMPERATURE BOUNDARY NODES'/ 

3 ' TO CONNECT TO INSIDE OF TANK WALL, OR NOT?'/ 

4 ' YOU MAY HAVE:'/ 

5 ' 1. NO CONSTANT TEMPERATURE BOUNDARY NODES.'/ 

6 ' 2. A SINGLE SET OF CONSTANT TEMPERATURE NODES.'/ 

7 ' 3. 2 SETS OF CONSTANT TEMPERATURE NODES TO '/ 


CRY22410 
CRY22420 
CRY22430 
CRY22440 
CRY22450 
CRY22460 
CRY224 70 
CRY22480 
CRY224 90 
CRY22500 
CRY22510 
CRY22520 
CRY22530 
CRY22540 
) CRY22550 
CRY22560 
CRY22570 
CRY22580 
CRY225 90 
CRY22600 
CRY22610 
CRY22620 
CRY22630 
CRY22640 
CRY22650 
CRY22660 
CRY22670 
CRY2260O 
CRY22690 
CRY22700 
CRY22710 
CRY22720 
CRY22730 
CRY22740 
CRY227 50 
CRY22760 
CRY22770 
CRY2270O 
CRY22790 
CRY22800 
CRY2201O 
CRY22820 
CRY22830 
CRY22840 
CRY22850 
CRY22860 
CRY22870 
CRY22880 
CRY22890 
CRY22900 
CRY2291Q 
CRY22920 
CRY22930 
CRY22940 
CRY22950 
CRY22960 
CRY22970 
CRY22980 
CRY22990 
CRY23000 
CRY23010 
CRY23020 
CRY23030 
CRY23040 
CRY23050 
CRY230 60 
CRY23070 
CRY23080 
CRY230 90 
CRY23100 
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B 

9 

20021 FORMAT {/ 
1 

20022 FORMAT {/ 
1 

20023 FORMAT (/ 
1 

2003 FORMAT (/ 
3000 FORMAT (/ 
1 


# TO SIMULATE LIQUID AND VAPOR IN 1-G.'// 

' TYPE IN 1 2 OR 3') 

TYPE IN THE TEMPERATURE OF THESE BNDY NODES' , 

DEG (' , Al, ' ) ' ) 

TYPE IN THE TEMPERATURE OF THE LIQUID BNDY NODES' , 
DEG(',A1,')'> 

TYPE IN THE TEMPERATURE OF THE VAPOR BNDY NODES' , 
DEG (' , Al, ' ) ' ) 

TYPE IN % TANK IS FULL OF LIQUID.') 

ERROR IN TYPING % FULL;'/ 

% FULL MUST BE > 0.0 AND < 100.0; TRY AGAIN.') 


END 

C443SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 

SUBROUTINE RITNDS (NN, NODTYP, NNO, NDEL, NARY, TEMP , VOL, MLABL) 

CALLED FROM NODES (44) SETUPA (4411) SPHDIF(4412) 

CALLED FROM FEND (4421) SEND (4422) EEND (4423) CYLSEC (4424) 

C WRITE CARDS FOR NODE DATA BLOCK AND SOURCE DATA BLOCK 
C NN NO. NODES 

C NODTYP" TYPE NODE, (1-DIFF . , 2-ARITH, 3-BNDY, 4-SOURCE 

C NNO - BEGINNING NODE NO. 

C NDEL - NODE INCREMENT FOR GENERATION OF MULTIPLE NODES 

C NARY - ARRAY NO. FOR MATERIAL PROPERTY (CP*RHO) 

C TEMP - INITIAL NODE TEMPERATURE 

C VOL - VOLUME 

C MLABL - MATERIAL NAME, TO GO ON EACH NODE LINE AS AN ID. 

C 


COMMON/UNITS/ MODU, INPEKO, ISCRCH, SINDA 
CHARACTER* 16 MLABL 
LOGICAL SINDA 


NNODE-NNO 

IF (NODTYP .EQ. 4) GO TO 400 
IF (NODTYP .EQ. 1) THEN 
C DIFFUSION NODES 

IF (NN .EQ. 1) THEN 

WRITE (MODU, 2103) NN ODE, TEMP , NARY, VOL, MLABL 
ELSE 

WRITE (MODU, 2104) NNODE, NN, NDEL, TEMP , NARY, VOL, MLABL 
ENDIF 
ELSE 

IF (NODTYP .EQ. 2) THEN 
C ARITHMETIC NODES 

CVOL--1 . 0 
ELSE 

C BOUNDARY NODES 

NNODE--NNO 

CVOL-l.O 

ENDIF 

I F (NN .EQ. 1) THEN 

WRITE (MODU, 2101) NNODE, TEMP , CVOL, MLABL 
ELSE 

WRITE (MODU, 2102) NNODE, NN, NDEL, TEMP, CVOL, MLABL 
ENDIF 

ENDIF 

199 RETURN 

C WRITE SOURCE CARDS IN SOURCE BLOCK 
400 IF (NN .EQ. 1) THEN 

WRITE (MODU, 2201) NNODE, TEMP, VOL, MLABL 
ELSE 

WRITE (MODU, 2202) NNODE, NN, NDEL, TEMP, VOL, MLABL 
ENDIF 
RETURN 
C 

2101 FORMAT (11X, 16, ' , ' , 8X, F7. 1, ' , ' , F12. 6,10X, ' $ ',A16) 

2102 FORMAT (7X, 'GEN ' , 16, ' , ' , 13, ' , ' , 13, ' , ' , F7 . 1, ' , ' , 8X, 

1 F12.6,' $ ' , A16) 

2103 FORMAT (7 X, ' SIV ' , 16, ' , ' , 8X, F7 . 1, ' , A', 14,', ', 

1 F12 . 6, ' S ' , Al 6) 


CRY231 10 
CRY23120 
CRY231 30 
CRY231 40 
CRY23150 
CRY231 60 
CRY23170 
CRY23180 
CRY231 90 
CRY23200 
CRY23210 
CRY23220 
CRY23230 
CRY23240 
CRY23250 
CRY23260 
CRY23270 
CRY23280 
CRY232 90 
CRY23300 
CRY23310 
CRY23320 
CRY23330 
CRY2334Q 
CRY233 50 
CRY233 60 
CRY23370 
CRY23380 
CRY233 90 
CRY23400 
CRY23410 
CRY23420 
CRY23430 
CRY234 40 
CRY234 50 
CRY234 60 
CRY234 70 
CRY23480 
CRY234 90 
CRY23500 
CRY23510 
CRY23520 
CRY23530 
CRY23540 
CRY23550 
CRY235 60 
CRY23570 
CRY23580 
CRY235 90 
CRY23600 
CRY23610 
CRY23620 
CRY23630 
CRY23640 
CRY23650 
CRY236 60 
CRY23670 
CRY23680 
CRY23690 
CRY23700 
CRY237 10 
CRY23720 
CRY23730 
CRY23740 
CRY237 50 
CRY23760 
CRY23770 
CRY23780 
CRY237 90 
CRY23800 
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2104 FORMAT (7X, 'SIM ' , 16, ' , ' , 13, ' , ' , 13, ' , ' , F7 . 1, ' , A', 14,', 

1 F12 . 6, ' $ ',A16> 

2201 FORMAT (11X, 16, 0X, 

1 1PE11.4,' $ Q (BTU/HR) BASED ON' , 0PF6. 2, A1 6) 

2202 FORMAT (7X, 'GEN ',15, 12, 12, 

1 1 PEI 1 . 4, ' $ Q (BTU/HR) BASED ON ' , 0PF6. 2, A16) 

END 

C453SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
SUBROUTINE SRCDAT 

CALLED FROM SINTRU(4) 

C BLOCK 2, SOURCE DATA BLOCK — GENERATE NS SOURCE LINES 
C NODE NO., Q (BTU/HR.), QIN- (BTU/HR . -IN2 ) 

C 

C THIS SUBROUTINE TESTS FOR Q INTO THE OUTSIDE SURFACE, 

C READS IN THE VALUE. THEN A SOURCE DATA BLOCK IS GENERATED. 

C 

COMMON /REGION/ NTHETA, NBETAS, BETA, RIN, TVOL, ROUT ( 9) , 

1 REGNS ( 9) ,NLAYRS<9) , TEMPS (9) , THICK ( 9) , 

2 THKLAY (9) , MATRLS (9) , MATNMS (9) , RGNNMS (9) 
COMMON/STUFF/ NHTT, PI, CONVY, CONVR, THETAO, DTHETA, NBASOS, ROUTSF, 

1 BNCOEF (2) 

COMMON /OUT SRC/ NQIN, QEFF 
COMMON /GEOMTY/ NTYP, NAN, GEOM (2 ) 

C 

LOGICAL REGNS 
C 

CHARACTER* 8 GEOM 
CHARACTER* 16 MATNMS 
CHARACTER* 25 RGNNMS 

C 

CHARACTER* 1 6 QUNITS(3) 

CHARACTER* 1 YN, YES 

DATA QUNITS/' (BTU/ (HR-FT2) ) ' , ' (BTU/ (HR-IN2) ) ' , 

1 ' BTU/HR ON SPHERE' / 

DATA YES/' Y' / 

C 

C CHECK TO SEE IF THERE IS A Q TERM INTO THE OUTSIDE SURFACE. 

C 

NQIN-0 
CALL CLEARS 
PRINT 2001 
CALL READAL (1, YN) 

IF (YN .EQ. 'Y') THEN 
100 PRINT 2002 

CALL READIN (NQIN, 1, 3) 

QIN-0.0 

PRINT 2003, QUNITS (NQIN) 

CALL READRE(QIN) 

C WRITE THE HEADER FOR THE SOURCE DATA BLOCK 
CALL BL2TTL 

C WRITE THE SOURCE DATA LINES TO UNIT 10 
C 

NNODE-NBASOS 
R-ROUT (6) 

C CONVERT QIN TO BTU/ (HR-IN2) 

GOTO (110,120, 130), NQIN 
110 QEFF-QIN/144 . 

GO TO 140 
120 QEFF-QIN 
GO TO 140 

130 QEFF-QIN/4 ,/PI/R/R 
140 CONTINUE 
C 

IF (NTYP .EQ. 1} THEN 
DO 200 J-l, NTHETA, 2 
NNODE-NNODE+1 
JJJ-J/2 

CALL AREASP (451) 

CALL AREASP (1, JJJ, R, 1., AREA) 

QQ-QEFF*AREA 


CRY23810 

CRY23820 

CRY23830 

CRY23840 

CRY23850 

CRY23860 

CRY23870 

CRY2300O 

CRY23890 

CRY23900 

CRY23910 

CRY23920 

CRY23930 

CRY23940 

CRY23950 

CRY23960 

CRY23970 

CRY239B0 

CRY23990 

CRY24000 

CRY24010 

CRY24020 

CRY24030 

CRY24040 

CRY24050 

CRY24060 

CRY24070 

CRY24080 

CRY24090 

CRY24100 

CRY24110 

CRY24120 

CRY24130 

CRY24140 

CRY24150 

CRY24160 

CRY24170 

CRY24180 

CRY24190 

CRY24200 

CRY24210 

CRY24220 

CRY24230 

CRY24240 

CRY24250 

CRY24260 

CRY24270 

CRY24280 

CRY242 90 

CRY24300 

CRY24310 

CRY24320 

CRY24330 

CRY24340 

CRY24350 

CRY24360 

CRY243 70 

CRY24380 

CRY24390 

CRY24400 

CRY24410 

CRY24420 

CRY24430 

CRY244 40 

CRY244 50 

CRY244 60 

CRY24470 

CRY24480 

CRY24490 

CRY24500 
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200 


CALL 


205 


NMANY-2 

NJ-NTHETA-J 

IF (NJ .LE. 0) NMANY-1 

CALL RITNDS (NMANY, 4, NNODE, NJ, 1, QQ/ QIN, QUNITS (NQIN) ) 

CONTINUE 

ELSE 

NMANY-1 

NJ-1 

DO 205 J-l, NTHETA 

NNODE-NNODE+1 AREACYL (472) 

CALL AREACYL (1,J, 0.0,0, AREA, -2) 

OO E F F * AR EA 

CALL RITNDS (NMANY , 4, NNODE, NJ, 1 , QQ* QIN, QUNITS (NQIN) ) 

CONTINUE 

ENDIF 

CALL BLKEND 
ENDIF 


RETURN 

1001 FORMAT (Al) 

2001 FORMAT (//' 
1 

2 

2002 FORMAT ( f 
1 

2 

3 

4 

2003 FORMAT {' 


IS THERE TO BE A CONSTANT Q INPUT, (SOURCE TERM)'/ 
INTO THE OUTSIDE SURFACE OF THE MODEL?'/ 

TYPE Y OR N') 

THE VALUE OF Q MAY BE SPECIFIED IN 3 WAYS: / 

1 CONSTANT Q PER UNIT AREA, (BTU/ (HR-FT2) ' / 

2 CONSTANT Q PER UNIT AREA, (BTU/ (HR-IN2 ) ' / 

j Q BASED ON BTU/HR OVER THE ENTIRE SPHERE SURFACE'/ 
TYPE 1, 2, OR 3' } 

TYPE IN THE VALUE OF Q IN ,A16} 


C451 SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 

SUBROUTINE AREASP (NAREA, JPOS, R, TH, AREA) 

CALLED FROM SRCDAT (45) SNBLKS SP 

CALLED FROM SPHDIF (4412) CIRCON (4612) 

C SUBROUTINE TO COMPUTE AREAS ON SPHERE. 


C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

c 


AREAS FOR NODES TO COMPUTE NODAL VOLUMES. 
OUTSIDE AREAS FOR SOURCE TERMS (IF ANY) 
AREAS FOR CONDUCTOR PATHS. 


WHERE: 


NAREA - 
JPOS - 
R 

TH 

AREA “ 


1 2 RADIAL AREA, CIRCUMFERENTIAL AREA 

POSITION OF THETA ANGLE COUNTING FROM SOUTH POLE 
RADIUS TO AREA SURFACE 
LAYER THICKNESS 

VALUE RETURNED TO CALLING PROGRAM 


COMMON/STUFF/ NHTT, PI, CONVY, CONVR, THETA0 , DTHETA, NBASOS, ROUTSF, 
1 BNCOEF ( 2 ) 

COMMON /REGION/ NTHETA, NBETAS, BETA, RIN, TVOL, ROOT (9), 

. REGNS (9) , NLAYRS (9) , TEMPS (9) .THICK (9) , 

, THKLAY (9) , MATRLS (9) , MATNMS (9) , RGNNMS (9) 


i,nr,T CAL REGNS 


c 

CHARACTER* 8 GEOM 
CHARACTER* 16 MATNMS 
CHARACTER* 25 RGNNMS 

C 

THETA1 -THETAQ- JPOS * DTHETA 
THETA2-THETA1 -DTHETA 

IF (NAREA .EQ. 1) THEN 

AREA -BETA*R*R*(COS(THETAl)+COS(THETA2))*DTHETA/2. 

ELSE 

C AREA IN Y DIRECTION, (CIRCUMFERENTIAL) 

AREA -BETA*R* (COS (THETA1) +COS (THETA2) ) *TH/2. 

ENDIF 

RETURN 

C46SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 

SUBROUTINE CONDRS 


CRY24510 

CRY 2 4 5 20 

CRY24530 

CRY24540 

CRY24550 

CRY24560 

CRY24570 

CRY24580 

CRY24590 

CRY24600 

CRY24610 

CRY24620 

CRY24630 

CRY24640 

CRY24650 

CRY24660 

CRY24670 

CRY24680 

CRY24690 

CRY24700 

CRY24710 

CRY24720 

CRY24730 

CRY24740 

CRY247 50 

CRY24760 

CRY24770 

CRY24780 

CRY24790 

CRY24800 

CRY24810 

CRY24820 

CRY24830 

CRY24840 

CRY24850 

CRY24860 

CRY24870 

CRY24880 

CRY24890 

CRY24900 

CRY24910 

CRY24920 

CRY24930 

CRY24940 

CRY24950 

CRY24960 

CRY24970 

CRY249B0 

CRY24990 

CRY25000 

CRY25010 

CRY25020 

CRY25030 

CRY25040 

CRY25050 

CRY25060 

CRY25070 

CRY25080 

CRY25090 

CRY25100 

CRY25110 

CRY25120 

CRY25130 

CRY25140 

CRY25150 

CRY25160 

CRY251 70 

CRY25180 

CRY25190 

CRY25200 
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CALLED FROM SINTRU(4) 

C SUBROUTINE TO GENERATE CONDUCTOR DATA 

C 

COMMON/UNITS/ MODU, INPEKO, ISCRCH, SINDA 

COMMON /REG I ON/ NTHETA, N BET AS, BETA, RIN, TVOL, ROUT (9) , 

1 REGNS (9) , NLAYRS (9) , TEMPS (9) , THICK (9) f 

2 THKLAY ( 9) , MATRLS (9) , MATNMS { 9} , RGNNMS ( 9) 

COMMON /GEOMTY/ NTYP, NAN, GEOM (2) 

C 

LOGICAL REGNS, SINDA 
C 

CHARACTER* 8 GEOM 
CHARACTER* 16 LABLE 
CHARACTER* 16 MATNMS 
CHARACTER* 25 RGNNMS 

C 

C GENERATE CONDUCTOR DATA 
CALL BL3TTL 

CALL SPHCDS (461) 

IF (NTYP .EQ. 1) CALL SPHCDS 

CALL CYLCDS (462) 

IF (NTYP .EQ. 2) CALL CYLCDS 
IF (.NOT. REGNS (4)) THEN 

C REGNS ( 4 )- FALSE; GENERATE NTHETA BOUNDARY CONDUCTORS, FOR 
C CONVECTION FROM TANK TO INSIDE TANK WALL, (NODES 1800N TO 100N) 

C N-l, NTHETA 

IF (REGNS (9)) THEN 
WRITE (MODU, 2006) 

LABLE-' TANK TO WALL ' 

ENDIF 

CALL RITCND (4613) 

CALL RITCND (3, 18001, NTHETA, 1,18001,1, 1001, 1, 0, 0, 1 . 0, 1.0, LABLE) 
ENDIF 

CALL BLKEND 
RETURN 

2006 FORMAT (7X, 'REM CONVECTION CONDUCTORS; INSIDE TANK TO TANK WALL') 
END 

C4613SSSSSSSSSSS5SSSSSSSS5SSSSSSSSSSSSSS5SSSSSSSSSSSSSSSSSSS 

SUBROUTINE RITCND (NTP, NG, NGS, IG, NA, IA, NB, IB, NAA, NAB, FA, FB, MLABL) 
CALLED FROM SPHCDS (461) RADCON (4611) CIRCON (4612) 

CALLED FROM CYLALL (4622) FCND (4623) SCND (4624) ECND £4625) 

C SUBROUTINE TO WRITE CONDUCTOR CARDS TO UNIT 10 
C 

C 8,9,10 


C 

NODTYP- 1 

3 BLANKS 

G#, 

, NA, 

, NB 

, GVALUE 

STANDARD CONDUCTOR. 

C 

2 

CAL 

Gl, 

NA,' 

NB, 

W, 

X, Y, 

2 

G-W*X*Y/2 

C 

3 

GEN 

Gl, 

#G, 

IG, 

NA, 

INA, 

NB, 

INB, 

, W, X, Y, 2 

c 

4 

SIV 

G#, 

NA, 

NB, 

AP, 

F 




c 

5 

SIM 

G#, 

#G, 

IG, 

NA, 

INA, 

NB, 

INB, 

, AP, F 

C 

6 

DIV 

Gf, 

NA, 

NB, 

APA 

, FA, 

APB 

m 

u, 


c 

7 

DIM 

G#, 

IG, 

IG, 

NA, 

INA, 

NB, 

INB, 

, APA, FA, APB, FB 

c 

FOR CAL AND GEN 

OPTIONS 

PUT W, 

X, Y, 

, Z 

INTO 

NAA, NAB, FA, FB 


C 

COMMON/UNITS/ MODU, INPEKO, ISCRCH, SINDA 
CHARACTER* 16 MLABL 

C 

EQUIVALENCE (INAA, RNAA), (INAB, RNAB) 

C 

LOGICAL SINDA 
C 

INAA-NAA 

INAB-NAB 

IF (NTP .EQ. 7) THEN 

WRITE (MODU, 2307) NG, NGS, IG, NA, IA, NB, IB, NAA, FA, NAB, FB 
ELSE 
C 

IF (NTP .EQ. 6) THEN 

WRITE (MODU, 2306) NG, NA, NB, NAA, FA, NAB, FB 

ELSE 


CRY25210 
CRY25220 
CRY25230 
CRY25240 
CRY25250 
CRY25260 
CRY25270 
CRY252B0 
CRY25290 
CRY25300 
CRY25310 
CRY25320 
CRY25330 
CRY25340 
CRY25350 
CRY25360 
CRY25370 
CRY25380 
CRY25390 
CRY25400 
CRY25410 
CRY25420 
CRY25430 
CRY25440 
CRY254 50 
CRY25460 
CRY254 70 
CRY25480 
CRY25490 

CRY25500 

CRY25510 

CRY25520 

CRY25530 

CRY25540 

CRY255 50 

CRY25560 

CRY25570 

CRY25580 

CRY25590 

CRY25600 

CRY25610 

CRY25620 

CRY25630 

CRY25640 

CRY25650 

CRY25660 

CRY25670 

CRY25680 

CRY25690 

CRY25700 

CRY25710 

CRY25720 

CRY25730 

CRY25740 

CRY25750 

CRY25760 

CRY25770 

CRY25780 

CRY25790 

CRY25800 

CRY25810 

CRY25820 

CRY25830 

CRY25840 

CRY25850 

CRY25860 

CRY25870 

CRY25880 

CRY25J8 90 
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IF (NTP .EQ. 4) THEN 

WRITE (MODU, 2304) NG, NA, NB, NAA, FA 
ELSE 

IF (NTP .EQ. 5) THEN 

WRITE (MODU, 2305) NG, NGS, IG, NA, IA,NB, IB, NAA, FA 
ELSE 

IF (NTP .EQ. 1) THEN 

WRITE (MODU, 2301) NG, NA, NB, RNAA, RNAB, FA, FB 
ELSE 

IF (NTP .EQ. 2) THEN 

WRITE (MODU, 2302) NG, NA, NB, RNAA, RNAB, FA, FB 

ELSE 


IF (NTP .EQ. 3) THEN 

WRITE (MODU, 2303) NG, NGS, IG, NA, IA, NB, IB, RNAA, RNAB, FA, FB 
ENDIF 
ENDIF 
ENDIF 
ENDIF 
ENDIF 
ENDIF 
ENDIF 


RETURN 

2301 FORMAT (11X, 16, , 16,','/ 16,',', 1PE13.6) 

2302 FORMAT (7 X, 'CAL ',15,',', 2X, 15,',', 1PE13.6, 

1 1PE13.6,',', 1PE13 . 6, ' , ' , 1PE13.6) ^ 

2303 FORMAT (7X, 'GEN ',15,',', 13,',', II,','/ 15,',', 12,',', 

1 15,',', 12,',', 1PE11.5,',', 

2 1PE11.5,',', 0PF5.2,',', F5.2) 

2304 FORMAT < 7 X , ' SIV ',15,',', 6X,I5,',', 3X, 15, ' , ' , 3X, 

l ' A', 14, 1PE13.6) 

2305 FORMAT (7X, 'SIM ',15,', 

1 15,',', 12,',', 

2306 FORMAT (7X, 'DIV ',15,', 

1 'A', 14, 

2 'A', 14, 

2307 FORMAT (7X, 'DIM ',15,', 

1 15,',', 12,',', 

2 


' , 13, ' , Hr ' r ' I 15, ' , ' r 12, ' , ' , 

' A', 14, 1PE13.6) 

6X, I 5, ' , ' , 3X,I5,',',3X, 
1PE13.6,',', 

1PE13.6) 

13,',', II,',' • 12,',', 

'A', 14, 1PE13.6,',', 

'A', 14, 1PE13.6) 


END 


SINTRU (4) 


C47SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 

SUBROUTINE SNBLKS 
CALLED FROM 

C SUBROUTINE TO READ SINDA CONSTANTS AND GENERATE THE REMAINING 
c bS (CONSTANTS, ARRAY, EXECUTN, VBLES1, VBLES2, OUTPUT, 


COMMON/UNITS/ MODU, INPEKO, ISCRCH, SINDA 
COMMON /GEOMTY/ NTYP, NAN, GEOM (2 ) 

COMMON /SUBRTS/ SPLIPT, XCUT1 , XCUT2 , VBLBL1 , VBDBL2 , OUTBLK 
COMMON/ULLAGE/ NLUL4 , NLUL5, NTHU41, RINMHH, PCTFUL, RADULG, TVULFT, 
CT, LG (3) , LIQVAP (3) 

COMMON /REGION/ NTHETA, NBETAS, BETA, RIN, TVOL, ROUT (9) , 

REGNS (9) , NLAYRS (9) , TEMPS (9) , THICK (9) , 

, THKLAY ( 9 ) , MATRLS ( 9 ) , MATNMS { 9 ) , RGNNMS ( 9 ) 


LOGICAL SPLIPT 
LOGICAL REGNS, SINDA 
LOGICAL TRNSNT , STDYST 


CHARACTER*! 
CHARACTER* 1 
CHARACTER* 3 
CHARACTER* 6 


YN 

CT, LG 

TUNITS 

LIQVAP 


CHARACTER* 6 XCUT1 , XCUT2, VBLBL1 , VBLBL2, OUTBLK 


CRY25900 

CRY25910 

CRY25920 

CRY25930 

CRY25940 

CRY25950 

CRY25960 

CRY25970 

CRY25980 

CRY25990 

CRY26000 

CRY26010 

CRY26020 

CRY26030 

CRY26040 

CRY26050 

CRY26060 

CRY26070 

CRY26080 

CRY26090 

CRY26100 

CRY261 10 

CRY26120 

CRY26130 

CRY26140 

CRY26150 

CRY26160 

CRY26170 

CRY261 80 

CRY26190 

CRY26200 

CRY26210 

CRY26220 

CRY26230 

CRY26240 

CRY26250 

CRY26260 

CRY26270 

CRY26280 

CRY26290 

CRY26300 

CRY26310 

CRY26320 

CRY26330 

CRY26340 

CRY26350 

CRY26360 

CRY26370 

CRY26380 

CRY263 90 

CRY26400 

CRY26410 

CRY26420 

CRY26430 

CRY264 40 

CRY26450 

CRY26460 

CRY26470 

CRY26480 

CRY26490 

CRY26500 

CRY26510 

CRY26520 

CRY26530 

CRY26540 

CRY26550 

CRY26560 

CRY26570 

CRY 2 65 80 

CRY26590 
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CHARACTER* 7 ARRY12 (2) 



CRY26600 


CHARACTER* 6 BLNK, EXfeCNS (3) 



CRY26610 


CHARACTER* 8 GEOM 



CRY26620 


CHARACTE R * 1 6 MATNMS 



CRY26630 


CHARACTER* 25 RGNNMS 



CRY26640 

c 




CRY26650 

c 

GET VALUES FOR THE SINDA CONSTANTS 



CRY26660 

c 

TIMEO, TIMEND, DTIMEI, DRLXCA, ARLXCA, 

NLOOP 

, OUTPUT 

CRY26670 

c 




CRY26680 

c 

GET TYPE (S) OF EXECUTION ROUTINES TO BE USED. 

SS OR TRAN. 

CRY26690 

c 

USE (FWDBCK) FOR TRANSIENT, AND { STDSTL) 

FOR 

STEADY STATE 

CRY26700 

c 




CRY26710 

c 

UNITS TO BE USED IN SINDA — DEGR, IN., 

HRS., 

LBS., BTU 

CRY26720 

c 




CRY26730 

c 

COMMON / DATA/ RIN, ROUT, NLAY, NTHETA, 

TIMEND, OUTPUT, FFLOW, 

CRY26740 

c 

1 TGAS, TLIQ, TWALL, DTIMEI , DRLXCA, ARLXCA, 

NLOOP 

CRY26750 

c 




CRY26760 


DIMENSION SAREA ( 200) 



CRY26770 

c 




CRY26780 


DATA NLOOP, DTIMEI, DRLXCA, ARLXCA/ 1000, 

.005, 

.005, .005/ 

CRY26790 


DATA TIMEO, TIMEND, OUTPUT / 0.0, 2 4 

., .5 

/ 

CRY26800 

c 




CRY26610 


DATA BLNK / * '/ 



CRY26820 


DATA EXECNS/ ' STDSTL r , * FWDBCK 7 , ' CNFRDL 

'/ 


CRY26830 

c 




CRY268 40 


DATA ARRY12 /'INSIDE', 'OUTSIDE'/ 



CRY26850 

c 




CRY26860 

c 

PROMPT USER FOR USER CONSTANTS AND EXECUTION ROUTINES 

CRY26870 


CALL CLEARS 



CRY26880 

101 PRINT 2001 



CRY26890 


CALL READIN(NEXE, 1,4) 



CRY26900 


TRNSNT-. TRUE . 



CRY26910 


STDYST-. TRUE . 



CRY26920 


IF (NEXE .EQ. 1) TRNSNT-. FALSE. 



CRY26930 


IF (NEXE .EQ. 2) STDYST-. FALSE. 



CRY26940 


IF (TRNSNT) THEN 



CRY26950 


PRINT 2002 



CRY26960 


201 PRINT 20021 



CRY26970 

C 

GET FROM USER WHICH UNITS THE TIME VARIABLES ARE TO BE INPUT 

CRY26980 

C 

SECONDS, MINUTES, OR HOURS; THEN CONVERT THEM TO HOURS 

CRY26990 


CALL READAL {1, YN) 



CRY27000 


IF (YN .EQ. ' H' ) THEN 



CRY27010 


TCNV-1 .0 



CRY27O20 


TUNITS-' HRS' 



CRY27030 


ELSE 



CRY27040 


IF (YN .EQ. 'M') THEN 



CRY27050 


TCNV-60. 0 



CRY27060 


TUNITS-'MIN' 



CRY27070 


ELSE 



CRY27080 


IF {YN .EQ. 'S') THEN 



CRY27090 


TCNV-3 600.0 



CRY27100 


TUNITS-' SEC' 



CRY271 10 


ELSE 



CRY271 20 


PRINT 3004 



CRY27130 


CALL CLEARS 



CRY271 40 


GO TO 201 



CRY271 50 


ENDIF 



CRY27160 


ENDIF 



CRY27170 


ENDIF 



CRY27180 


CALL CLEARS 



CRY271 90 


PRINT 20022, TUNITS 



CRY27200 


CALL READRE (TOIN) 



CRY27210 


TOHRS-TOIN/TCNV 



CRY27220 


PRINT 2003, TUNITS 



CRY27230 


CALL READRE {TEIN) 



CRY27240 


TEHRS-TEIN/TCNV 



CRY272 50 


PRINT 2004, TUNITS 



CRY272 60 


CALL READRE (DTIN) 



CRY27270 


DTHRS-DTIN/TCNV 



CRY27280 


PRINT 2005, TUNITS, TUNITS 



CRY272 90 
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CALL READRE (OUTIN) 

OUTHRS-OUTIN/TCNV 
IF (OUTHRS .LE. 0.0) THEN 
OUTHRS-. 25 
OUTIN-OUTHRS*TCNV 
ENDIF 
ENDIF 

CALL CLEARS 

PRINT 2006 

CALL READRE (DRLXIN) 

PRINT 2007 

CALL READIN(LOOPIN,l, 99990) 

C 

r any SPFCIAL INPUT DATA FOR NTYP — 1, 2 

C THIS WILL BE KNOWN WHEN THE SUBROUTINES ARE ENTERED INTO THE SYSTEM 
C BASED ON NTYP AND NAN 

C 

IF(SPLIPT) THEN 
CALLSPLINP (471) 

CALL SPLINP(X1,X2,X3,X4) 

ENDIF 


GENERATE CONSTANTS DATA BLOCK 

USER CONSTANTS (1 , NLAY) ,< 2, NTHETA) , (3,NN1), (4.RIN), (S.ROUT) 


CALL BL4TTL 

WRITE {MODU, 2402) NTHETA, NBETAS, BETA, RIN, TV 
TF f SPLIPTi THEN 

C WRITE THE SPECIAL INPUT TO CONSTANTS DATA. USER SUBROUTINE WILL 
C GET THE VALUES FROM THE CONSTANTS BLOCK. K6, K7 , K6, K9 
WRITE (MODU, 2403) XI, X2, X3, X4 
ENDIF 

WRITE (MODU, 2404) MATRLS (9) 

WRITE (MODU, 2406) TUNITS, TUNITS, TUNITS, TUNITS, 
x TOIN, TEIN, DTIN, OUTIN, 

2 TOHRS, TEHRS, DTHRS, OUTHRS 

WRITE (MODU, 2407) LOOP IN, DRLXIN, DRLXIN 
CALL BLKEND 


500 


C GENERATE ARRAY DATA BLOCK 

CALL BL5TTL 

C ARRAY 1 IS ARRAY OF INSIDE TANK SURFACE AREAS, AT RIN. 

C ARRAY 2 IS ARRAY OF OUTSIDE SURFACE AREAS, OUTSIDE SURFACE 1, 2 OR 

C 

IF (.NOT. REGNS (4) ) THEN 
RAD-RIN 
NRAD— 1 
NARAY-1 
NREGN-1 

DO 501 J-l , NTHETA 
IF (NTYP ,EQ. I) THEN 

IF (MOD (J, 2) .EQ. 0) GO TO 502 
JJJ-J/2 

CALL AREASP (1, JJJ, RAD, 0 . , SAREA { JJJ+1 ) ) 

NJ-NTHETA-J 

IF(NJ .GT. 0) SAREA (NTHETA- JJJ) -SAREA (JJJ+1) 

CONTINUE 
ENDIF 

IF (NTYP .EQ. 2) THEN AREAC YL ^ 

CALL AREACYL (1 , J, 0 . 0, 0, SAREA ( J) , NRAD) 

ENDIF 
CONT I NUE 

WRITE (MODU, 2501) NARAY, NREGN, RGNNMS (NREGN) , ARRY12 (NARAY) 

DO 510 1=1 , NTHETA, 5 
Nl-I 
N2-N1+4 

IF (N2 .LE. NTHETA) THEN 

WRITE (MODU, 2 502) (SAREA (II ) , II-N1, N2) 

ELSE 


502 


CALL 


501 


CRY27300 

CRY27310 

CRY27320 

CRY27330 

CRY27340 

CRY273 50 

CRY27360 

CRY27370 

CRY27380 

CRY273 90 

CRY27400 

CRY27410 

CRY27420 

CRY27430 

CRY2744Q 

CRY27450 

CRY27460 

CRY27470 

CRY27480 

CRY274 90 

CRY27500 

CRY27510 

CRY27520 

CRY27530 

CRY27540 

CRY27550 

CRY27560 

CRY27570 

CRY27580 

CRY27590 

CRY27600 

CRY27610 

CRY27620 

CRY27630 

CRY27640 

CRY27650 

CRY27660 

CRY27670 

CRY27680 

CRY27690 

CRY27700 

CRY27710 

CRY27720 

CRY27730 

CRY27740 

CRY27750 

CRY27760 

CRY27770 

CRY27780 

CRY27790 

CRY27800 

CRY27810 

CRY27820 

CRY27830 

CRY27840 

CRY27650 

CRY27860 

CRY27870 

CRY27880 

CRY278 90 

CRY27900 

CRY27910 

CRY27920 

CRY27930 

CRY27940 

CRY27950 

CRY27960 

CRY27970 

CRY27960 

CRY27990 
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NN-NTHETA-Nl+1 


CRY28000 


N2 -NTHETA 


CRY28010 


IF (NN .EQ. 4) WRITE (MODU, 25024) 

(SAREA(II) ,II-N1,N2) 

CRY28020 


IF (NN .EQ. 3) WRITE (MODU, 25023) 

(SAREA (II) ,II-N1,N2) 

CRY28030 


IF (NN .EQ. 2) WRITE (MODU, 25022) 

(SAREA (II) , II-N1,N2) 

CRY28040 


IF (NN .EQ. 1) WRITE (MODU, 25021) 

(SAREA (II) , II-N1,N2) 

CRY28050 


ENDIF 


CRY20O6O 


510 CONTINUE 


CRY28070 


WRITE (MODU, 2503) 


CRY28080 


IF (NARAY .EQ. 1) THEN 


CRY28090 

c 

PUT OUT ARRAY 2; OUTSIDE SURFACE AREAS 


CRY281 00 


RAD-ROUT (6) 


CRY281 10 


NRAD--2 


CRY281 20 


NARAY- 2 


CRY28130 


NREGN-1 


CRY28140 


IF (REGNS (2 ) ) NREGN-2 


CRY28150 


IF (REGNS (3 ) ) NREGN-3 


CRY28160 


GO TO 500 


CRY28170 


ENDIF 


CRY2810O 


ENDIF 


CRY28190 

c 



CRY28200 

c 

CALL SUB PRPTBL TO GET PROPERTIES FROM THE DATABASE FOR EACH 

CRY28210 

c 

MATERIAL, TO PUT THE PROPERTIES INTO 1 

DOUBLET ARRAYS, THEN TO 

CRY28220 

c 

OUTPUT THE ARRAYS TO THE ARRAY BLOCK < 

DF THE MODEL. 

CRY28230 

c 

FOR DIFFUSION NODES MAKE ARRAYS FOR K 

AND (CP *RHO) 

CRY28240 

c 

IF THE PROPERTY FOR A REGION IS LIQUID, AND, THE ULLAGE .GT. 0 

CRY28250 

c 

THEN GET PROPERTIES AND OUTPUT TABLES 

FOR BOTH THE LIQUID AND 

CRY28260 

c 

GAS FORMS FOR THAT MATERIAL. 


CRY28270 

c 



CRY28280 


DO 601 LL-1, 5 


CRY28290 


IF (REGNS (LL) ) THEN 


CRY28300 

CALL 

PRPTBL (473) 

CRY2B310 


CALL PRPTBL (LL) 


CRY2B320 


ENDIF 


CRY28330 


601 CONTINUE 


CRY28340 


IF (SPLIPT) CALL PRPTBL{6) 


CRY28350 


CALL BLKEND 


CRY28360 

c 



CRY2037O 

c 

GENERATE EXECUTION BLOCK 


CRY28380 

c 



CRY28390 

c 

USER MAY HAVE 2 SUBROUTINE CALLS FROM 

EXECUTION BLOCK 

CRY28400 

c 

GET SUBROUTINE NAMES FROM VECTORS EXEC1 AND EXEC2 , IN SUB MENU 2 

CRY284 10 

c 



CRY28420 


CALL BL6TTL 


CRY28430 

c 

WRITE COMMON STATEMENTS INTO MODEL, EXECUTION BLOCK. 

CRY28440 


WRITE (MODU, 2602) 


CRY284 50 


I F { . NOT . REGNS (4)) THEN 


CRY284 60 


WRITE (MODU, 2603) 


CRY28470 


WRITE (MODU, 2604 } NTHETA, NTHETA, NTHETA, NTHETA, NTHETA, NTHETA 

CRY28480 


ENDIF 


CRY284 90 

c 



CRY28500 

c 

COMPUTE DIMENSIONS FOR X ARRAY AND NDIM, AND OUTPUT TO EXEC. BLOCK 

CRY28510 

c 

THIS IS BASED ON NO. NODES, NO. CONDS, 

AND ROUTINES USED, ETC. 

CRY28520 

c 



CRY28530 


NDN-NLAYRS (1) 


CRY28540 


NARN-2 


CRY28550 


DO 550 1-2,5 


CRY28560 


IF (REGNS (I)) THEN 


CRY28570 


NDN-NDN+NLAYRS (I) 


CRY28580 


NARN-NARN+1 


CRY2B5 90 


ENDIF 


CRY28600 


550 CONTINUE 


CRY28610 


NDN-NDN* NTHETA 


CRY2B620 


NARN-NARN* NTHETA 


CRY28630 


NX-5* (NDN+NARN) 


CRY2064O 


NX- (NX/100 + 1) *100 


CRY2B650 


WRITE (MODU, 2605) NX, NX 


CRY28660 

c 



CRY28670 

c 

OUTPUT FORTRAN CODE TO INITIALIZE THE 

COMMON BLOCKS 

CRY28680 

c 



CRY28690 
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c 

c 

c 

c 

c 

c 

c 

c 


c 

c 


c 


c 


c 


c 


c 


c 


c 

c 

c 


WRITE (MODU, 2610) 

IF (SPLIPT) WRITE (MODU, 2611 ) 

WRITE {MODU, 2612) 

IF {.NOT. REGNS (4 ) ) THEN 
WRITE {MODU, 2613) 

ENDIF 

IF REGNS4-F AND REGNS9-T AND VBLBL1- 
TEMPERATURE NODES INSIDE TANK, {NODES 18001) , 

IF PCTFUL-0? THEN CHECK TO SEE IF USER 

WANTS TO INPUT A CONSTANT H ; THEN CALCULATE G (18000+1)- HA 
IF PCTFUL>0; THEN USER INPUT 2 TEMPS, (TL l TV), CHECK TO SEE IF USER 
WANTS TO INPUT CONSTANT H'S (HL & HV) 

THEN CALCULATE G (18000 + 1)- HL*A AND G-HV*A 


THEN THE USER ASKED FOR 


IF (.NOT. REGNS (4) .AND. REGNS (9) .AND 
IF (PCTFUL .LE. 0.0 .OR. PCTFUL . GE . 
PRINT 30021, TEMPS (9), MATNMS ( 9) 
CALL READAL{1, YN) 

IF (YN .EQ. 'Y') THEN 
PRINT 30031 
CALL READRE(HH) 


VBLBL1 .EQ. 
100.0) THEN 


ENDIF 

WRITE {MODU, 26141) HH 


' ) THEN 


PRINT 30022, TEMPS (9) , MATNMS {9), THICK{9), MATNMS (9) 
CALL READAL (1, YN) 

IF (YN .EQ. ' Y' ) THEN 
PRINT 30032 
CALL READRE(HL) 

PRINT 30033 
CALL READRE(HV) 

ENDIF 

NLQN-NTHU4 1-1 

WRITE (MODU ,26142) HL, HV, NLQN , NTHU4 1 , NTHETA 
ENDIF 
ENDIF 

USER SUBROUTINE CALL GOES HERE, 1 OR 2 . 


I F (XCUT1 .NE. BLNK)WRITE (MODU, 6769) XCUT1 
GO TO (610, 620 , 630, 640 ) , NEXE 
610 STEADY STATE ANALYSIS 

610 WRITE {MODU, 2630) EXECNS{1) 

GO TO 660 

620 TRANSIENT ANALYSIS 

620 NEXRT-1 

621 IF (DTIN .GT. 0.) THEN 

FWDBCK, NEED — TO, TEND, OUTPUT AND DTIMEI 
WRITE (MODU, 26311) 

WRITE (MODU, 26312) 

WRITE (MODU, 2630) EXECNS(2) 

ELSE 

CNFRDL, NEED — TO, TEND, OUTPUT 
WRITE (MODU, 26311) 

WRITE (MODU, 2630) EXECNS(3) 

ENDIF 

GO TO (660, 641) ,NEXRT * 

630 STEADY STATE FOLLOWED BY TRANSIENT 
630 WRITE (MODU, 2630) EXECNS (1) 

GO TO 620 

640 TRANSIENT FOLLOWED BY STEADY STATE 

640 NEXRT-2 
GO TO 621 

641 WRITE (MODU, 2632) 

WRITE (MODU, 2630) EXECNS (1) 

660 IF (XCUT2 .NE. BLNK) WRITE (MODU, 67 8 9 ) XCUT2 
CALL BLKEND 


GENERATE VARIABLES 1 BLOCK 


CALL BL7TTL 


CRY2B700 

CRY28710 

CRY28720 

CRY28730 

CRY28740 

CRY28750 

CRY28760 

CRY28770 

CRY28780 

CRY28790 

CRY28800 

CRY2B810 

CRY28820 

CRY28830 

CRY28840 

CRY28850 

CRY288 60 

CRY28870 

CRY28880 

CRY28890 

CRY28900 

CRY28910 

CRY28920 

CRY28930 

CRY2B940 

CRY28950 

CRY28960 

CRY28970 

CRY28980 

CRY28990 

CRY29000 

CRY29010 

CRY29020 

CRY29030 

CRY29040 

CRY29050 

CRY29060 

CRY29070 

CRY29080 

CRY29090 

CRY29100 

CRY29110 

CRY29120 

CRY29130 

CRY29140 

CRY29150 

CRY29160 

CRY29170 

CRY29180 

CRY29190 

CRY29200 

CRY29210 

CRY29220 

CRY29230 

CRY292 40 

CRY29250 

CRY29260 

CRY29270 

CRY29280 

CRY29290 

CRY29300 

CRY29310 

CRY29320 

CRY29330 

CRY29340 

CRY29350 

CRY29360 

CRY29370 

CRY293B0 

CRY29390 
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c 
c 
c 
c 
c 
c 

CALL 


WRITE COMMON STATEMENTS INTO MODEL, VBLES1 BLOCK. 

WRITE {MODU, 2602) 

IF {.NOT. REGNS (4 ) .AND. VBLBL1 .NE. BLNK) THEN 
WRITE {MODU, 2603) 

WRITE (MODU, 2604) NTHETA, NTHETA, NTHETA, NTHETA, NTHETA, NTHETA 
WRITE (MODU, 2701) 

END IF 

IF (VBLBL1 .NE. BLNK) WRITE (MODU, 6789) VBLBL1 
IF {.NOT. REGNS (4) .AND. VBLBLl .NE. BLNK) THEN 
WRITE (MODU, 2702) 

ENDIF 

CALL BLKEND 

GENERATE VARIABLES 2 BLOCK 
CALL BL8TTL 

IF (VBLBL2 .NE. BLNK) WRITE (MODU, 6709) VBLBL2 
CALL BLKEND 

GENERATE OUTPUT BLOCK 

CALL BL9TTL 

IF (OUTBLK .NE. BLNK) THEN 
WRITE (MODU, 6709) OUTBLK 
ELSE 

WRITE (MODU, 2901) 

ENDIF 

IF THIS IS A SINDA MODEL THAT CALLS SUBROUTINES FROM THE BLOCKS 
INSERT THESE SUBROUTINES INTO THE MODEL FILE FOLLOWING THE OUTPUT 
BLOCK. THIS WILL GET THE ROUTINES COMPILED WITH THE PREPROCESSOR 
OUTPUT. 


INSERT (06) 


IF (SINDA .AND. XCUT1 . NE . ' 
CALL BLKEND 

WRITE END OF DATA STATEMENT 
CALL ENDDAT 


' ) CALL INSERT 


FORMAT STATEMENTS 


2001 FORMAT ( 

1 

2 

3 

4 

5 

6 

2002 FORMAT ( 

1 

2 

3 

4 

5 

20021 FORMAT (/ ' 
1 
2 
3 

20022 FORMAT (// 

2003 FORMAT (/' 

2004 FORMAT (/' 
1 

2 


NOW INPUT THE SPECIFIC DATA FOR SINDA' / 
THIS SINDA ANALYSIS MAY BE:'/ 


1 A STEADY STATE ANALYSIS'/ 

2 A TRANSIENT ANALYSIS' / 

3 STEADY STATE FOLLOWED BY A TRANSIENT'/ 

4 A TRANSIENT FOLLOWED BY STEADY STATE'/ 

TYPE IN 1, 2, 3, OR 4' ) 

A TRANSIENT ANALYSIS IS TO BE DONE,'/ 

THE EXECUTION SUBROUTINE WILL BE EITHER FWDBCK 
OR CNFRDL' / 

THIS WILL BE DETERMINED BY THE VALUE OF THE TIME', 
STEP, (DELTIME),'/ 

WHICH WILL BE INPUT BELOW.'} 

THE NEXT 4 INPUT VALUES INVOLVE PROBLEM TIME,'/ 

THESE 4 VALUES MAY BE INPUT IN UNITS OF'/ 

SECONDS, MINUTES, OR HOURS'/ 

NOW TYPE IN S M OR H ' ) 

NOW TYPE IN THE PROBLEM START TIME {',A3,')') 

NOW TYPE IN THE PROBLEM END TIME (',A3,')') 

TYPE IN THE TIME STEP, (DELTIME) ,(', A3, ' ) TO BE USED. 
IF DELTIME IS UNKNOWN, OR IF YOU TYPE ZERO ( 0 ), '/ 
THE SINDA FORWARD DIFFERENCE METHOD, (CNFRDL), '/ 

3 ' WILL BE USED AND DELTIME WILL BE COMPUTED BY THE PROGRAM') 

2005 FORMAT (/' TYPE IN THE OUTPUT INTERVAL DTOUT (',A3,')', 

1 ' TEMPERATURES WILL BE PRINTED EVERY DT ',A3,'.'/ 

2 ' IF INPUT VALUE .LE. 0, »> .25 HRS. WILL BE USED') 

2006 FORMAT (//' TYPE IN THE CONVERGENCE CRITERIA, DELTA TEMPERATURE 


CRY294 00 
CRY29410 
CRY29420 
CRY29430 
CRY29440 
CRY29450 
CRY29460 
CRY29470 
CRY29480 
CRY294 90 
CRY29500 
CRY29510 
CRY29520 
CRY29530 
CRY29540 
CRY29550 
CRY29560 
CRY29570 
CRY29580 
CRY29590 
CRY29600 
CRY29610 
CRY29620 
CRY29630 
CRY29640 
CRY29650 
CRY29660 
CRY29670 
CRY2960O 
CRY29690 
CRY29700 
CRY29710 
CRY29720 
CRY29730 
CRY29740 
CRY29750 
CRY29760 
CRY29770 
CRY29780 
CRY29790 
CRY29800 
CRY29810 
CRY29820 
CRY29830 
CRY29840 
CRY29850 
CRY29860 
CRY29670 
CRY298B0 
CRY29890 
CRY29900 
CRY29910 
CRY29920 
CRY29930 
CRY29940 
CRY29950 
CRY29960 
CRY29970 
CRY29980 
CRY29990 
CRY30000 
CRY30010 
/CRY30020 
CRY30030 
CRY30040 
CRY300 50 
CRY300 60 
CRY30070 
CRY30080 
/CRY30090 
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2 

3 

2007 FORMAT {/ /' 
1 
2 

3 ' 

4 


SUGGESTED VALUE RANGE .01 TO. 001/ 

IF INPUT VALUE .LE. 0 »> .005 WILL BE USED ) 

TYPE IN NLOOP, THE NUMBER OF ITERATION LOOPS , 

ALLOWED' / . 

SUGGESTED RANGE OF VALUES 100 TO 1000 / # 

.. th PUT VALUE IS .LE. 0 >» 100 WILL BE USED. / 

n^te- sLe ^eady state cases may NEED NLOOP > 1000M 

4-!f8.3, 3> 

2403 FORMAT (7X. ' REM SPECIAL INPUT VALUES'/ # 9-..F9.3) 

•••■»■ 

1 

2 /X, • Kfcj"! ' * _ , ■ , ~, n c 

nil 57. 102-' , Gl 1 . 5, / 103- f Gil . 5 , 


TIMEO(',A3,M',5X, 'TIMENDf', A3,' 
' DTI ME I (' , A3, ' ) ' , 5X, 'OUTPOT(',A3,')'/ 
7X, ' REM '.GU.5,6X,G11.5,6X,G11.S,6X,G11..5/ 
11X, ' 101-' , Gil . 5, ' , 102-' ,G11.5, ' , 


2407 FORMAT (11X,' NLOOP-', 16,', DR ^ C * - ' ' F j* ’ ® , ft7 

2501 FORMAT (11X, 12, IX, ' SREGION' , 12, , < ,*23, ), ,A7, 

l 9 SURFACE AREAS ( IN * * 2) ' } 

2502 FORMAT (11X, 

25024 FORMAT (1 IX, 

25023 FORMAT (UX, 

25022 FORMAT (UX, 

25021 FORMAT (1 IX, 

2503 FORMAT (12X, 


ARLXCA-' , F9.6) 


2X, 4 (1PE12. 5 , * t * 

) ,1PE12.5) 

2X, 3 (1PE12. 5, ' , ' 

) , 1PE12 . 5) 

2X, 2(1PE12.5,',' 

) , 1PE12 ,5) 

2X, 1PE12. 5 , 9 t * 

, 1PE12.5) 

2X, 1PE12.5) 



niv T7 EN 2QX 'S TANK OUTSIDE SURFACE AREAS <IN**2)') 

2504 FORMAT(11X ' I2 ' comm ; n/ u SER1/ NT HETA,NBETAS,NTUNIT,BETA RIN.TVOL' 

_ XC 2 , XCj, ) 


2602 FORMAT {'F 

2603 FORMAT ('F 

2604 FORMAT (' F 

1 'F 

2 'F 

3 'F 

4 ' F 

5 ' F 

2605 FORMAT {'F 

1 ' F 

2610 FORMAT (' M' , 6X, 

1 

2 

3 

4 


COMMON /USER2/ PTIME, DELTIM, XCl, 
COMMON/ 1 NS A /SARIN < r , 15 , ' ) r / 
COMMON /OUT SA/SAROUT { ' , 15 , ' ) * / 
COMMON /SURFT/T SURF (',I5,') # / 
COMMON / BND YT /T BD Y (',15,')'/ 
COMMON / HTRCO/ HCOEF {',15,')'* 

COMMON/ SURFQ/Q SURF < " , 1 5 r ' ) ' ) 

DIMENSION X (', 15, '}' , 46X/ 

NDIM- ' , 15) 

NTHETA- Kl' / 


M' ,6X, 'NBETAS- K2 
' M ' , 6X, ' BETA -XK3 
9 M r , 6X, ' RIN 
M' , 6X, ' TVOL 


/ 
/ 

-XK4 ' / 
-XK5' ) 
-XK6' / 
-XK7'/ 
-XK8' / 
-XK9' ) 


2611 FORMAT {' M' , 6X, ' XCl 

1 'M',6X, 'XC2 

2 ' M' , 6X, ' XC3 

3 'M',6X, 'XC4 

2612 FORMAT (' M' , 6X, 'NTUNIT- K10' ) 

2613 FORMAT {' F' , 6X, 'DO 120 1-1, NTHETA'/ 

6 ' M' , 6X # 9 SARIN (I) -A(l + I)'/ 

7 ' M' i 6X, ' SAROUT (I) -A (2+1 ) ' / 

g 9 F 120 CONTINUE') 

26141 FORMAT (' F',6X,'HH- ', G14. 6, ' /144 ' / 

1 9 F' , 6X, ' DO 272 1-1, NTHETA'/ 

2 ' F' , 6X, ' IMl-I-1' / 

3 'M',6X,'G(1800X+IMD- HH* SARIN { I) ' 

4 ' F 272 CONTINUE' ) 

26142 FORMAT (' F' , 6X, ' HL- Gl 4 . 6, 9 /144 . ' / 

' F' , 6X, ' HV- G14 . 6, ' /144 . / 

'F',6X,'DO 272 I-1,M3/ 

* F' , 6X, ' IM1-I-1' / 

* M' t 6X, ' G (18001 + IMl ) - HL* SARIN (I) ' 
'F 272 CONTINUE'/ 

'F r ,6X,'DO 273 I-' , 13 , ' , ' / 1 3/ 
'F',6X,'IM1-I-1'/ 

'M' ,6X, 'G (18001+IMl) - HV* SARIN ( I) 1 
'F 273 CONTINUE') 

2630 FORMAT (UX, A6) 

26311 FORMAT ('M TIMEO 


1 

2 

3 

4 

5 

6 
7 
0 
9 


XK101' / 


3 


CRY30100 
CRY301 10 
CRY30120 
CRY30130 
CRY301 40 
CRY30150 
CRY30160 
CRY30170 
, /CRY30180 
CRY301 90 
CRY30200 
CRY30210 
/ CRY30220 
CRY30230 
CRY30240 
CRY30250 
CRY30260 
CRY30270 
CRY30280 
CRY30290 
CRY30300 
CRY30310 
CRY30320 
CRY30330 
CRY30340 
CRY30350 
CRY303 60 
CRY30370 
CRY30380 
) CRY30390 

CRY30400 
CRY30410 
CRY30420 
CRY30430 
CRY30440 
CRY304 50 
CRY30460 
CRY30470 
CRY30480 
CRY30490 
CRY30500 
CRY30510 
CRY30520 
CRY30530 
CRY30540 
CRY30550 
CRY305 60 
CRY30570 
CRY30580 
CRY30590 
CRY30600 
CRY30610 
CRY30620 
CRY30630 
CRY30640 
CRY30650 
CRY30660 
CRY30670 
CRY30680 
CRY30690 
CRY30700 
CRY30710 
CRY30720 
CRY30730 
CRY30740 
CRY307 50 
CRY30760 
CRY30770 
CRY30780 
CRY30790 


191 



1 ' M 

2 ' M 

26312 FORMAT (' M 

2632 FORMAT ('M 

1 'M 

2 ' M 

3 ' M 


TIMEND- XK102'/ 
OUTPUT- XK104') 
DTIMEI- XK1Q3') 


TIMEO - 0.0 '/ 

TIMEND- 0.0 '/ 

DTIMEI- 0.0 '/ 

OUTPUT- 0.0 ') 

2701 FORMAT (' F' , 6X, ' PTIME -TIMEO 7 / 

1 ' F' , 6X, 7 DELTIM-DTIMEU' / 

2 'F',6X, 'DO 270 1-1, NTHETA' / 

3 ' F' , 6X, ' IM1-I-1' / 

4 ' M' , 6X, 'TSURF (I)-T (1001+IM1) ' / 

5 'F 270 CONTINUE 7 ) 

2702 FORMAT (' F' , 6X, ' DO 271 1-1, NTHETA'/ 

1 ' F' , 6X, ' IM1 -1-1 ' / 

2 'M' , 6X, 'T (1B001+IM1) -TBDY (I)'/ 

3 ' M' , 6X, ' Q (1001 + IM1) -Q (1001 + IM1) +QSURF (I) '/ 

4 ' M' , 6X ( 'G (18001+IMl) -HCOEF (I) *SARIN {I)'/ 

5 # F 271 CONTINUE') 

2901 FORMAT (1 IX, ' TP RNTF' ) 

3001 FORMAT (' THE INPUT VALUE FOR TYPE OF ANALYSIS IS OUT OF RANGE'/ 
1 ' MUST BE FROM 1 TO 4; TRY AGAIN.') 

30021 FORMAT (//' TEMPERATURE INSIDE OF TANK IS DEFINED , 

1 F9.2, ' DEG ' , Al/ 

2 ' WANT TO INPUT H TO COMPUTE CONVECTION COEFICIENT G-H*A? 

3 /' TYPE IN Y OR N') 

30022 FORMAT (//' TEMPERATURES INSIDE OF TANK ARE DEFINED TL-' , 

1 F8 . 2, ' DEG ' , Al , ' AND TV-',F0.2,' DEG ',A1/ 

2 ' WANT TO INPUT HL AND HV TO COMPUTE CONVECTION', 

3 ' COEFICI ENTS G-H*A?' // 

4 ' TYPE IN Y OR N' ) 

30031 FORMAT (//' TYPE IN FILM COEFFICIENT H 

30032 FORMAT {//' TYPE IN FILM COEFFICIENT HL 
TYPE IN FILM COEFFICIENT HV 

INPUT ERROR '/ 

THE ONLY CORRECT RESPONSE 
TRY THIS INPUT AGAIN') 

CALL ' , A6) 


(BTU/HR-FT2-R) ' ) 
(BTU/HR-FT2-R) ' ) 
(BTU/HR-FT2-R) ' ) 


IS 


H, M, OR S'/ 


30033 FORMAT (// 

3004 FORMAT {// 

1 
2 

6789 FORMAT ('F 
END 

C471SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
SUBROUTINE SPLINP (XI , X2, X3 , X4) 

CALLED FROM SNBLKS(47) 

C SPECIAL INPUT DATA FOR NTYPE-1 , (SPHERE) OR NTYP-2, (CYLINDER) 

AND REGNS ( 4 ) - . F . 

THIS SUBROUTINE MAY NEED TO BE CHANGED WHEN NEW FILL PROCEDURES 
ARE ADDED TO THE SYSTEM IF INPUTS OTHER THAN THE CURRENT ONES 
ARE REQUIRED. 

PRESENT INPUTS ARE: 

NTYP-1 AND NAN-3 SPHERE, THICK WALL FILL 


COMMON /REGION/ NTHETA, NBETAS, BETA, RIN, TVOL, ROUT (9) , 

1 REGNS (9) , NLAYRS { 9) , TEMPS (9) , THICK{9) , 

2 THKLAY (9) , MATRLS (9) , MATNMS (9) , RGNNMS (9) 
COMMON /GEOMTY/ NTYP , NAN, GEOM (2 ) 


C 


C 


C 

C 

C 

C 

c 

c 


LOGICAL REGNS 

CHARACTER* 1 YN 
CHARACTER* 8 GEOM 
CHARACTER* 16 MATNMS 
CHARACTER* 25 RGNNMS 


IF (NTYP .EQ. 1) THEN 
IF (NAN .EQ. 3} THEN 

A FILL ON A THICK WALL SPHERE NTYP-1, NAN-3 

LIQUID FLOW RATE (LB/HR) 

LIQUID TEMPERATURE (DEG F/R) 

VAPOR TEMPERATURE (DEG F/R) 

FILL THE TANK HOW FULL? (%) 


CRY30800 
CRY30810 
CRY30820 
CRY30830 
CRY30840 
CRY30850 
CRY30860 
CRY30870 
CRY30880 
CRY3O0 90 
CRY30900 
CRY30910 
CRY30920 
CRY30930 
CRY30940 
CRY30950 
CRY30960 
CRY30970 
CRY30980 
CRY30990 
CRY31000 
CRY31010 
CRY31020 
CRY31030 
' CRY31040 
CRY31050 
CRY31060 
CRY31070 
CRY31080 
CRY31090 
CRY311 00 
CRY311 10 
CRY31120 
CRY31130 
CRY31140 
CRY311 50 
CRY311 60 
CRY31170 
CRY31180 
CRY31190 
CRY31200 
CRY31210 
CRY31220 
CRY31230 
CRY31240 
CRY31250 
CRY31260 
CRY31270 
CRY31280 
CRY31290 
CRY31300 
CRY31310 
CRY31320 
CRY31330 
CRY31340 
CRY31350 
CRY31360 
CRY31370 
CRY31380 
CRY313 90 
CRY31400 
CRY31410 
CRY31420 
CRY31430 
CRY31440 
CRY314 50 
CRY31460 
CRY31470 
CRY314 00 
CRY314 90 
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c NAME OF LIQUID (FROM MATERIAL DATA BASE) 

CALL CLEARS 
PRINT 2008 
CALL READRE (FFLOW) 

PRINT 20Q9 / MATNMS (9) 

CALL READRE (TLIQ) 

PRINT 2010 , MATNMS ( 9) 

CALL READRE (TGAS) 

PRINT 2011 

CALL READRE (PCTFIL) 

PRINT 2012 
CALL READAL (1 , YN) 

IFIYN .EQ. ' Y' ) THEN 
CALL MATMNU { 6) 

ENDIF 
XI- FFLOW 
X2- TLIQ 
X3- TGAS 
X4- PCTFIL 
ENDIF 
ENDIF 
RETURN 
C FORMATS 

2008 FORMAT { 

1 

2009 FORMAT ( 

1 

2010 FORMAT { 

2011 FORMAT ( 

2012 FORMAT { 

1 


SPECIAL INPUT FOR TANKFILL PROCEDURES' / 

TYPE IN FLUID FLOW RATE (LB/HR) ' ) 

TYPE IN FLUID TEMPERATURE (DEG R) ' / 

NOTE: TEMPERATURE UNITS MUST BE DEG R.') 

TYPE IN VAPOR TEMPERATURE (DEG R) ' ) 

FILL THE TANK HOW FULL? TYPE IN PERCENT TO FILL') 
DO YOU NEED MATERIAL PROPERTIES FOR THE LIQUID?'/ 
TYPE Y OR N' ) 


END 


C474SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 

SUBROUTINE INSERT 

CALLED FROM “< 47 > 

C SUBROUTINE TO INSERT THE SOURCE CODE OF FLUID SUBROUTINES 

INTO THE SINDA MODEL. 

FILEDEF THE PROPER FILE USING DOJCL 
THE FILENAME WILL BE ' CRYOSUBS "XCUTl"' 

THIS FILE MUST!! IS! BE LRECL-80, RECFM-FIIM 
THEN OPEN FORTRAN UNIT 36 ON THAT FILE 
READ 36 AND WRITE TO MODU 


COMMON/UNITS/ MODU, INPEKO, ISCRCH, SINDA 

COMMON /SUBRTS/ SPLIPT, XCUTl , XCUT2, VBLBL1, VBLBL2 , OUTBLK 


LOGICAL SPLIPT 
LOGICAL SINDA 


CHARACTER* 1 Ll 
CHARACTER* 7 9 LINE 
CHARACTER* 2 EM 
CHARACTER*30 FILD1 
CHARACTER* 40 FILDEF 

CHARACTER* 6 XCUTl, XCUT2, VBLBL1, VBLBL2, OUTBLK 


DATA FILD1/' FILEDEF CRYSUBS DISK CRYOSUBS '/ 
DATA EM /' M'/ 


C WRITE FORTRAN “END" FOLLOWING LAST LINE OF OUTPUT BLOCK 
WRITE (MODU, 2000) 

C FILEDEF THE PROPER SOURCE FILE 
FILDEF-FILD1//XCUT1//EM 
C FI LDEF-FILD1//XCUT1/ /' A' 

CALL DOJCL (FILDEF) 

OPEN (UNIT-36, FILE-' CRYSUBS' ) 

C 

101 READ (3 6 , 1001, END-500) Ll , LINE 
IF (Ll .EQ. ' ') THEN 
WRITE (MODU, 2001) LINE 


CRY31500 

CRY31510 

CRY31520 

CRY31530 

CRY31540 

CRY31550 

CRY31560 

CRY31570 

CRY31580 

CRY31590 

CRY31600 

CRY31610 

CRY31620 

CRY31630 

CRY31640 

CRY31650 

CRY31660 

CRY31670 

CRY31680 

CRY31690 

CRY31700 

CRY3171Q 

CRY31720 

CRY31730 

CRY317 40 

CRY31750 

CRY31760 

CRY31770 

CRY31780 

CRY317 90 

CRY31800 

CRY31810 

CRY31620 

CRY31830 

CRY31840 

CRY31850 

CRY318 60 

CRY31870 

CRY31880 

CRY31890 

CRY31900 

CRY31910 

CRY31920 

CRY31930 

CRY31940 

CRY31950 

CRY31960 

CRY31970 

CRY31980 

CRY31990 

CRY32000 

CRY32010 

CRY32020 

CRY32030 

CRY32040 

CRY32050 

CRY32060 

CRY32070 

CRY32080 

CRY32090 

CRY32100 

CRY32110 

CRY321 20 

CRY32130 

CRY32140 

CRY32150 

CRY32160 

CRY32170 

CRY32180 

CRY32190 


193 


ELSE 

WRITE (MODU, 2002) LINE 
ENDIF 
GO TO 101 
500 CLOSE (UNIT-36) 

CALL DOJCL (' FILEDEF CRYSUBS CLEAR' ) 

RETURN 

C FORMAT STATEMENTS 
1001 FORMAT <A1,A7 9) 

2000 FORMAT (' F END' ) 

2001 FORMAT (' F' , A7 9) 

2002 FORMAT (' C' ,A79) 

END 

C48SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
SUBROUTINE GEOPLT 

CALLED FROM SINTRU(4) 

C PLOT ROUTINES FOR CRYOTRAN 

C THE PLOT ROUTINES ARE CALLED FROM SUBROUTINE SINTRU (22) 

C THEY PRODUCE PLOTS OF THE GEOMETRY, SPHERE OR CYLINDER, 

C THAT THE USER HAS DEFINED WITHIN THE CRYOTRAN SYSTEM. 

C THE CURRENT PLOTTING SYSTEM BEING USED ARE: 

C 1. THE DISPLA SYSTEM TO PLOT SPHERE GEOMETRIES 

C 2. THE DISPLA SYSTEM TO PLOT CYLINDER GEOMETRIES 

C THE PLOTTING SUBROUTINES ARE IN THE FILE CRYOPLOT FORTRAN. 

C 

C SUBROUTINE TO PLOT THE GEOMETRY 
C DISSPLA PLOTTING CALLS. 

C 

COMMON/UNITS/ MODU, INPEKO, ISCRCH, SINDA 
COMMON /GEOMTY/ NTYP , NAN, GEOM ( 2 ) 

C 

CHARACTER* 1 YN, YES 
CHARACTER* 8 GEOM 
C 

LOGICAL PLOTSS 

C 

DATA YES / ' Y # / 

DATA PLOTSS /.FALSE./ 

C 

CALL CLEARS 
PRINT 2001 
READ (5, 1001) YN 
WRITE (INPEKO, 1001) YN 
IF (YN .EQ. YES) THEN 
PLOTSS-. TRUE. 

CALL PLTSPH (481) 

IF (NTYP .EQ. 1) CALL PLTSPH 

CALL PLTCYL (482) 

IF (NTYP .EQ. 2) CALL PLTCYL 
ENDIF 
RETURN 
C 

ENTRY PLTDUN 

CALLED FROM MAIN PROGRAM WHEN EXITING CRYOTRAN 
C TO CALL DONEPL (DISSPLA SUBROUTINE IN PLOT SUBROUTINE) 

C IF PLOTS HAVE PEEN PRODUCED 

C 

IF (PLOTSS) CALL DUNPLT 
RETURN 
C 

1001 FORMAT (Al) 

2001 FORMAT (//' IN THE PLOTTING ROUTINE, NTYP-1; 2D SPHERE WEDGE'/ 

1 ' DO YOU WANT A PLOT OF THIS GEOMETRY?'/ 

2 ' TYPE Y OR N' ) 

END 

C5SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
SUBROUTINE VMINTR (MAINNM) 

CALLED FROM MAIN (00) 

C ENTRY TO EXECUTE ANALYSIS ROUTINES ON VM INTERACTIVELY 
C THIS SECTION OF THE CODE MUST BE CHANGED WHENEVER A NEW 


CRY32200 

CRY32210 

CRY32220 

CRY32230 

CRY32240 

CRY32250 

CRY32260 

CRY32270 

CRY32280 

CRY32290 

CRY32300 

CRY32310 

CRY32320 

CRY32330 

CRY32340 

CRY32350 

CRY32360 

CRY32370 

CRY32380 

CRY323 90 

CRY32400 

CRY32410 

CRY32420 

CRY32430 

CRY32440 

CRY324 50 

CRY32460 

CRY324 70 

CRY32480 

CRY32490 

CRY32500 

CRY32510 

CRY32520 

CRY32530 

CRY32540 

CRY325 50 

CRY32560 

CRY32570 

CRY32580 

CRY32590 

CRY32600 

CRY32610 

CRY32620 

CRY32630 

CRY32640 

CRY32650 

CRY32660 

CRY32670 

CRY32680 

CRY32690 

CRY32700 

CRY32710 

CRY32720 

CRY32730 

CRY32740 

CRY32750 

CRY327 60 

CRY32770 

CRY32780 

CRY32790 

CRY32800 

CRY32B10 

CRY32820 

CRY32830 

CRY32840 

CRY32850 

CRY328 60 

CRY32870 

CRY3280O 

CRY328 90 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


INTERACTIVE ANALYSIS PROGRAM IS ADDED TO THE SYSTEM. THE 
NAMES OF THESE PROGRAMS WILL BE ADDED TO THE ARRAY MAINNM 
AND THE CORRESPONDING VALUE IN ARRAY NSRUNM WILL BE - 2. 

FOR THESE PROGRAMS THE OUTPUT WILL GO TO BOTH THE SCREEN 

AND A DISK FILE NAMED "PROGRAM OUTPUT". THE FILE PROGRAM OUTPUT 

IS FORTRAN UNIT 17 AND MUST BE DEFINED PRIOR TO EXECUTION 

OF THE PREPROCESSOR PROGRAM. IN THIS INSTANCE THIS FILE IS 

FILEDEF'ED IN THE VM EXEC THAT STARTS THE EXECUTION. THE EXEC 

FILE NAME IS "RUNCRYO EXEC". 

INSERT ENOUGH INPUT INFORMATION TO DETERMINE MATERIAL PROPERTIES 

NEEDED FOR THE REQUESTED ANALYSIS ROUTINE, 

THEN CALL MATERIAL SUBROUTINES TO GET THE NECESSARY MATERIAL 
PROPERTIES FROM THE DATABASE AND INTO THE REQUIRED FORM. 

THE ANALYSIS ROUTINES MUST BE CHANGED TO CALL PROPERTY ROUTINES 

WITHIN THE SYSTEM. 


COMMQN/GEOMTY/ NTYP, NAN, GEOM (2 ) 


CHARACTER* 6 MAINNM 
CHARACTER* 8 GEOM 


CALL CLEARS 

IF (NAN .EQ. 1) CALL NVFILL 

IF (NAN .EQ. 2) CALL CHILL 

IF (NAN .EQ. 3} CALL TARGET 

PRINT 2004 , MAINNM 
RETURN 

C FORMAT STATEMENTS 
2004 FORMAT (///' END OF PROGRAM 
1 ' THE OUTPUT IS IN A 


* , A6/ 

FILE NAMED 


"PROGRAM OUTPUT".'/ 


RETURNING TO MAIN PROGRAM OF SYSTEM.') 


END 


C6SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 

SUBROUTINE NOSIND (NRUNON) 

FROM MAIN \UUJ 

CALL subroutine to run thermodynamics program with NO SINDA ANALYSIS' 
THIS NEEDS FURTHER WORK. 

1 CRAY JCL TO GET ON AND COMPILE THE MAIN PROGRAM 

2 INPUT DATA FOR THE ANALYSIS 
OR AS AN ALTERNATE INPUT DATA FILE IS STORED ON CRAY 
AND USER IS PROMPTED FOR THE NAME AND THIS IS INSERTED 
INTO FILE 1 AS AN ACCESS AND ASSIGN; OR COPY INPUT 
DATA FILE INTO A COMMON DATA FILE. 


FILE 

FILE 


COMMON/ GEOMTY/ NTYP, NAN, GEOM (2 } 

COMMON/UNITS/ MODU, INPEKO, ISCRCH, SINDA 

COMMON /SUBRTS/ SPLIPT, XCUTl , XCUT2 , VBLBLl , VBLBL2 , OUTBLK 


LOGICAL SPLIPT 

CHARACTER* 6 XCUTl, XCUT2, 
CHARACTER* 8 GEOM 


VBLBLl, VBLBL2 , OUTBLK 


C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


LOGICAL UNICOS 

RUN AN ANALYSIS WITHOUT A SINDA MODEL GENERATED BY CRYOTRAN. 

TEST VARIABLE NRUNON, 

IF NRUNON - 1 RUN ANALYSIS ON CRAY. 

IF NRUNON - 2 RUN ANALYSIS ON VM IN INTERACTIVE MODE. 

THE ANALYSIS IS A SUBROUTINE OF THIS SYSTEM, 
AND WILL BE CALLED FROM AN ENTRY (VMINTR) IN 
SUBROUTINE MENU 2 . VMINTR IS CALLED FROM MAIN. 
IF NRUNON - 3 RUN ANALYSIS ON VM IN BATCH MODE. 

IF (NRUNON .EQ. 1) THEN 

THIS ANALYSIS IS TO GO ON THE CRAY 
PREPARE A FILE NAMED CRYOTRAN MODEL WHICH WILL 
CONTAIN CRAY JCL AND INPUT DATA TO SUBMIT TO CRAY 
TO RUN AN ANALYSIS WITH NO SINDA. 


CRY32900 

CRY32910 

CRY32920 

CRY32930 

CRY32940 

CRY32950 

CRY32960 

CRY32970 

CRY32980 

CRY32990 

CRY33000 

CRY33010 

CRY330 20 

CRY33030 

CRY33040 

CRY33Q50 

CRY33060 

CRY33070 

CRY33080 

CRY33090 

CRY331 00 

CRY331 10 

CRY331 20 

CRY331 30 

CRY331 40 

CRY331 50 

CRY33160 

CRY33170 

CRY33180 

CRY331 90 

CRY33200 

CRY33210 

CRY33220 

CRY33230 

CRY33240 

CRY33250 

CRY33260 

CRY33270 

CRY33280 

CRY332 90 

CRY33300 

CRY33310 

CRY33320 

CRY33330 

CRY333 40 

CRY333 50 

CRY333 60 

CRY33370 

CRY33380 

CRY33390 

CRY33400 

CRY33410 

CRY33420 

CRY33430 

CRY334 40 

CRY334 50 

CRY334 60 

CRY33470 

CRY334 80 

CRY334 90 

CRY33500 

CRY33510 

CRY33520 

CRY33530 

CRY33540 

CRY33550 

CRY33560 

CRY33570 

CRY33580 

CRY33590 
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c 

CALL 


GETJCL (41) 


CALL 


GET THE CRAY JCL INFO FROM THE USER 
CALL GETJCL (UNICOS) 

WRITE FIRST PART OF FILE 1 ON UNIT MODU, CRAJCL FILE. RITJCL(41) 
CALL RITJCL 
IF (UNICOS) THEN 

C THIS BLOCK FOR UNICOS JCL 

CALL INDAT1 TO DETERMINE WHERE THE DATA FILE RESIDES 

C WHEN DATA FILE RESIDENCE IS FOUND, IF NOT STORED ON CRAY 

C INDAT2 WILL DETERMINE LOCATION AND WRITE JCL TO GET IT. 

CALL INDAT1 (61) 

CALL I NDAT1 (UNICOS) 

CALL INDAT2 
ELSE 

C THIS BLOCK FOR COS JCL 

C WRITE CRAY COS JCL TO UNIT MODU TO COMPILE MAIN PROGRAM 
WRITE (MODU, 3001) 

WRITE (MODU, 3002) 

C NOW GET INPUT DATA FOR THE ANALYSIS PROGRAM INDAT1 (39A) 

CALL INDAT1 (UNICOS) 

WRITE (MODU, 3003} XCUT1 

C WRITE LAST PART OF CRAY COS JCL 
CALL RITJC2 

C WRITE A MAIN PROGRAM TO UNIT MODU WHICH CALLS ON THE DESIRED 

O ANALYSIS SUBROUTINE 

WRITE (MODU, 3010) XCUT2, XCUT1 
CALL INDAT2 
ENDIF 
ENDIF 

IF (NRUNON . EQ. 2) THEN 

THIS ANALYSIS IS RUN ON THE VM SYSTEM IN INTERACTIVE MODE. 

CALL VMINTR THIS CALL IS IN THE MAIN PROGRAM. 

ENDIF 

IF (NRUNON .EQ. 3) THEN 

THIS ANALYSIS IS RUN ON THE VM SYSTEM IN BATCH MODE. 

THIS FEATURE IS NOT YET IN THE SYSTEM. 

ENDIF 
RETURN 


C FORMAT STATEMENTS 

C FORMAT STATEMENTS TO PRODUCE COS RUNSTREAM 

3001 FORMAT (' CFT7 7. ' ) 

3002 FORMAT (' ACCESS, DN-CRPROC, PDN-CRYOTRANPROCS, ID-CFTO, OWN-CRYOLIB .' / 

1 ' LIBRARY, DN-* rCRPROC . ' ) 

3003 FORMAT (A6, ' ) 

3010 FORMAT ('C MAIN PROGRAM - THIS ANALYSIS IS',A20/ 

2 6X, ' CALL ' ,A6/ 

3 6X, ' STOP ' / 6X, ' END' / '/EOF.') 

END 

C61SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
SUBROUTINE INDAT1 (UNICOS) 

CALLED FROM NOSIND (6) 

C SUBROUTINE TO GET THE INPUT DATA FOR AN ANALYSIS PROGRAM. 

C SUBROUTINE HAS 2 ENTRY POINTS — INDAT1 AND INDAT2 
C ENTRY INDAT1 INTERROGATES USER AS TO SOURCE OF INPUT DATA 
C IF DATA IS ON CRAY, WRITE ACCESS AND ASSIGN STATEMENTS (CRAY JCL) . 
C ENTRY INDAT2 USED WHEN DATA IS ON VM OR TYPED IN AT RUN TIME 

C AND WRITES FILE 3 TO UNIT 10 

C IF DATA IS ON VM IT MUST!!! BE LRECL-80, AND RECFM-F; 

C THAT IS, FIXED FORMAT AND LINE LENGTH -80. 

C 

COMMON/UNITS/ MODU, INPEKO, ISCRCH, SINDA 


CHARACTER* 2 
CHARACTER* 20 
CHARACTER* 15 
CHARACTER* 20 
CHARACTER* 40 
CHARACTER* 63 


NCBCD 

FNFTFM 

PDN, PID, POWN 
FILCOM 
FILDEF 
FMTOC 


CHARACTER* 80 DLINE 


CRY33600 

CRY33610 

CRY33620 

CRY33630 

CRY33640 

CRY33650 

CRY33660 

CRY33670 

CRY33680 

CRY33690 

CRY33700 

CRY33710 

CRY33720 

CRY33730 

CRY33740 

CRY337 50 

CRY337 60 

CRY33770 

CRY33780 

CRY33790 

CRY33600 

CRY33810 

CRY33820 

CRY33830 

CRY33840 

CRY33850 

CRY3306O 

CRY3307O 

CRY338B0 

CRY33890 

CRY33900 

CRY33910 

CRY33920 

CRY33930 

CRY33940 

CRY33950 

CRY33960 

CRY33970 

CRY33980 

CRY33990 

CRY34000 

CRY34010 

CRY34020 

CRY34030 

CRY34040 

CRY34050 

CRY340 60 

CRY34070 

CRY34080 

CRY34090 

CRY341 00 

CRY341 10 

CRY34120 

CRY341 30 

CRY34140 

CRY34150 

CRY341 60 

CRY34170 

CRY341 80 

CRY341 90 

CRY34200 

CRY34210 

CRY34220 

CRY34230 

CRY34240 

CRY342 50 

CRY342 60 

CRY34270 

CRY34280 

CRY34290 
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CRY34300 

CRY34310 

CRY34320 



CHARACTER* 46 XEDITF 


CRY34330 


CHARACTER* 6 XEDIT1 


CRY34340 


CHARACTER* 20 XEDIT2 


CRY34350 


DATA XEDIT1/' XEDIT '/ 

NOMSG'/ 

CRY34360 


DATA XEDIT2/' (PROF LRECFIX 

CRY34370 

c 



CRY34380 

C 

LOGICAL UNICOS 


CRY34390 
CRY344 00 


LOGICAL EXS, OPN 


CRY344 10 

c 

DATA FMTOC/' (" ACCESS, DN-INPDAT, PDN-" , A15, ' ' , ID-" , A1 5, " 

' t OWN - ' ' , CRY3 44 20 
CRY34430 


1A1S," 

DISK '/ 

CRY344 40 


DATA FILCOM/' FILEDEF VMDATA 

CRY344 50 

c 

CALL CLEARS 


CRY344 60 
CRY34470 


11 PRINT 2005 


CRY34480 


CALL READIN (NINPD, 1, 4} 


CRY34490 

c 

IF (NINPD .EQ. 4) RETURN 
GET THE INPUT DATA IF NINPD - 

1, DATA STORED ON CRAY 

CRY34500 

CRY34510 

c 

input™ stored on^y, access file, copy to unit input 

CRY34520 

CRY34530 


IF (UNICOS) THEN 


CRY34540 


PRINT 2007 


CRY34550 


CALL READAL (2, PDN) 


CRY345 60 


CALL RITJC3 (6, PDN) 


CRY34570 


ELSE 


CRY34580 


PRINT 2010 


CRY34590 


CALL READAL (2, PDN) 


CRY34600 


PRINT 2011 


CRY34610 


CALL READAL (2, PID) 


CRY34620 


PRINT 2012 
CALL READAL ( 2 , POWN ) 

CALL NOCHRS {PDN, ' PDN' ,15, NC, NCBCD) 

FMTOC <27; 28) -NCBCD (1:2) 

CALL NOCHRS (PID, ' ID' , 8, NC, NCBCD) 

FMTOC (38:39) -NCBCD (1:2) 

CALL NOCHRS (POWN, 'OWN' ,1 5, NC, NCBCD) 

FMTOC (50:51) -NCBCD (1:2) 

WRITE (MODU, FMTOC) PDN, PID, POWN 
WRITE (MODU, 3002) 

ENDIF 

CALL RITJC3 (NINPD, PDN) 

CALL RITJC4 (NINPD) 

ENDIF 

RETURN 

ENTRY INDAT2 

input N data stored* O^VM, access file, read and copy to unit 10 

52 PRINT 2020 

CALL READAL (2, FNFTFM) 

FILDEF-FILCOM/ /FNFTFM 

NOW^READ^INPUT^DATA* FROM FILE FNFTFM AND WRITE TO UNIT 10 

open” (UNIT-36^ F FIL™' VMDATA' , IOSTAT-IOS, STATUS-' OLD' , ERR-65) 

PRINT OPEN UNIT 36 VMDATA , IOSTAT-' , IOS 

INQUIRE (FILE-' VMDATA' , IOSTAT-IOS, EXIST-EXS, i DPENE D-OP , 

PRINT *, ' INQUIRE ON VMDATA FILE' , IOS, EXS, OPN, IRCL 
CALL RITJC3 (NINPD, FNFTFM) 

60 READ (36, 1003, END-75) DLINE 
WRITE (MODU, 1003) DLINE 

65 PRINT *!' ERROR WHEN ATTEMPTING TO OPEN UNIT 36, IOS-' , IOS 
PRINT FIDE FNFTFM, ') DOES NOT EXIST' 

CLOSE (UNIT-36) 

CALL DOJCL (' FILEDEF VMDATA CLEAR') 


CRY34630 

CRY34640 

CRY34650 

CRY34660 

CRY34670 

CRY34680 

CRY34690 

CRY34700 

CRY347 10 

CRY34720 

CRY34730 

CRY34740 

CRY34750 

CRY34760 

CRY34770 

CRY34780 

CRY34790 

CRY34800 

CRY34810 

CRY34820 

CRY34830 

CRY34840 

CRY34850 

CRY34660 

CRY34870 

CRY34880 

CRY34890 

CRY34900 

CRY34910 

CRY34920 

CRY34930 

CRY34940 

CRY34950 

CRY34960 

CRY34970 

CRY34980 

CRY34990 


197 



PRINT TYPE IN NAME OF DATA FILE ON VM' 

GO TO 52 
75 CONTINUE 

CALL RITJC4 (NINPD) 

CLOSE (UNIT-36) 

CALL DOJCL (' FILEDEF VMDATA CLEAR' ) 

END IF 

IF {NINPD .EQ. 3) THEN 

C INPUT DATA TO BE TYPED IN AT THIS POINT AND WRITTEN TO UNIT 10 
PRINT 2030 

CALL RITJC3 (NINPD, 'TERMINAL ') 

101 READ (5, 1003) DLINE 

WRITE (INPEKO, 1003) DLINE 
IF (DLINE (1 : 9) . NE , ' ENDOFMYDATA' ) THEN 

WRITE (MODU, 1003) DLINE 
GO TO 101 
ENDIF 

CALL RITJC4 (NINPD) 

ENDIF 

PRINT 2040 
RETURN 
C FORMATS 
1003 FORMAT (A80) 

2005 FORMAT (' NOW WE NEED THE INPUT DATA FOR THE ANALYSIS'/ 

1 'THIS INPUT DATA CAN BE:'/ 

2 ' 1 STORED ON CRAY'/ 

3 ' 2 STORED ON VM' / 

4 ' 3 TYPED IN NOW'/ 

5 ' 4 NO INPUT DATA FOR THIS ANALYSIS'/ 

6 ' TYPE IN 1 2 3 OR 4') 

2007 FORMAT (' ANALYSIS INPUT DATA IS STORED ON CRAY'/ 

1 ' IT MUST BE IN YOUR HOME DIRECTORY'/ 

2 ' TYPE IN THE FILE NAME OF THE INPUT DATA'} 

2010 FORMAT (' ANALYSIS INPUT DATA IS STORED ON CRAY'/ 

1 ' TYPE IN (PDN) THE PERMANENT DATASET NAME') 

2011 FORMAT ( ' TYPE IN (ID) THE ID OF PDN.') 

2012 FORMAT (' TYPE IN (OWN) THE OWNER OF PDN.'} 

2020 FORMAT (' ANALYSIS INPUT DATA IS STORED ON VM' / 

1 ' NOW WE NEED FILE NAME; FILE TYPE; FILE MODE'/ 

2 ' TYPE IN FN FT FM' } 

2030 FORMAT {' THE ANALYSIS INPUT DATA IS TO BE TYPED IN NOW'/ 

1 ' START TYPING IN THE INPUT DATA.'/ 

2 ' WHEN ALL THE DATA IS TYPED IN THE NEXT LINE MUST'/ 

3 ' BE ENDOFMYDATA' / 

4 'THIS WILL STOP THE READING AND CONTINUE THE PROGRAM.') 
2040 FORMAT (' THE INPUT DATA IS NOW ALL IN.') 

3002 FORMAT (' ASSIGN, DN-INPDAT, A-FT05. ' ) 

END 


CRY35000 

CRY35010 

CRY35020 

CRY35030 

CRY35040 

CRY35050 

CRY35060 

CRY35070 

CRY35080 

CRY35090 

CRY35100 

CRY35110 

CRY351 20 

CRY351 30 

CRY351 40 

CRY35150 

CRY35160 

CRY35170 

CRY35180 

CRY351 90 

CRY35200 

CRY35210 

CRY35220 

CRY35230 

CRY35240 

CRY35250 

CRY35260 

CRY35270 

CRY35280 

CRY35290 

CRY35300 

CRY35310 

CRY35320 

CRY35330 

CRY35340 

CRY35350 

CRY35360 

CRY35370 

CRY35380 

CRY35390 

CRY35400 

CRY35410 

CRY35420 

CRY35430 

CRY35440 

CRY354 50 

CRY354 60 

CRY35470 
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APPENDIX E 


CryoTran Program Listings 
Part II CRYOSPHR FORTRAN 
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C421SSSSSSSSSSSSSSSSSSSSSSSSSS3SSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


CRY00010 


SUBROUTINE SFEERE 
CALLED FROM 

C SUBROUTINE TO INPUT SPECIFIC DATA FOR A SPHERE. 
C THIS ROUTINE IS USED FOR REGION 1 ONLY. 


REGN1 (42) 


(NTYP-1) 


CRY00020 
CRY00030 
CRY00040 
CRY00050 
CRY000 60 
CRY00070 
CRY00080 
CRY00090 
CRY00100 
CRY00110 
CRY001 20 
CRY00130 
CRY001 40 
CRY001 50 
CRY001 60 
CRY00170 
CRY001 80 
CRY0Q1 90 
CRY00200 
CRY00210 
CRY00220 

NOW INPUT THE DATA TO GET SPHERE RADII, VOLUME AND WALL THICKNESS . CRY00230 


REGION WIDTH, TEMP, MATERIAL, NO. LAYERS THRU 

COMMON /REGION/ NTHETA, NBETAS, BETA, RIN,TVOL, ROUT (9) , 

1 REGNS (9) , NLAYRS (9) , TEMPS (9) , THICK<9) , 

2 THKLAY (9) , MATRLS (9) , MATNMS (9) , RGNNMS (9) 
COMMON/STUFF/ NHTT, P I, CONVY, CONVR, THETAO, DTHETA, NBASOS, ROUTSF, 

I BNCOEF (2) 

COMMON /GEOMTY/ NTYP, NAN, GOEM (2) 

LOGICAL REGNS 


CHARACTER* 8 
CHARACTER* 16 
CHARACTER* 25 


GEOM 

MATNMS 

RGNNMS 


CALL CLEARS 
45 PRINT 2001 
50 PRINT 2002 
CALLS TO 


READIN, READRE, READAL (02) 


CRY00240 
CRY00250 
CRY002 60 
CRY00270 


CALL READIN (NN, 1, 5) 

CRY00280 

GO TO (51, 52, 52, 51,53) , NN 

CRY00290 

51 PRINT 2004 

CRY00300 

CALL READRE (RIN) 

CRY003 10 

55 TVOLIN-4./3. *PI*RIN**3 

CRY00320 

TVOL-TVOLIN/1728. 

CRY00330 

GO TO 60 

CRY00340 

52 PRINT 2005 

CRY003 50 

CALL READRE (TVOL) 

CRY00360 

RIN- ( {.7 5*TVOL/PIJ ** (1 . /3. ) ) *12. 

CRY00370 

TVOLIN-TVOL* 1728 . 

CRY00380 

GO TO 60 

CRY003 90 

53 PRINT 2006 

CRY004 00 

CALL READRE (ROUT (1) } 

CRY004 10 

60 GO TO{61, 62, 61, 62, 62, 65, 70) , NN 

CRY004 20 

61 NN-6 

CRY00430 

GO TO 53 

CRY00440 

62 PRINT 2007 

CRY004 50 

CALL READRE (WT HICK) 

CRY00460 

GO TO ( 70 , 63, 70, 63, 64), NN 

CRY004 70 

63 ROUT (1 ) -RIN+WTHICK 

CRY004 80 

GO TO 70 

CRY00490 

64 RIN-ROUT (1) -WTHICK 

CRY00500 

NN-7 

CRY00510 

GO TO 55 

CRY00520 

65 WTHICK -ROUT ( 1 ) -RIN 

CRY00530 

70 CONTINUE 

CRY00540 

THICK (1) -WTHICK 

CRY00550 

IF (ROUT (1) .LE. RIN .OR. TVOL .LE. 0.0 .OR. WTHICK . LE . 

0.0) THEN CRY00560 

CALL CLEARS 

CRY00570 

PRINT 3002 

CRY00580 

GO TO 45 

CRY00590 

ENDIF 

CRY00600 

CRY00610 

WE NOW HAVE RIN, ROUT, TNKVOL AND WALLTHICK FOR TANKWALL, 

(REGION 1 ) CRY00620 
CRY00630 

ROUT (6) -RIN 

CRY00640 

ANGLR-2 . *P I/BETA 

CRY00650 

WDGVIN-TVOLIN/ ANGLR 

CRY00660 

CALL CLEARS 

CRY00670 

PRINT 3001, TVOL, RIN, THICK(l) 

CRY00680 


CRY006 90 
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C 

C 

C 

C 

c 

c 

c 

c 

c 

c 


PRINT 2008 

CALL READIN(NTHETA, 1,200} 

IF (NTHETA .LT. 5} NTHETA-20 
dtheta-pi/ntheta 

CALL CLEARS 
PRINT 2010 

CALL READIN (NBETAS, 1,8) 

IF (NBETAS .LE. 0 .OR. NBETAS 
BETA-2 . *PI/NBETAS 
IF (NBETAS .EQ. 1) THEN 
PRINT 2010 
ENDIF 


.GT. 8) NBETAS-6 


THE REMAINING INPUT FOR REGION I IS OBTAINED FROM SUB RGNGNM42) 
(CALLED FROM SUB REGN1 (31) ) 

RFTURN 

2001 FORMAT!///' NOW INPUT SPECIFIC DATA FOR THIS SPHERE.'/ 

1 » INPUT DATA TO DEFINE THE SPHERE MAY BE ANY ONE OF: / 


2002 FORMAT (/' 

2004 FORMAT (/' 

2005 FORMAT (/' 

2006 FORMAT (/' 

2007 FORMAT {/' 

2008 FORMAT (/// 

1 ' OF 

2 

C2009 FORMAT ( 


ROUT (IN.)'/ 
WALL THICKNESS 
ROUT (IN.)'/ 
WALL THICKNESS 
WALL THICKNESS 
5') 


(IN.)'/ 

(IN.)'/ 

(IN.)') 


RIN (IN.) AND 

TNK VOL. (CU.FT.) AND 
TNK VOL. (CU.FT.) AND 
RIN (IN.) AND 

ROUT (IN.) AND 

ENTER A NUMBER 1 

ENTER INSIDE TANK RADIUS, RIN(IN.).') 

ENTER TANK VOLUME (CU.FT.).') 

ENTER ROUT (IN.) .') 

ENTER WALL THICKNESS (IN.) .') 

TYPE IN NUMBER OF NODES ALONG CIRCUMFERENCE', 

THE SPHERE.'/' SOUTH POLE TO NORTH POLE.'/ 

IF VALUE INPUT IS < 5, 20 WILL BE USED AS A DEFAULT. 

THIS IS A 3D CONFIGURATION,'/ 


r , 'INPUT NO. OF WEDGES AROUND THE SPHERE, DEFAULT -6.') 

2010 FORMAT!////' THIS IS A 2D ANALYSIS, THE WEDGE ANGLE - 1 «*<>.') 

3001 FORMAT!////' THE GEOMETRY FOR THIS ANALYSIS IS A SPHERE W 

1 ' VOL-',F8.3,' FT* *3, RIN-',F7.3,' IN., AND , 

2 > WALL THICKNESS-', F7. 4,' IN.') , 

3002 FORMAT!///' ERROR IN TYPING DATA TO DEFINE THE SPHERE. / 

Y ' INCONSISTANT VALUES WERE INPUT, TRY AGAIN.') 

C432SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 

SUBROUTINE ULLGET 

CALLED FROM RGN2TS (43) 

C 

IF THERE IS ULLAGE DETERMINE 

WHERE THE ULLAGE IS 
WHICH NODES ARE ULLAGE 
AND WHICH NODES ARE LIQUID 


SPHNDS (441) 


" ; r;n » pctful < .... ...» *« »»«* ... *»■» 

COMPUTE WHICH NODES ARE ULLAGE (VAPOR) NODES 
ULLAGE MAY BE AT THE CENTER OR AT THE TOP. 

COMPUTE NLUL4 , NLUL5 AND NT HU 41 

COMMON /REGION/ NTHETA, NBETAS, BETA, RIN, TVOL, ROUT (9), 

i REGNS (9) , NLAYRS (9) , TEMPS (9) , THICK ( 9) , 

o THKLAY (9) , MATRLS (9) , MATNMS (9) , RGNNMS (9) 

COMMON/STUFF/ NHTT, PI, CONVY, CONVR, THETA0 , DTHETA, NBASOS, ROUTSF, 

^ COMMON^ /ULLAGE/ NLUL4, NLUL5, NTHU41 , RINMHH, PCTFUL, RADULG, TVULFT , 
x CT, LG (3) , LIQVAP (3) 

LOGICAL REGNS 
CHARACTER*! CT,LG 


CRY00720 

CRY00730 

CRY00740 

CRY007 50 

CRY007 60 

CRY00770 

CRY007BO 

CRY00790 

CRY00800 

CRY00810 

CRY00820 

CRY00830 

CRY00840 

CRY00B50 

CRY00860 

CRY00870 

CRY00880 

CRY00890 

CRY00900 

CRY00910 

CRY00920 

CRY00930 

CRY00940 

CRY00950 

CRY00960 

CRY00970 

CRY00980 

CRY00990 

CRY01000 

CRY01010 

CRY01020 

CRY01030 

CRY01040 

CRY01050 

CRY01060 

CRY0 1070 

CRY01080 

CRY01090 

CRY01100 

CRY01110 

CRY0112O 

CRY01130 

CRY01140 

CRY01150 

CRYQ1160 

CRY01170 

CRY01180 

CRY01190 

CRY01200 

CRY01210 

CRY01220 

CRY0 1230 

CRY01240 

CRY01250 

CRY012 60 

CRY01270 

CRY012 80 

CRY01290 

CRY01300 

CRY01310 

CRY01320 

CRY01330 

CRY013 40 

CRY01350 

CRY01360 

CRY01370 

CRY01380 

CRY01390 
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CHARACTER* 6 LIQVAP 


CRY0 1400 


CHARACTER* 16 MATNMS 


CRY01410 


CHARACTER* 2 5 RGNNMS 


CRY01420 

c 



CRY01430 


DIMENSION H (3) 


CRY01440 

c 



CRY01450 


10 NLUL4-0 


CRY01460 


NLUL5-0 


CRY01470 

c 

PRINT IN ULLGET, NR, THICK (4) , NR, THICK (4) 


CRY014B0 


IF (CT .NE. 'F') THEN 


CRY014 90 


TVLQFT-TVOL*PCTFUL/100 . 


CRY01500 


TVULFT-TVOL-TVLQFT 


CRY01 510 


IF (CT .EQ. 'O' .OR. CT .EQ. 'O') THEN 


CRY01520 

c 

TANK IS EMPTY, ALL NODES ARE VAPOR NODES. 


CRY01530 


NLUL4- NLAYRS (4) 


CRY01540 


NLUL5- NLAYRS (5) 


CRY01550 


RETURN 


CRY015 60 


ENDIF 


CRY01570 


IF (CT .EQ. 'C') THEN 


CRY01580 

c 

FOR THE ULLAGE AT THE CENTER, CT-C, ENTIRE LAYERS WILL BE 

VAPOR 

CRY01590 

c 

THIS SECTION DETERMINES WHICH LAYERS ARE VAPOR 


CRY01600 

c 



CRY01610 


RADULG- { ( . 75 *TVULFT/PI ) **(1./3.))*12. 


CRY01620 


IF (RADULG .LE. ROUT (5)) THEN 


CRY01630 


RATIO-RADULG/THKLAY (5) 


CRY01640 


NLUL5-RATIO 


CRY01650 


FIXRAT-NLUL5 


CRY01660 


IF (RATIO-FIXRAT ,GE. 0.5) NLUL5-NLUL5+1 


CRY01670 


IF (NLUL5 .GT. NLAYRS (5) ) NLUL5-NLAYRS ( 5) 


CRY01680 


ELSE 


CRY01690 


IF (RADULG .LE. ROUT (4)) THEN 


CRY0 1700 


RTEMP- RADULG -ROUT (5) 


CRY01710 


RATIO-RTEMP/THKLAY (4) 


CRY01720 


NLUL4-RATIO 


CRY01730 


FIXRAT-NLUL4 


CRY01740 


IF (RATIO-FIXRAT ,GE. 0.5) NLUL4-NLUL4+1 


CRY01750 


IF (NLUL5 .GT. NLAYRS (4)) NLUL4 -NLAYRS (4) 


CRY01760 


NLUL5-NLAYRS (5) 


CRY01770 


ELSE 


CRY01780 


PRINT 3001 , RADULG, ROUT (4) , TVOL, TVLQFT, TVULFT 


CRY017 90 


ENDIF 


CRY01800 




CRY01810 


ENDIF 


CRY01B20 

c 

END IF BLOCK FOR CT - ' C' 


CRY01830 


ELSE 


CRY01840 


IF (CT .EQ. 'T' } THEN 


CRY01850 

c 

ULLAGE IS AT THE TOP OF THE SPHERE AND THIS IS A 0, (ZERO), 

G CASE 

CRY01860 

n 

COMPUTE NODES THAT ARE VAPOR. FOR THIS CASE, ULLAGE AT THE 

TOP, 

CRY01870 

c 

A THIN LAYER OF LIQUID WILL BE AT THE WALL. 


CRY01880 

c 

THIS OPTION IS NOT YET AVAILABLE 


CRY01890 


PRINT 3002, CT 


CRY01900 

CALL ENTRY ULLIN2 IN ULLINP (431) 

CRY01910 


CALL ULLIN2 


CRY01920 


GO TO 10 


CRY01930 


ELSE 


CRY01940 

C 

END IF BLOCK FOR CT - ' T' 


CRY01950 


IF (CT .EQ. '1') THEN 


CRY01960 

C 

CT - 1, 1G CASE, ULLAGE BUBBLE IS AT TOP AND FLAT. 


CRY01970 


NTHU41-0 


CRY01980 

C 

SOLVE THE CUBIC H**3 + P*H**2 + Q*H + R -0 


CRY01990 

C 

WITH P, Q, R; P-(-3R), Q-0, R-3V/PI 


CRY02000 

C 

FOR H, THE ROOT INSIDE THE SPHERE REPRESENTING THE 


CRY02010 

c 

DISTANCE FROM THE TOP OF THE SPHERE TO THE TOP OF THE 

ULLAGE. 

CRY020 20 

c 



CRY02030 


P--3 . 0*RIN 


CRY02040 


o 

• 

o 


CRY02050 


ULGVOL-TVULFT* 1728.0 


CRY02060 


R-3 . 0*ULGVOL/P I 


CRY02070 

CALL CUBIC 

(4321) 

CRY02080 


CALL CUBIC (P , Q\ R, N ROOTS, H) 


CRY020 90 
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C FIND THE CORRECT ROOT 
RTEST-RIN 

IF (PCTFUL .LE. 50) RTEST-2.*RIN 
DO 50 1-1,3 

IF (H (I ) .GT. 0.0 .AND. H(I) .LT. RTEST) GO TO 55 
50 CONTINUE 

PRINT *, 'ERROR, ROOT OF CUBIC NOT FOUND' 

STOP 

55 HH-H(I) 

RINMHH-RIN-HH 

C COMPUTE NTHU41, NLUL4 AND NLUL5 FOR THIS ULLAGE 
IF {HH .LT. RIN) THEN 
C %FULL > 50 AND HH < RIN 

RADULG-RINMHH 
PHI-ACOS (RADULG/RIN) 

NTHU41- (PI-PHI ) /DTHETA+1. 5 

IF (REGNS {5 ) .AND. RAD U LG . LE . ROUT<5}) THEN 
NLUL5-NLAYRS (5 ) -RADULG /THKLAY (5) 
NLUL4-NLAYRS (4) 

ELSE 

RTEMP-RADULG-ROUT (5) 

NLUL4- (NLAYRS (4) -RTEMP /THKLAY (4) >+l 
IF (NLUL4 .GT. NLAYRS (4 ) ) NLUL4-NLAYRS (4 ) 
NLUL5-0 
ENDIF 
ELSE 

C %FULL <- 50 AND HH >- RIN BUT < 2*RIN 
RADULG-HH-RIN 
PHI-ACOS (RADULG/RIN) 

NTHU41-PHI/DTHETA+0. 5 

IF (REGNS (5) .AND. RADULG .LE. ROUT (5)) THEN 
NLUL4-NLAYRS (4) 

TEMP-ROUT (5) -RADULG 
NLUL5 -TEMP /THKLAY (5) 

ELSE 

RTEMP-ROUT (4} -RADULG 
NLUL4- RTEMP /THKLAY (4) 

NLUL5-0 

ENDIF 


ENDIF 

RADULG-PHI 

C END IF BLOCK FOR CT - 
ELSE 

C CT IS NOT ' C' , NOR ' T' , 
C SOMETHING IS WRONG,, 
PRINT 3003 


CALL 


CALL ULLIN2 


' 1 ' 

NOR '1', AND %FULL < 100. 
INPUT ULLAGE INFO AGAIN. 

ENTRY ULLIN2 


GO TO 10 


IN ULLINP {431} 


CRY0 21 00 
CRY02110 
CRY021 20 
CRY02130 
CRY021 40 
CRY021 50 
CRY021 60 
CRY02170 
CRY021 80 
CRY02190 
CRY02200 
CRY022 10 
CRY02220 
CRY02230 
CRY022 40 
CRY022 50 
CRY02260 
CRY02270 
CRY02280 
CRY02290 
CRY02300 
CRY023 10 
CRY02320 
CRY02330 
CRY023 40 
CRY02350 
CRY02360 
CRY02370 
CRY02380 
CRY023 90 
CRY024 00 
CRY024 10 
CRY024 20 
CRY024 30 
CRY024 40 
CRY024 50 
CRY02460 
CRY02470 
CRY02480 
CRY0 2 4 90 
CRY02500 
CRY02510 
CRY02520 
CRY02530 
CRY02540 
CRY025 50 
CRY025 60 
CRY0 25 70 
CRY02580 


C 

c 

c 


ENDIF 

ENDIF 

ENDIF 

ENDIF 

PRINT ULLAGE CALCULATIONS' 

PRINT *, PCTFUL, T VOL, TVLQFT, TVULFT, RADULG 
RETURN 

FORMAT STATEMENTS 


)01 FORMAT { 
1 
2 

3' TANK 
)02 FORMAT { 
1 


103 FORMAT ( 
1 


*** ERROR ***'/ 

RADIUS OF ULLAGE IS GREATER THAN TANK RADIUS'/ 

ULLAGE RADIUS-' , F8. 2, ' IN.; TANK RADIUS-' , F8 . 2 , ' IN. 
L-',F8.2,' LIQ VOL-' , F8 . 2, ' VAP VOL-',F0.2,' (FT**3) 

*** ERROR ***'/ 

THE TYPE OF ULLAGE REQUESTED, {',A1,') '/ 

LOW-G CASE WITH ULLAGE AT TOP IS NOT YET AVAILABLE.'/ 
RE-INPUT THE ULLAGE INFORMATION'/ 

OR TYPE IN Q TO STOP') 

*** ERROR ***'/ 

THE POINTER DESIGNATING THE TYPE OF ULLAGE REQUESTED' 
IS NOT ONE OF THE ACCEPTABLE VALUES.'/ 

RE-INPUT THE ULLAGE INFORMATION'/ 


CRY025 90 
CRY02600 
CRY02610 
CRY02620 
CRY02630 
CRY02640 
CRY02650 
CRY02660 
CRY02670 
CRY0 2680 
' /CRY02690 
' )CRY02700 
CRY02710 
CRY027 20 
CRY027 30 
CRY027 40 
CRY02750 
CRY0 2760 
/ CRY02770 
CRY02780 
CRY02790 
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4 ' OR TYPE IN Q TO STOP' ) 

END 

C4321SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
SUBROUTINE CUBIC (P, Q, R, NROOTS, X) 

CALLED FROM ULLGET (432) 

C SUBROUTINE TO FIND REAL ROOTS OF A CUBIC EQUATION 
C X* *3 + P*X**2 + Q*X +R-0 

DIMENSION X (3) 

C T0PI03-2. *3. 14159/3.- 2.094395102 
DATA T0PI03/2. 094395102/ 

P03-P/3 . 

PSQ-P * P 

A- 13 . *Q-PSQ) /3 . 

B- (2 . *P*PSQ-9. 0*P*Q+27.*R) /27.0 
AC027-A*A*A/27 
BS04- B*B/4 
RADD-BS04+AC02 7 
IF (RADD .LT. 0.) THEN 
C RADD < 0 f 3 REAL UNEQUAL ROOTS. 

CQSPHI-SQRT (BS04/ (-AC027) ) 

PHI-ACOS (COSPHI) 

PHI03-PHI/3. 

XX- SIGN (2 . *SQRT (-A/3. ) , -B) 

X {1) -XX* COS (PHI03) -P03 
X { 2) -XX* COS (PHI03 + T0PI03 ) -P03 
X (3) -XX* COS (PH 103 + 2 .'•TOP 103) -P03 
NROOTS-3 
ELSE 

I F (RADD .GT. 0.0) THEN 

C RADD > 0, 1 REAL, 2 IMAGINARY ROOTS. RETURN ONLY 1 REAL ROOT. 
TANPHI- {0. 5* AT AN (1 ,/SQRT (RADD) ) ) **0.3333333 
COT2PH- ( 1 . -TANPHI * TANPHI ) / (2 . *TANPHI ) 

X(l) -SIGN (2 . *SQRT (A/3 . ) *C0T2PH,B) 

NROOTS-1 

ELSE 

IF (RADD .EQ. 0.0) THEN 
C RADD - 0, 3 EQUAL ROOTS. 

X (1) -2 . *SQRT (-A/3. ) 

X ( 2) -X (1 ) 

X (3) -X (1 } 

NROOTS-3 
END IF 
ENDIF 
ENDIF 
RETURN 
END 

C441SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
SUBROUTINE SPHNDS 

CALLED FROM NODES (44) 

C SUBROUTINE TO GENERATE NODE DATA ON A SPHERE 
C NTVP-1, NODES ON A SPHERE 

C IF 3D PROBLEM DO FOLLOWING LOOP NBETAS TIMES 
C 

COMMON /REGION/ NTHETA, NBETAS, BETA, RIN, TVOL, ROUT (9) , 

1 REGNS (9) , NLAYRS (9) , TEMPS (9) , THICK (9) , 

2 THKLAY (9) , MATRLS (9) , MATNMS (9) , RGNNMS (9) 
COMMON/STUFF/ NHTT, PI, CONVY, CONVR, THETAO, DTHETA, NBASOS, ROUTSF, 

1 BNCOEF (2) 

COMMON /ULLAGE/ NLUL4, NLUL5, NTHU41, RINMHH, PCTFUL, RADULG, TVULFT, 

1 CT, LG (3) , LIQVAP (3) 


C 

c 

c 


COMMON /UNITS/ MODU, INPEKO, ISCRCH, SINDA 

DIMENSION H (3) 

LOGICAL REGNS, SINDA 

CHARACTER*! CT, LG, YN 

CHARACTER* 6 LIQVAP 

CHARACTER* 10 ULTYPE (3) , ULWERE (3) 


CRY02800 

CRY02810 

CRY02820 

CRY02830 

CRYO204O 

CRY02B50 

CRYO 28 60 

CRY02870 

CRYO208O 

CRYO 28 90 

CRY02900 

CRY02910 

CRY02920 

CRY02930 

CRY02940 

CRY02950 

CRY02960 

CRY02970 

CRY02980 

CRYO 2 9 90 

CRY03000 

CRY03010 

CRY03020 

CRY03030 

CRY03040 

CRY03050 

CRY03060 

CRY03070 

CRY03080 

CRY03090 

CRY03100 

CRY03110 

CRY03I 20 

CRY03130 

CRY03140 

CRY03150 

CRY03160 

CRY03170 

CRY031 80 

CRY031 90 

CRY03200 

CRY03210 

CRY03220 

CRY03230 

CRY03240 

CRY03250 

CRY032 60 

CRY03270 

CRY03280 

CRY03290 

CRY03300 

CRY033 10 

CRY03320 

CRY03330 

CRY03340 

CRY03350 

CRY03360 

CRY03370 

CRY03380 

CRY033 90 

CRY03400 

CRY034 10 

CRY03420 

CRY03430 

CRY03440 

CRY034 50 

CRY034 60 

CRY034 70 

CRY03480 

CRY034 90 
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CHARACTER* 16 MATNMS 
CHARACTER* 25 RGNNMS 

DATA ULTYPE /' LOW-G', y LOW-G' , ' l*G' / 
DATA ULWERE /' CENTER' , ' TOP' , # TOP ( FLAT' / 


C 

C IF 

C 

C 

C 

C 

C IF 
C IF 
C 

c 

C 

CALL 


THERE IS ULLAGE DETERMINE 

WHERE THE ULLAGE IS 
WHICH NODES ARE ULLAGE 
AND WHICH NODES ARE LIQUID 


PCTFUL < 100%, THEN 

RGNS 4/5 ARE TRUE AND IF PCTFUL < 100% THEN SOME NODES ARE VAPOR 
COMPUTE WHICH NODES ARE ULLAGE (VAPOR) NODES 
ULLAGE MAY BE AT THE CENTER OR AT THE TOP. 


ULLGET (432) 


IF (REGNS (4 ) ) CALL ULLGET 


C GENERATE THE NODES FOR SPHERICAL WEDGE (S); 5 REGIONS /WEDGE; 
C FOR A 2D MODEL NBETAS-1; FOR A 3D MODEL NBETAS>1 . 

DO 100 NB-1, NBETAS 
NBM1NT* (NB-1 > *NTHETA 

C GENERATE THE NODES AND WRITE THEM TO UNIT 10 FOR ALL REGIONS 
DO 101 NR-1, 5 
IF (REGNS (NR) ) THEN 

C COMPUTE NODEBASE FOR CURRENT REGION. 

NODBAS-2000*NR+ NBM1NT 


TMPTR-TEMPS (NR) 

C SURFACE (ARITHMETIC) NODES, REGION 1, 
NM1-NODBAS-1000 
IF (NR .EQ. 1 ) THEN 
WRITE (MODU, 2001) 

CALL 


INSIDE TANKWALL. 


SETUPA (4411) 


CALL SETUPA (NR, 4 , NM1 ) 

ENDIF 

IF (NR .EQ. 5) THEN 

C SURFACE (ARITHMETIC) NODES BETWEEN REGION 4 AND REGION 5. 

WRITE (MODU, 2002) NR, RGNNMS (NR) 

SETUPA (4411) 

CALL 


CALL SETUPA (NR, NR, NM1 ) 


ENDIF 

CALL DIFFUSION NODES, REGIONS 1 TO 5 
WRITE (MODU, 2003) NR, RGNNMS (NR) 


SPHDIF (4412) 


NLG-MATRLS (NR) /100 

IF (NR -EQ. 4 .AND. NLG .EQ. 1) THEN 
NGT-1 

IF (CT .EQ. ' T' ) NGT-2 
IF (CT .EQ. '1M NGT-3 

WRITE (MODU, 2004) PCTFUL, ULTYPE (NGT) , ULWERE (NGT) 

IF(CT .EQ. 'C') WRITE (MODU, 2005) NLUL5, NLAYRS (5) , NLUL4, NLAYRS (4 ) 
If (CT *.EQ. '1M WRITE (MODU, 2006) NTHU41 
ENDIF 

CALL SPHDIF (NR, NOD BAS) 

C SURFACE (ARITHMETIC) NODES, REGIONS 1, 2 OR 3, OUTSIDE SURFACE. 

IF (NR .LT. 4 ) THEN 

WRITE (MODU, 2002) NR, RGNNMS (NR) 


NPl-NODBAS+lOOO 

c 

CALL SETUPA (NR, NR, NPl) 


SETUPA (4411) 


ENDIF 

ENDIF 

101 CONTINUE 
100 CONTINUE 
RETURN 

2001 FORMAT (7X, f REM SURFACE NODES, INSIDE TANK WALL') 

2002 FORMAT <7X, 'REM SURFACE NODES, OUTSIDE SURFACE, REGION ',12, 

1 ', ' , A2 5) 

2003 FORMAT (7 X, ' REM DIFFUSION NODES, REGION ',12,', ',A25) 

2004 FORMAT (7X, ' REM THIS MODEL? TANK IS \F4.0,'% FULL, A', 


CRY03500 

CRY03510 

CRY03520 

CRY03530 

CRY03540 

CRY03550 

CRY03560 

CRY03570 

CRY03580 

CRY03590 

CRY03600 

CRY03610 

CRY03620 

CRY03630 

CRY03640 

CRY03650 

CRY03660 

CRY03670 

CRY03680 

CRY03690 

CRY03700 

CRY03710 

CRY037 20 

CRY03730 

CRY03740 

CRY03750 

CRY03760 

CRY03770 

CRY03780 

CRY037 90 

CRY03800 

CRY03810 

CRY03820 

CRY03830 

CRY03840 

CRY03850 

CRY03860 

CRY03870 

CRY03880 

CRY03890 

CRY03900 

CRY03910 

CRY03920 

CRY03930 

CRY03940 

CRY03950 

CRY03960 

CRY03970 

CRY03980 

CRY03990 

CRY0 4000 

CRY04010 

CRY04020 

CRY04030 

CRYO 4040 

CRY04050 

CRY040 60 

CRY04070 

CRY04080 

CRY04090 

CRY04100 

CRYO 4110 

CRY04120 

CRY0413Q 

CRY04140 

CRY04150 

CRY04160 

CRY041 70 

CRY04180 

CRY041 90 
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1 A6, ' CASE, ULLAGE AT ',A10) 

2005 FORMAT (7X, ' REM NO. OF LAYERS THAT ARE ULLAGE IN REGION 5 - 

1 ' OF ',13,' LAYERS.'/ 

2 7X,'REM IN REGION 4 - ', 

3 ' OF 13,' LAYERS.') 

2006 FORMAT (7X, 'REM ULLAGE STARTS AT TANK WALL AT THETA POSITION', 

1 ' NO. ',13/ 

2 7X, 'REM (COUNTING FROM SOUTH POLE)') 

END 

C4 41 1SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
SUBROUTINE SETUPA (I, NR, NBASE) 

CALLED FROM SPHNDS(441) 

C CHECK FOR HEAT EXCHANGERS, THEN PUT OUT ARITHMETIC NODES 

C 

COMMON /REGION/ NTHETA, NBETAS, BETA, RIN, TVOL, ROUT ( 9) , 

1 REGNS { 9) , NLAYRS { 9) , TEMPS (9) , THICK ( 9) , 

2 THKLAY (9) , MATRLS (9) , MATNMS (9) , RGNNMS (9) 

COMMON /HTXGRS/ NHX, HXTEMP (10), NRHX (10) , NLHX (10), 

1 NTHHX(IO) , LNGTHX (10) 

COMMON /UNITS/ MODU, INPEKO, ISCRCH, SINDA 
C 

LOGICAL REGNS, SINDA 
C 

DIMENSION NCHX(IO) , NNODES ( 10) , NODENO (10) , NODTYP (10) , NOHX(IO) 

C 

CHARACTER* 16 LABEL1 , LABEL2, LABL 
C 

DATA LABEL1/' SURFACE NODES'/, LABEL2/' HEAT EXCHANGER'/ 

C 

NSECT-1 
NODENO (1) -1 
NNODES (1) -NTHETA 
NODTYP (1) -2 
TMPTR-TEMPS (I) 

IF (NHX . GT . 0) THEN 

C THERE ARE HX' (S) IN THIS GEOMETRY. 

C 

NC-Q 

C 

C CHECK FOR NX'S IN LAYER 1 OF THIS REGION (NR) 

C IF ANY, GET HOW MANY HX' S IN THIS LAYER, 

C THEN PUT THE HX NO. INTO ARRAY NCHX 

C 

DO 100 K-l , NHX 
IF (NRHX (K) .EQ. NR) THEN 
IF (NLHX ( K) .EQ. 1) THEN 
NC-NC+1 
NCHX (NC) -K 
END IF 
ENDIF 

100 CONTINUE 
NPOS -1 

IF (NC .GT. 0) THEN 

C 

C THERE ARE NC HX' S IN LAYER 1 OF REGION NR. 

C SORT THE HX' S INTO ASCENDING ORDER BY NTHHX 
IF (NC .G£. 2) THEN 
NCM1-NC-1 
DO 152 KK-1 , NCM1 
DO 151 K-2,NC 
Kl-NCHX (K-l) 

K2-NCHX (K) 

IF (NTHHX (K2) . LT . NTHHX <K1 ) ) THEN 

NSAV-NCHX (K1 ) 

NCHX (Kl) -NCHX (K2) 

NCHX (K2) -NSAV 
ENDIF 

151 CONTINUE 

152 CONTINUE 
ENDIF 


CRY04200 
13, CRY04210 
CRY04220 
13, CRY04230 
CRY04240 
CRY04250 
CRY04260 
CRY04270 
CRY04280 
CRY04290 
CRY04300 
CRY04310 
CRY04320 
CRY04330 
CRY04340 
CRY04350 
CRY04360 
CRY04370 
CRYO430O 
CRY043 90 
CRY04400 
CRY04410 
CRY044 20 
CRY04430 
CRY04440 
CRY04450 
CRY04460 
CRY044 70 
CRY044 80 
CRY044 90 
CRY04500 
CRY04510 
CRY04520 
CRY04530 
CRY04540 
CRY04550 
CRY04560 
CRY04570 
CRY04580 
CRY04590 
CRY04600 
CRY04610 
CRY04620 
CRY04630 
CRY04640 
CRY04650 
CRY04660 
CRY04670 
CRY04680 
CRY04690 
CRY04700 
CRY04710 
CRY04720 
CRY04730 
CRY04740 
CRY047 50 
CRY04760 
CRY04770 
CRY04780 
CRY047 90 
CRYO 4800 
CRY04810 
CRY04820 
CRY04830 
CRY04840 
CRY04850 
CRY04860 
CRY04870 
CRYO 48 80 
CRY04890 
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C FIND POSITIONS IN THE LAYER, AND PUT OUT THE ARITHMETIC NODES 
c SURROUNDING THE NX'S. 

DO 200 K-1,NC 

C HEAT EXCHANGER NO. 

NUMHX-NCHX (K) 

C GET START THETA AND LENGTH OF THIS HX 

NTHO -NTHHX (NUMHX) 

LNGTH-LNGTHX (NUMHX) 

IF (NTHO . EQ. NPOS) THEN 
NODENO (NSECT) - NPOS 
NNODES (NSECT)- LNGTH 
NUMHX 
7 

NPOS+NNODES (NSECT) 


NOHX (NSECT) - 
NODTYP (NSECT) - 
NPOS 
ELSE 

NNODES (NSECT) - 
NPOS 

NSECT-NSECT+1 
NODENO (NSECT) • 
NNODES (NSECT) ■ 


NTHO-1 

NPOS+NNODES (NSECT) 

NTHO 

LNGTH 


NOHX (NSECT) - NUMHX 


NPOS+NNODES (NSECT) 


200 


NODTYP (NSECT) 

NPOS 
ENDIF 

IF (NPOS .LE. NTHETA) THEN 
NSECT-NSECT+1 
NODENO (NSECT) - NPOS 
NNODES (NSECT) - NTHETA-NPOS+1 
NODTYP (NSECT) - 2 
ELSE 

NEW POS > NTHETA; 

GO TO 250 
ENDIF 
CONTINUE 
ENDIF 
ENDIF 


LAST HX ENDED AT NTHETA; STOP AND PRINT 


250 DO 300 J-l , NSECT 

NNO-NBASE+ NODENO ( J) 

NNOPN-NNO+NNODES (J)-l 
IF (NODTYP (J) .EQ. 7) THEN 

WRITE (MODU, 2001) NOHX ( J) , NNO, NNOPN 
ELSE 

CALL RITNDS (NNODES (J) , NODTYP (J) , NNO # 1, 1, TMPTR, 1.0,LABEL1) 
ENDIF 

300 CONTINUE 
RETURN 

2001 FORMAT (7X, ' REM HEAT EXCHANGER NO. ',12,', REPLACES NODES', 


15, ' THRU ' ,15) 


END 


C441 


2SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


SUBROUTINE SPHDI F (NR, NODBAS) 

CALLED FROM 

C COMPUTE DIFFUSION NODES FOR ALL NLAY LAYERS OF A SPHERICAL WEDGE. 
IF A 2D PROBLEM DO ONCE, — IF 3D PROBLEM DO MORE WEDGES. 

INPUT TO THIS SUBROUTINE 


NTHETA 

NODBAS 

RI 

SIGN 

THICK 

NLAY 

TEMP 

BETA 

MATN 

MATNAM 


-NO. OF ANGLES, SOUTH POLE TO NORTH POLE ALONG CIRCUMFERENCE 

- BEGINNING NODE NO. 

- RADIUS FROM CENTER OF WEDGE TO OUTSIDE SURFACE OF REGION 

- MULTIPLIER TO CHANGE RADIUS FROM LAYER TO LAYER, (+1 OR -1 

- THICKNESS OF REGION 

- NO. OF LAYERS THRU THE REGION 

- INITIAL TEMPERATURE OF THE REGION 

- ANGLE OF THE WEDGE (RAD). FOR 2D MODEL BETA IS USUALLY -1. 

- MATERIAL NO. FOR THIS REGION 

- NAME OF MATERIAL 

- THICKNESS OF THE LAYER 


TH 

THETA1, THETA2 


ANGLES FROM HORIZONTAL TO FARTHEST SIDE OF LAYER 
AND TO NEAREST SIDE RESPECTIVLY 


CRYQ4900 
CRY04910 
CRY04920 
CRY04930 
CRY04940 
CRY04950 
CRY04960 
CRY04970 
CRY04980 
CRY04990 
CRY05000 
CRY05010 
CRY05020 
CRY05030 
CRY0 5040 
CRY0 5050 
CRY05060 
CRY05070 
CRY0 5080 
CRY0 50 90 
CRY05100 
CRY05110 
CRY05120 
CRY05130 
CRY051 40 
CRY051 50 
CRYO 5160 
CRY05170 
CRYO 5180 
CRYO 51 90 
CRY05200 
CRY052 10 
CRY05220 
CRY05230 
CRY05240 
CRY05250 
CRY052 60 
CRY05270 
CRY05280 
CRYO 52 90 
CRYO 5300 
CRY05310 
CRYO 53 20 
CRY05330 
CRYO 5340 
CRY053 50 
CRY053 60 
CRY05370 
CRY05380 
CRY05390 
CRYO 5400 
CRY05410 
CRYO 54 20 
CRYO 54 30 
CRY05440 
CRYO 54 50 
CRY05460 
CRY05470 
CRY054B0 
) CRY05490 
CRY05500 
CRYO 551 0 
CRY05520 
CRYO5530 
CRY05540 
CRY055 50 
CRY05560 
CRYO 5570 
CRYO 5580 
CRY05590 
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c 

THETA1 IS .GT. THETA2 

CRY05600 

c 

R - RADIUS FROM CENTER OF SPHERE TO OUTSIDE SURFACE OF 

LAYER. 

CRY05610 

c 



CRY0 5620 

c 

NARY - NMAT+1000, SINDA ARRAY NO. FOR CP*RHO TABLE 


CRY05630 

c 

NMAT - 1XX FOR LIQUID MATERIAL NUMBER. 


CRY05640 

c 

NMAT - 2XX FOR SOLID MATERIAL NUMBER. 


CRY05650 

c 

NMAT - 3XX FOR VAPOR MATERIAL NUMBER. 


CRY05660 

c 

FOR VAPOR CORRESPONDING TO THE LIQUID ABOVE. 

CRY05670 

c 



CRY05680 

c 



CRY0 5690 


COMMON /REGION/ NTHETA, NBETAS, BETA, RIN, TVOL, ROUT { 9) , 


CRY05700 


1 REGNS ( 9) , NLAYRS ( 9) , TEMPS (9) , THICK (9) , 


CRY05710 


2 THKLAY (9) , MATRLS (9) , MATNMS (9) , RGNNMS (9) 


CRY05720 


COMMON/STUFF/ NHTT,PI, CONVY, CONVR, THETAQ, DTHETA, NBASOS, 

ROUTSF, 

CRY0 5730 


1 BNCOEF (2) 


CRY05740 


COMMON /ULLAGE/ NLUL4, NLUL5, NTHU41, RINMHH, PCTFUL, RADULG 

, TVULFT, 

CRY057 50 


1 CT # LG (3) ,LIQVAP (3) 


CRY05760 


COMMON /UNITS/ MODU, INPEKO, ISCRCH, SINDA 


CRY05770 

c 



CRY0 5780 


CHARACTER* 1 CT, LG 


CRY057 90 


CHARACTER*! DASH 


CRY05800 


CHARACTER* 6 LIQVAP 


CRY05810 


CHARACTER* 16 MATNMS 


CRY05820 


CHARACTER* 16 NAME 


CRY05830 


CHARACTER* 25 RGNNMS 


CRY05840 

c 



CRYO 5850 


LOGICAL REGNS, SINDA 


CRY05860 

c 



CRY05870 

c 

DIMENSION VOLLAY (2 , 20) 


CRYO 5880 

c 



CRY058 90 

c 



CRY05900 

c 

DATA VOLSUM/O . 0/, SUMVLI/0.0/ 


CRY05910 


DATA DASH/'-'/ 


CRY05920 

c 



CRY05930 


NSECT— 1 


CRY05940 


NLAY-NLAYRS (NR) 


CRY05950 


TH-THKLAY {NR} 


CRY05960 


IL-NR-3 


CRY05970 

c 

NSUML-0 


CRY05980 

c 

SET NXX FOR ARRAY NO. - MATERIAL NUMBER 


CRY05990 


NXX-MATRLS (NR) 


CRY06000 


NLGR-NXX/100 


CRYO 60 10 


IF (NLGR .LE. 0 .OR. NLGR .GT. 3) NLGR-2 


CRYO 6020 

c 

PRINT 9898, NR, NXX, NL, CT, MATRLS, MATNMS 


CRY06030 

C9898 FORMAT { ' IN SPHDIF, NR, NXX, MATRLS-' ,215,16, 2X, A4/9I 5/ (5A15) ) 

CRY06040 

r 

SET NNNM -1000 FOR PROPERTY CP*RHO 


CRYO 6050 


NNNM-1 000 


CRYO 60 60 


DO 125 NL-1, NLAY 


CRYO 6070 

C 

SET NLVG-0, MATERIAL IS THE SAME FOR ENTIRE LAYER 


CRYO 6080 


WRITE (MODU, 2002} NR, NL 


CRY060 90 


NVLG-0 


CRY06100 


NLG-NLGR 


CRY061 10 


IF (NR .GE. 4) THEN 


CRY061 20 


IF (NR .EQ. 4} THEN 


CRY061 30 


IF (NLAY .EQ. 1 .AND. .NOT. REGNS (5) .AND. 


CRY061 40 


1 CONVR .NE. 0.0 .AND. CONVY .EQ. 0.0) THEN 


CRY061 50 


CALL CLEARS 


CRYO 61 60 


PRINT 2001, LIQVAP (NLGR) 


CRY06170 


CALL READIN(NCON, 1,2) 


CRY061B0 


IF (NCON .EQ. 1) THEN 


CRYO 61 90 

C 

SINGLE NODES IN REGION 4 ARE CONSTANT BOUNDARY NODES 


CRYO 6200 


NNQDE-NODBAS+1 


CRY06210 


IF (NLG .EQ. 2) THEN 


CRY06220 


NAME-MATNMS (NR) 


CRY06230 


ELSE 


CRYO 6240 


NAME-LG (NLG) //DASH/ /MATNMS (NR) 


CRY062 50 


ENDIF 


CRY062 60 

CAM. 

RITNDS (443) 

CRY06270 


CALL RITNDS (NTHETA, 3, NNODE, 1,1, TEMPS (NR) , 1, NAME) 


CRY06280 


RETURN 


CRY06290 
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END 


. F . # CONVR> 0 , GEN BDY NODES IN RGN 4, RETURN. 


GENS BDY NODES IN RGN 4 OR CALLS ULLCHK 


C 

CALL 


CALL 


C 

CALL 


ENDIF 
ENDIF 

IF BLOCKS (COL 11);R5- 
ENDIF 

CALL ULLCHK {NR, NL, NLVG, NYYL) 

IF (NLVG .EQ. 0) THEN 

IF (NLGR .EQ. 1 .AND. NYYL .EQ. 200) THEN 
NYY-NYYL 
NLG-3 
ENDIF 
ELSE 

NTHU-NYYL 
ENDIF 
ENDIF 

END IF BLOCK (COL 7> ;NR>- 4, 

NSECT-NSECT+1 

IF (NR .LT. 4) EL-NLAY-NL+1 
IF (NR .GE. 4) EL-NL 
R- ROUT (NR) -TH* (EL-. 5) 

NNODE-NODBAS+NTHETA* (NSECT) 

IF (NR .GE. 4) VOLLAY (IL,NL) -0. 

BEGIN 130 LOOP, WRITE OUT THE NODES FOR THE LAYER NL(125 LOOP) 

DO 130 J-l , NTHETA, 2 

NNODE-NNODE+1 

JJJ-J/2 

SET NARY FOR ARRAY NO. 

AREASP (451) 

CALL AREASP (1, JJJ, R, 1.# AREA) 

VOL-AR£A*TH 

NMANY-2 

NJ-NTHETA-J 

IF ( NJ .LE. 0) NMANY-1 

IF (NLVG .EQ. 0) THEN 

NLVG-0; NODES ARE SAME MATERIAL FOR ENTIRE LAYER. 

IF (NR .GE. 4) SMRGNI-SMRGNI+NMANY*VOL 

IF (NR .GE. 4} VOLLAY-(IL, NL) -VOLLAY (IL, NL) +NMANY*VOL 

VOLSUM-SUM ALL NODES(IN3); VOLLAY-SUM EACH LAYER (IN3) 

NARY -NNNM+NXX+NY Y 
IF {NLG .EQ. 2) THEN 
NAME -MAT NMS (NR) 

ELSE 

NAME-LG (NLG) //DASH//MATNMS (NR) 

ENDIF 

RITNDS (443) 

CALL RITNDS (NMANY, 1, NNODE, NJ, NARY, TEMPS (NR) , VOL, NAME) 

ELSE 

TO HERE IF NLVG-1, MATERIALS NOT SAME OVER ENTIRE LAYER 
THIS STILL PUTS OUT 2 NODES IF NMANY-2, BUT PUTS THEM OUT 
ONE AT A TIME. BECAUSE THE 2 NODES MAY BE OF DIFFERENT 
MATERIALS, NARY AND NAME MAY BE DIFFERENT FOR THE 2 CALLS 
TO RITNDS. TEMPS AND VOL WILL BE THE SAME. 

NMNY-1 
NNJ-Q 
IF (CT .EQ. 

NYY-0 
NLG1 -NLGR 
NLG2-NLGR 
IF (JJJ+1 
NYY-200 
NLG1-3 
ENDIF 
ENDIF 

NARY-NNNM+NXX+NYY 
IF (NLG1 .EQ. 2) THEN 
NAME -MAT NMS (NR) 

ELSE 

NAME-LG (NLG1) //DASH/ /MATNMS (NR) 

PRINT F * ' NLG1 ' , NR, JJJ, NTHU, NLGR, NLG1, LG (NLG1) , MATNMS (NR) , NAME 

RITNDS (443) 


'1') THEN 


.GE. NTHU .AND. NLGR .EQ. 1) THEN 


CRY06300 
CRY06310 
CRY06320 
CRY0 6330 
CRYO 6340 
CRY0 6350 
CRYO 6360 
CRYO 6370 
CRYO 6380 
CRYO 63 90 
CRY06400 
CRYO 64 10 
CRY06420 
CRY06430 
CRY06440 
CRYO 64 50 
CRYO 64 60 
CRYO 6470 
CRY06480 
CRY06490 
CRY06500 
CRY06510 
CRY06520 
CRYO 6530 
CRYO 6540 
CRYO 65 50 
CRYO 65 60 
CRYO 6570 
CRYO 6580 
CRY06590 
CRY06600 
CRY06610 
CRY06620 
CRY06630 
CRYO 6640 
CRY06650 
CRYO 6660 
CRYO 6670 
CRY06680 
CRYO 6690 
CRYO 6700 
CRYO 6710 
CRYO 67 20 
CRYO 67 30 
CRY06740 
CRY06750 
CRYO 67 60 
CRYO 6770 
CRYO 6780 
CRY067 90 
CRY06800 
CRYO 68 10 
CRY06820 
CRYO 68 30 
CRY068 40 
CRY06850 
CRY06860 
CRYO 68 70 
CRYO 6880 
CRYO 6B 90 
CRYO 6900 
CRYO 6910 
CRYO 6920 
CRYQ6930 
CRY06940 
CRYO 6950 
CRYO 6960 
CRY06970 
CRYO 6980 
CRY06990 
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ORIGINAL PAGL IS 
Of POOR QUALITY 


CALL RITNDS (NMNY, 1 , NNODE, NNJ, NARY, TEMPS (NR) , VOL, NAME) 

IF (NMANY . EQ. 2) THEN 
NODE2-NNODE+NJ 
IF (CT .EQ. '1') THEN 
NYY-0 

IF { J JJ+N J+ 1 .GE. NTHU .AND. NLGR .EQ. 1) THEN 
NYY-200 
NLG2-3 
ENDIF 
ENDIF 

NARY -NNNM+NXX+NYY 
IF (NLG2 .EQ. 2) THEN 
NAME-MATNMS (NR) 

ELSE 

NAME-LG (NLG2) //DASH//MATNMS (NR) 

ENDIF 

PRINT *, 'NLG2',NR, J JJ, NTHU, NLGR, NLG2, LG (NLG2 ) , MATNMS (NR) , NAME 
CALL RITNDS (NMNY, 1 , NODE2 , NNJ, NARY, TEMPS (NR) , VOL, NAME) 

ENDIF 

ENDIF 

130 CONTINUE 

IF (NR .GE. 4) THEN 
SUMVLI "SUMVLI +VOLLAY (IL, NL) 

NSUML-NSUML+1 

ENDIF 

125 CONTINUE 

IF (NR .GE. 4) THEN 
SMRGNF-SMRGNI/1728. 

VO LS UM- VO LSUM+SMRGNI 
VOLSFT-VOLSUM/ 1728. 

WDGVFT-WDGVI N/ 1 7 2 8 . 

PRINT 9999, NR, TVOL, WDGVFT, WDGVIN, WVLQIN, WVULIN, RADULG, NULL 
1 SMRGNI , SMRGNF, VOLSUM, VOLSFT 
PRINT 9997, NR, (VOLLAY (IL, LL) , LL-1, NLAY) 

SUMVLF-SUMVLI/1728. 

PRINT 9998, NSUML, SUMVLI, SUMVLF 
ENDIF 


RETURN 
C FORMATS 

2001 FORMAT (/// 
1 

2 ' 

3 

4 

5 

6 

2002 FORMAT (7X 
C9 997 FORMAT ( r 


THIS MODEL HAS ONLY 1 ',A6,' NODE AT EACH THETA' 
IN REG 4, '/ 

AND THE HEAT TRANSFER TO THE TANK WALL IS'/ 
CONVECTION. ARE THE NODES IN REGION 4 TO BE'/ 

1. CONSTANT VALUE BNDY NODES?'/ 

OR 2. DIFFUSION NODES THAT VARY 7' / 

TYPE IN 1 OR 2') 

, 'REM REGION ',12,', LAYER NO. ',13) 

REGION ',12,' VOL OF EACH LAYER'/ 


c 

1 

(5F15. 4) ) 



C9999 

FORMAT (' IN SUB 

SPHNDS , REGION ' , 

C 

1 

' TVOL (FT3 ) * 

, F10 . 4 , 

c 

2 

' WEDGE 

VOL (FT3) «' 

, F10 , 4 , 

c 

2 

' WEDGE 

VOL ( IN3) 

, F10 . 4 / 

c 

2 

' LIQUID 

VOL (IN3) 

, F10 . 4 , 

c 

2 

' ULLAGE 

VOL { IN3 ) «' 

, F10 . 4/ 

c 

3 

' COMP RGN 

VOL ( IN3 ) -' 

, F10 . 4 , 

c 

4 

' COMP WDG 

VOL ( IN3) -' 

, F10 . 4 , 1 


COMP RGN VOL (FT3)-',F10.4/ 
COMP WDG VOL{FT3) , F10.4) 
C9998 FORMAT (' NSUM-' , 14, ' VSUMLAYERS-' , FI 0 . 4 , ' ? VSUM FT3-',F10.4) 

END 

C4 4 1 2 1 ssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssss 

SUBROUTINE ULLCHK (NR, LN, NLVG, NYY) 

CALLED FROM SPHDIF (4412) RADCON (4611) CIRCON (4612) 

C THIS SUBROUTINE CHECKS THE TYPE OF ULLAGE FOR REGION NR. 

AMD COMPUTES WHERE IT STARTS; IE 
WHEN CT - 'I', AT WHICH THETA ANGLE, COUNTING FROM SOUTH POLE, 
DOFS TIP UL! A' IF START FOR THE CURRENT LAYER LN. 

C OR WHEN Cl - IS 'i 1 1 F CURRENT I AYER ULLAGE OR NOT. 

■'ll HK is c \ I I.f ;i Wfll-N: NR {REGION NO.) >- 4 

C NR - RE :j ' »N NO. 


CRY07000 

CRY07010 

CRY07020 

CRY07030 

CRY07040 

CRY07050 

CRY070 60 

CRY07070 

CRY07080 

CRY07090 

CRY071 00 

CRY07110 

CRY071 20 

CRY071 30 

CRY07140 

CRY071 50 

CRY07160 

CRYQ71 70 

CRY07180 

CRY071 90 

CRY07200 

CRY07210 

CRY07220 

CRY07230 

CRY07240 

CRY07250 

CRY07260 

CRY07270 

CRY07280 

CRY072 90 

CRY07300 

CRY07310 

CRY07320 

CRY07330 

CRYQ7340 

CRY07350 

CRY073 60 

CRY07370 

CRY07380 

CRY07390 

CRY074 00 

CRY074 10 

CRY07420 

CRY07430 

CRY074 40 

CRY074 50 

CRY074 60 

CRY07470 

CRY07480 

CRY074 90 

CRY07500 

CRY075 10 

CRY07520 

CRY07530 

CRY07540 

CRY07550 

CRY075 60 

CRY07570 

CRY07580 

CRY07590 

CRY07600 

CRY07610 

CRYO 7620 

CRY07630 

CRY07640 

CRY07650 

CRYO /6 60 

CRYOVf. H) 

CRYO 7 f. RO 


ON ■ ■'■RRpN 1 " ’ AYF’R NO. 


CRYOVf 


2 10 



NLVG AND NYY ARE RETURNED TO THE CALLING PROGRAM. CRY07700 

NLAY - NO OF LAYERS IN REGION NR CRY07710 

CRY07720 

COMMON /REGION/ NTHETA, NBETAS, BETA, RIN, TVOL, ROUT (9) , CRY07730 

1 REGNS (9) , NLAYRS (9) , TEMPS (9) , THICK (9) f CRY07740 

2 THKLAY { 9 ) , MATRLS { 9 ) , MATNMS { 9 ) , RGNNMS { 9 ) CRY07750 

COMMON /ULLAGE/ NLUL4, NLUL5, NTHU41, RINMHH, PCTFUL, RADULG, TVULFT, CRY07760 

1 CT, LG (3) , LIQVAP (3) CRY07770 


COMMON/STUFF/ NHTT, PI , CONVY 

, CONVR, THETA0, DTHETA, NBASOS, ROUTSF, 

CRY07780 

1 BNCOEF (2) 


CRY077 90 
CRY07800 

LOGICAL REGNS 


CRY07810 

CRY07820 

CHARACTER* 1 CT, LG 


CRY07830 

CHARACTER* 16 MATNMS 


CRY078 40 

CHARACTER* 16 LABLE 


CRY078 50 

CHARACTER* 25 RGNNMS 


CRY078 60 

CHARACTER* 6 LIQVAP 


CRY07870 
CRY078 80 

NYY-0 


CRY07890 

NLVG-0 


CRY07900 

IF (LN .LE. 0) RETURN 


CRY07910 

NLAY-NLAYRS (NR) 


CRY07920 

CRY07930 

IF (CT .EQ. ' F' ) RETURN 


CRY07940 

IF (CT .EQ. 'O' .OR. CT .EQ. 

'O') THEN 

CRY07950 

CT-0 , TANK EMPTY, ALL NODES ARE VAPOR 

CRY07960 

NYY-200 


CRY07970 

RETURN 


CRY07980 

ENDIF 


CRY07990 

END OF IF BLOCK FOR EMPTY TANK 


CRY08000 

IF (CT .EQ. 'C') THEN 


CRY08010 

CT -C, I.E. ULLAGE IS AT CENTER OF SPHERE 

CRY08020 

IF (NR .EQ. 4) THEN 


CRY08030 

IF (NLUL4 . GT . 0) THEN 


CRY08040 

IF (NLAY-LN-NLUL4 . LT . 

0) THEN 

CRY08050 

NYY-200 


CRY08060 

ENDIF 


CRY08070 

ENDIF 


CRY08080 

ELSE 


CRY0 80 90 

IF (NLUL5 .GT. 0) THEN 


CRY08100 

IF (NLAY-LN-NLUL5 . LT . 

0) THEN 

CRY08110 

NYY-200 


CRY081 20 

ENDIF 


CRY08130 

ENDIF 


CRY081 40 

ENDIF 


CRY081 50 

RETURN 


CRY081 60 

ENDIF 


CRY061 70 

END OF IF BLOCK FOR CT - 'C' 


CRY081 80 

IF (CT .EQ. '1') THEN ’ 


CRY081 90 

CT-1; 1-G ANALYSIS, ULLAGE ON 

TOP AND FLAT 

CRY08200 

FOR THIS CONDITION NODES. IN A 

LAYER MAY BE DIFFERENT MATERIALS 

CRY0 8210 


THE ANGLE PHI IS THE ANGLE FROM THE VERTICAL HEMISPHERE TO THE CRY08220 

RADIUS DEFINING NTHU41 , THE THETA WHERE THE ULLAGE STARTS IN CRY08230 

LAYER 1 OF REGION 4. CRY08240 

PHI IS IN THE COMMON VARIABLE RADULG WHEN CT-1 AND NLVG - 1. CRY08250 

SET NLVG-1, MATERIALS NOT SAME FOR ENTIRE LAYER CRY08260 

COMPUTE NTHU FOR THIS LAYER. CRY08270 

NTHU - NO. OF THETA WHERE MATERIAL CHANGES FROM LIQUID TO VAPOR CRY08280 

CRY08290 

NLVG-1 CRY08300 

IF (NTHU4 1 .GT. 0) THEN CRY08310 

IF (NR ,EQ. 4 .AND. LN .EQ. 1) THEN CRY0B320 

NTHU-NTHU4 1 CRY0B330 

ELSE CRY08340 

NR = 4 AND LN > 1; OR NR-5 FOR ALL LN CRY0B350 

PHI-RADULG CRY083 60 

IF (RINMHH .EQ. 0.) THEN CRY08370 

NTHU - NTHETA/ 2 CRY08380 

ELSE CRY08390 
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IF (RINMHH ,GT. 0) THEN 



CRY0B400 

%FUL 

> 50% AND RIN-HH >0; RADIUS OF ULG 

FROM CENTER 

UP. (COL 13 

IFCRY08410 


YULL-RINMHH 



CRY08420 


ISIGN-1 



CRY08430 


NDO-NTHETA 



CRY08440 


INC-1 



CRYO04 50 


ELSE 



CRY08460 

%FUL 

< 501 AND RIN-HH <0; RADIUS OF ULG 

FROM CENTER 

DOWN. 

CRY08470 


YULL— RINMHH 



CRY08480 


ISIGN— 1 



CRY0B4 90 


NDO-1 



CRYO05OO 


INC— 1 



CRY08510 


ENDIF 



CRY08520 


ENDIF 



CRYO8530 


IF (NR .EQ. 4} R-RIN- (LN-1) ‘THKLAY (4) 


CRY08540 


IF (NR .EQ. 5) R-ROUT (5) - (LN-1) ‘THKLAY (5) 


CRY08550 


IF (R . LT . YULL) THEN 



CRY08560 


NTHU-0 



CRY08570 


ELSE 



CRY0B580 


UANG-PI/ 2 . -PHI+DTHETA/2. 



CRY08590 


DO 100 I-NTHU41, NDO, INC 



CRY08600 


NCOUNT-I -NTHU4 1 



CRY08610 


Y-R*SIN (UANG) 



CRY08620 


IF (Y ,GE. YULL) THEN 



CRY08630 


NTHU-NTHU41+ISIGN*NCOUNT 



CRY08640 


GO TO 101 



CRY08650 


ELSE 



CRY08660 


UANG-UANG+DTHETA 



CRY08670 


ENDIF 



CRY08680 

100 

CONTINUE 



CRYO8690 


NTHU-NTHETA+1 



CRY08700 

101 

CONTINUE 



CRY08710 


ENDIF 



CRY08720 


ENDIF 



CRY08730 


ENDIF 

NYY-NTHU 

C PRINT * , ' ULLCHK' , CT, NR, LN, NTHU4 1 , ISIGN, NDO, INC, RINMHH, 

C 1 YULL, R, Y, UANG, NCOUNT, NTHU, NYY, NLVG 

RETURN 
ENDIF 

C END OF IF BLOCK FOR CT - ' 1' 

IF {CT , EQ. 'T' ) THEN 

C CT- T; ULLAGE IS AT THE TOP OF THE SPHERE 
C THIS OPTION IS NOT YET AVAILABLE. 

C 

ENDIF 

C END OF IF BLOCK FOR CT - * T' 

RETURN 

END 

C4 61 SSSSSSSSSSSSSSSSSSSSSSSSSSSSSS5SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
SUBROUTINE SPHCDS 

CALLED FROM CONDRS (46) 

C SUBROUTINE TO GENERATE CONDUCTOR DATA FOR SPHERE WEDGE. 


C NARY - 6000 

► NXX, SINDA 

ARRAY NO. FOR K, 

, (THERMAL 

CONDUCTIVITY) . 

CRY08940 

C 

WHERE NXX 

- MATERIAL NO. 

AS INPUT 

BY USER. 

CRY08950 

c 

NXX 

- 1XX, LIQUID 

MATERIAL 

NO. 

CRY08960 


NXX 

- 2 XX, SOLID 

MATERIAL 

NO. 

CRY08970 

c 

NXX 

- 3 XX, VAPOR 

MATERIAL 

NO. 

CRY08980 


CRY08990 

COMMON /REGION/ NTHETA, NBETAS, BETA, RIN, TVOL, ROUT ( 9} , CRY0 9000 

1 REGNS (9) ,NLAYRS(9) , TEMPS { 9 ) , THICK < 9} , CRY09010 

2 THKLAY (9) , MATRLS (9) , MATNMS (9) , RGNNMS (9) CRY09020 

COMMON /HTXGRS/ NHX, HXTEMP (10) r NRHX (10) , NLHX (10) , CRY09030 

1 NTHHX (10) , LNGTHX (10) CRY09040 

COMMON/STUFF/ NHTT, P I , CONVY, CONVR, THETA0, DTHETA, NBASOS, ROUTSF, CRY09050 
1 BNCOEF (2 ) CRY0 9060 

COMMON /ULLAGE/ NLUL4 , NLUL5, NTHU41 , RINMHH, PCTFUL, RADULG, TVULFT, CRY09070 

1 CT, LG (3) ,LIQVAP (3) CRY09080 

COMMON /UNITS/ MODU, INPEKO, ISCRCH, SINDA CRY09090 
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c 

DIMENSION NHXADL (10) 
C 

LOGICAL REGNS, SINDA 


C 


C 


CHARACTER* 1 
CHARACTER* 6 
CHARACTER* 10 
CHARACTER* 16 
CHARACTER* 16 
CHARACTER* 25 

DATA ATOSL / 


CT, LG 

LIQVAP 

ATOSL (2). 

MATNMS 

LABLE 

RGNNMS 

CONVECTION' , 


'RADIATION'/ 


C 

C 

C 

C 

c 


IF NHTT -1 CONDUCTION ONLY IN REGIONS 4 AND 5 

IF NHTT -2 CONVECTION ONLY IN REGIONS 4 AND 5 

IF NHTT “3 CONDUCTION AND CONVECTION IN REGIONS 4 AND 5 

NG-0 

NS-1 


C 

C GENERATE RADIAL CONDUCTORS, (CONDUCTION) 

C DO REGIONS IN ORDER, 1, 2, 3 FROM RIN TO OUT 

c 4, 5 FROM RIN INWARD 

C 


NG-1 

DO 100 NR-1, 5 

C RADIAL AND CIRCUMFERENTIAL CONDUCTORS, (CONDUCTION), ALL REGIONS 
IF (REGNS (NR) ) THEN 


CALL 

IF (NR .GE. 4 .AND. NHTT .EQ. 2) GO TO 110 
WRITE (MODU, 2001) 

RADCON 

(4611) 

CALL 

CALL RADCON (NR, 1,NG) 
WRITE (MODU, 2002) 

CIRCON 

(4612) 

110 

CALL CIRCON (NR, 1,NG) 
CONTINUE 




ENDIF 

100 CONTINUE 

C END OF IF BLOCKS FOR CONDUCTION CONDUCTORS IN ALL REGIONS. 

C NOW GENERATE CONVECTION CONDUCTORS IN REGIONS 4,5 IF NHTT >- 2. 

IF (NHTT .G£. 2) THEN 

IF (CONVR .NE. 0.0) THEN 
C RADIAL CONDUCTORS, (CONVECTION) 

WRITE (MODU, 2003) 

DO 330 NR=4, 5 
IF (REGNS (NR) ) THEN 

_ . T T RADCON (4611) 


CALL RADCON (NR, 2,NG> 
ENDIF 

330 CONTINUE 

ENDIF 


C 

IF (CONVY .NE. 0.0) THEN 
C CIRCUMFERENTIAL CONDUCTORS, (CONVECTION) 

WRITE (MODU, 2004) 

DO 340 NR* 4, 5 
IF (REGNS (NR) ) THEN 

r . TT CIRCON (4612) 


CALL CIRCON (NR, 2, NG) 

ENDIF 

340 CONTINUE 

ENDIF 
ENDIF 

C END OF IF BLOCKS FOR CONVECTION CONDUCTORS IN REGIONS 4,5. 

C CONDUCTORS FROM OUTSIDE 'ATMOSPHERE' NODE (20301) TO SPHERE 

C OUTER SURFACE, IF ANY. IF (TEMPS (8) .NE. -9999.9) THEN THERE 

C IS A NODE OUTSIDE, GENERATE THE CONDUCTORS. 

C 


CRY09100 
CRYO 9110 
CRYO 9120 
CRY09130 
CRYO 91 40 
CRYO 91 50 
CRY09160 
CRYO 91 70 
CRYO 9180 
CRY091 90 
CRY09200 
CRY09210 
CRY09220 
CRYO 92 30 
CRY09240 
CRYO 9250 
CRYO 9260 
CRYO 9270 
CRYO 9280 
CRYO 92 90 
CRYO 9300 
CRYO 9310 
CRY09320 
CRYO 93 30 
CRY093 40 
CRY093 50 
CRY093 60 
CRY09370 
CRY09380 
CRYO 9390 
CRYO 94 00 
CRY09410 
CRYO 94 20 
CRYO 94 30 
CRYO 94 40 
CRYO 94 50 
CRYO 94 60 
CRYO 9470 
CRYO 9480 
CRYO 94 90 
CRY09500 
CRY09510 
CRY09520 
CRY09530 
CRYO 95 40 
CRY095 50 
CRY09560 
CRYO 95 70 
CRY095B0 
CRY09590 
CRY09600 
CRYO 9610 
CRY09620 
CRYO 9630 
CRYO 9640 
CRYO 9650 
CRYO 9660 
CRYO 9670 
CRYO 9680 
CRY09690 
CRY09700 
CRYO 9710 
CRYO 9720 
CRYO 9730 
CRYO 97 40 
CRYO 97 50 
CRYO 97 60 
CRYO 9770 
CRY097 80 
CRYO 97 90 
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IG -1 


CRY0 9800 


> 

i 

o 


CRY09810 


IB -1 


CRY09820 


NAA -1 


CRY0 9830 


NTP - 3 


CRY0 9840 


NR-1 


CRY09B50 


IF (REGNS (2)) NR-2 


CRY09860 


IF (REGNS (3)) NR-3 


CRY0 9870 


RAD-ROUT (NR) 


CRY09880 


NODBAS-2Q00*NR+1000 


CRY098 90 


DO 401 11-1,2 


CRY09900 


IF (BNCOEF (II ) .NE. 0.0) THEN 


CRY09910 


NCR-NLAYRS (7+II) 


CRY0 9920 


LABLE-ATOSL (NCR) 


CRY09930 


WRITE (MODU, 2007) LABLE 


CRY09940 


NA-20300+ I I 


CRY09950 


NB-NODBAS 


CRY09960 


DO 410 J-l, NTHETA, 2 


CRY0 9970 


JJJ-J/2 


CRY0 9980 


CALL AREAS P (1, JJJ, RAD, TH, AREA) 


CRY09990 


FA - BNCOEF (II) ‘AREA 


CRY10000 


NG-NG+NS 


CRY10010 


NS-2 


CRY10020 


NJ -NTHETA-J 


CRY10030 


IF (NJ .LE. 0) NS-1 


CRY10040 


NB-NB+1 


CRY10050 

CALL 


RITCND (4613) 

CRY10060 


CALL RITCND (NTP, NG, NS, IG, NA, IA, NB, 

f NJ, NAA, NAB, FA, FB, LABLE) 

CRY10070 

410 

CONTINUE 


CRY10080 


ENDIF 


CRY10090 

401 

CONTINUE 


CRY10100 


RETURN 


CRY101 10 

C FORMATS 


CRY10120 

2001 

FORMAT (7 X, ' REM RADIAL CONDUCTORS, 

CONDUCTION') 

CRY10130 

2002 

FORMAT (7X, ' REM CIRCUMFERENTIAL CONDUCTORS; Y- DIRECTION , * , 

CRY10140 

1 

' CONDUCTION' ) 


CRY101 50 

2003 

FORMAT (7X, ' REM RADIAL CONDUCTORS, 

CONVECTION' ) 

CRY101 60 

2004 

FORMAT (7 X, 'REM CIRCUMFERENTIAL CONDUCTORS; Y- DIRECTION,', 

CRY101 70 

1 

' CONVECTION' ) 


CRY10180 

2007 

FORMAT (7 X, ' REM ',A10,' CONDUCTORS; 

ATMOSPHERE TO OUTER SURFACE'] 

1 CRY10190 


END 


CRY10200 


C4611SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS CRY10210 

SUBROUTINE RADCON (NR , NCC, NG) CRY10220 

CALLED FROM SPHCDS (461) CRY10230 

C SUBROUTINE TO GENERATE RADIAL CONDUCTOR DATA FOR SPHERE WEDGE. CRY10240 

C CRY102 50 

C COMPUTE RADIAL CONDUCTORS FOR REGION NR. CRY10260 

C IF NCC -1, COMPUTE CONDUCTION CONDUCTORS IN REGIONS 4 AND 5. CRY10270 

C IF NCC -2, COMPUTE CONVECTION CONDUCTORS IN REGIONS 4 AND 5. CRY10280 


C 

c 

NARY - 6000 + NXX, SINDA ARRAY NO. FOR K, 

, (THERMAL 

CONDUCTIVITY) . 

CRY10290 

CRY10300 

C 

WHERE NXX 

- MATERIAL NO. 

AS INPUT 

BY USER. 

CRY10310 

c 

NXX 

- XXX, LIQUID 

MATERIAL 

NO. 

CRY10320 

c 

NXX 

- 2 XX, SOLID 

MATERIAL 

NO. 

CRY10330 

c 

NXX 

- 3XX, VAPOR 

MATERIAL 

NO. 

CRY10340 


COMMON /REGION/ NTHETA, NBETAS, BETA, RIN, TVOL, ROUT ( 9 ) , 

1 REGNS (9) , NLAYRS ( 9) , TEMPS (9) , THICK (9) , 

2 THKLAY (9) , MATRLS (9) , MATNMS (9) , RGNNMS (9) 

COMMON /HTXGRS/ NHX, HXTEMP (10) , NRHX (10) , NLHX (10) , 

1 NTHHX (10) , LNGTHX (10) 

COMMON/STUFF/ NHTT, PI , CONVY, CONVR, THETA0, DTHETA, NBASOS, ROUTSF, 

1 BNCOEF (2 ) 

COMMON /ULLAGE/ NLUL4 , NLUL5, NTHU41 , RINMHH, PCTFUL, RADULG, TVULFT, 
1 CT, LG (3) , LIQVAP (3) 

COMMON /CONDUL/ MA, MB, NC, NARAY, NLVGA, NLVGB, NYYA, NYYB 
COMMON /UNITS/ MODU, INPEKO, ISCRCH, SINDA 

DIMENSION NHXADL (10) 


CRY10350 
CRY103 60 
CRY10370 
CRY10380 
CRY10390 
CRY10400 
CRY10410 
CRY104 20 
CRY10430 
CRY10440 
CRY10450 
CRY104 60 
CRY10470 
CRY10480 
CRY10490 
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LOGICAL REGNS, SIND A 


CHARACTER* 1 
CHARACTER* 6 
CHARACTER* 16 
CHARACTER* 16 
CHARACTER* 25 


CT, LG 

LIQVAP 

MATNMS 

LABLE 

RGNNMS 


NR. 


PROPERTY NMAT . 


.EQ. NLP1 ) GO TO 110 

.EQ. NLP1 -AND. .NOT. REGNS {5 ) ) GO TO 110 


GENERATE RADIAL CONDUCTORS. 

DO REGIONS IN ORDER, 1, 2, 3 FROM RIN TO OUT 

4, 5 FROM RIN INWARD 

SIGN-1 . 0 

IF (NR .GE. 4) SIGN — 1.0 
NLAY-NLAYRS (NR) 

NLP1 -NLAY+1 
TH-THKLAY(NR) 

EL-TH/2 . 

RAD - INSIDE RADIUS OF REGION 
RAD-RIN 

IF (NR .EQ. 2) RAD-RIN+THICK(1> 

IF (NR .EQ. 3) RAD-RIN+THICK (1 ) +THICK (2 ) 

IF (NR .EQ. 5) RAD-RIN-THICK ( 4) 

NODBAS-2000*NR 

SET ARRAY NOS. FOR K, MATERIAL NO. + 6000. 

NARAY-MATRLS (NR) +6000 
NLGR-MATRLS (NR) /100 

DO 110 L-l , NLP 1 
IF (NR .EQ. 5 .AND. L 
IF (NR .EQ. 4 .AND. L 
IF (L .EQ. 1) THEN 

CONDUCTORS LAYER 1 TO REGION BOUNDARY; NA-BOUNDARY, NB-INTERIOR. 
TEST FOR HEAT EXCHANGERS ON TOP OF LAYER CORRESPONDING TO 
NODES NA, (NODBAS-1000) . IF THERE ARE ANY GET NO. OF HX'S ON THIS 
LAYER, AND WHICH HX'S THEY ARE. 

GET REGION NO. WHICH CONTAINS THE HX ADJACENT TO THIS LAYER 1). 
HR-1, ADJR-4; NR-2, ADJR-1; NR-3, ADJR-2; NR-4,ADJR-4; NR-5,ADJR-5. 
NCT-1 
NLTEST-1 
NADJR-NR/ 4+NR-l 
IF (NADJR .LE. 0) NADJR-4 
NTP-5 

NA-NODBAS-1000 

IF (NR .EQ. 4) NA-1000 

NB-NODBAS 

RADA-RAD+SIGN*TH/4 . 

RAD B- RAD A 
RADA B- RADA 
LTOUCA-1 
LTOUCB-1 
NEXT-NADJR 
IF (NR .EQ. 4) NEXT-1 
IF (NR .EQ. 5) NEXT-4 
WRITE (MODU, 2002) NR, L, NR, NEXT 
ELSE 

IF (L .EQ. NLP1 ) THEN 

CONDUCTORS LAYER NLAY TO REGION BOUNDARY 
TEST FOR HEAT EXCHANGERS ON TOP OF LAYER CORRESPONDING TO 
NODES NB, (NODBASf 1000) . IF THERE ARE ANY GET NO. OF HX'S ON THIS 

LAYER, AND WHICH HX'S THEY ARE. . 

GET REGION NO. WHICH CONTAINS THE HX ADJACENT TO THIS LAYER (NLP1) 
C NR-1, ADJR-1; NR-2, ADJR-2; NR-3, ADJR-3; NR-4,ADJR-5; NR-S, AD JR-0 . 
NCT-3 
NTP-5 
NLTEST-1 
NAD JR*=MOD (NR, 5) 

IF (NR .EQ. 4) NAD JR- 5 
IF (NR .LT. 5) THEN 

NA-NODBAS+ (NLAY-1) *NTHETA 
NB-NODBAS +10 00 


CRY10500 
CRY10510 
CRY10520 
CRY10530 
CRY10540 
CRY10550 
CRY10560 
CRY10570 
CRY10580 
CRY10590 
CRY10600 
CRY1061Q 
CRY10620 
CRY10630 
CRY10640 
CRY10650 
CRY10660 
CRY10670 
CRY10680 
CRY10690 
CRY10700 
CRY1Q71Q 
CRY10720 
CRY10730 
CRY10740 
CRY10750 
CRY10760 
CRY10770 
CRY107B0 
CRY10790 
CRY10800 
CRY10810 
CRY10820 
CRY10830 
CRY10840 
CRY10B50 
CRY108 60 
CRY10870 
CRY10880 
CRY10890 
CRY10900 
CRY10910 
CRY10920 
CRY10930 
CRY10940 
CRY10950 
CRY10960 
CRY10970 
CRY10980 
CRY10990 
CRYI1000 
CRY11010 
CRY11020 
CRY11030 
CRY11040 
CRY11050 
CRY11060 
CRY11070 
CRY11080 
CRY11090 
. CRY1110Q 
CRY11110 
CRY111 20 
CRY11130 
CRY11140 
CRY11150 
CRY11I60 
CRY11170 
CRY111 80 
CRY111 90 
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RADA-RAD+SIGN*(THICK{NR)- TH/4.) 

RADB-RADA 
RAD A B- RADA 
ENDIF 

LTOUCA-NLAY 

LTOUCB-NLAY 

NEXT-NADJR 

IF (NR , LT . 4) NEXT-NAD JR+1 
WRITE (MODU, 2002) NR, NLAY # NR, NEXT 
ELSE 

C CONDUCTORS LAYER TO LAYER INSIDE OF REGION. 

NCT-2 

NTP-7 

NADJR-NR 

IF (NR .LE. 3) THEN 
NLTEST-NLAY-L+2 
ELSE 

NLTEST-L 

ENDIF 

LM1-L-1 

ELM1-LM1 

ELM2-ELM1-1. 

NA-NTHETA* ELM2+NODBAS 
NB-NA+NTHETA 
RADAB- RAD + S I GN * TH * ELM1 
RADA-RAD+SIGN* (TH*ELM1 -TH/4 . ) 

RADB-RAD+SIGN* (TH*ELMl+TH/4 . ) 

LTOUCA-L-1 

LTOUCB-L 

WRITE (MODU, 2003) NR, LM1, L 
ENDIF 
ENDIF 

C TEST FOR HX ( S) ON THE BOUNDARY OF THE LAYER TO LAYER CONDS. 

C OR FOR HX ( S) ON THE BOUNDARY OF THE LAYER TO REGION BOUNDARY CONDS 
C GET HOW MANY AND WHICH ONES THEY ARE. 

NHXS-0 

DO 120 K-l , NHX 
I F (NRHX ( K) ,EQ. NADJR) THEN 

C TEST FOR HX IN APPROPRIATE LAYER OF ADJACENT REGION. 

IF (NLHX (K) . EQ. NLTEST) THEN 

NHXS-NHXS+1 
NHXADL (NHXS) -K 
ENDIF 
ENDIF 

120 CONTINUE 

C PRINT * , NR, L, NADJR, NLTEST, NCT, NHX, NHXS, (NHXADL (K) , K-l, NHXS) , 

C 1 NA, NB 
C IF LL - 1,2 OR 
C IF LL - 4 OR 5 
C 
C 

C IF MATRL - 

C IF MATRL - 

C 

C IF MATRL “ 

C 

NYYA-0 
NYYB-0 
NLVGA-0 
NLVGB-0 

IF (NR ,GE. 4) THEN 

CALL ULLCHK (44121) 

CALL ULLCHK (NR, LTOUCA, NLVGA, NYYA) 

CALL ULLCHK {NR, LTOUCB, NLVGB, NYYB) 

ENDIF 

C 

C GENERATE THE CONDUCTORS FOR THE CURRENT VALUE OF L. (LOOP 110) 

C L-l, LAYER 1 TO BOUNDARY 

C L-2 TO NLAY, LAYER (L-l) TO LAYER L 
C L-NLAY + 1 , LAYER L TO BOUNDARY 


3 THE MATERIALS IN MATRLS (NR) WILL BE 2XX. 

THE MATERIALS MAY BE; 1XX (LIQUID) 

2XX (SOLID) 

OR 3XX (VAPOR) 

1XX; THE PROPERTY IS LIQ., ULLAGE IS VAPOR. 

2XX; THE PROPERTY IS A SOLID. IF NR >- 4, 

THEN CT MUST BE - ' F r . IF NOT USE AS SUCH. 

3XX; THE PROPERTY IS VAPOR, USE ALL NODES AS SUCH. 


CRY11200 
CRY1 1210 
CRY11220 
CRY1123Q 
CRY11240 
CRY11250 
CRY11260 
CRY11270 
CRY11280 
CRY11290 
CRY11300 
CRY11310 
CRY11320 
CRY11330 
CRY11340 
CRY11350 
CRY11360 
CRY11370 
CRY11380 
CRY11390 
CRY11400 
CRY11410 
CRY11420 
CRY11430 
CRY11440 
CRY114 50 
CRY11460 
CRY11470 
CRY11480 
CRY11490 
CRY11500 
CRY11510 
CRY11520 
CRY11530 
CRY11540 
CRY11550 
CRY11560 
CRY11570 
CRY11580 
CRY11590 
CRY11600 
CRY11610 
CRY11620 
CRY11630 
CRY11640 
CRY11650 
CRY11660 
CRY11670 
CRY11680 
CRY11690 
CRY11700 
CRY11710 
CRY11720 
CRY11730 
CRY11740 
CRY11750 
CRY11760 
CRY11770 
CRY11780 
CRY11790 
CRY11800 
CRY11810 
CRY11820 
CRY11830 
CRY11B40 
CRY11850 
CRY11860 
CRY11B70 
CRY11B80 
CRY11690 
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DO 130 J-l , NTHETA, 2 
JJJ-J/2 
NA-NA+1 
NB-NB+1 
NMANY-2 
NJ-NTHETA-J 
IF (NJ .LE. 0) THEN 
NMANY-1 
NL-0 
ENDIF 
IA-NJ 
IB-IA 
IG-1 
MA-NA 
MB-NB 
NC-NMANY 
NT-NTP 
NNJ-G 

IF (NC .EQ. 1) NT-NTP-1 
C 

IF (NCC .EQ. 1) THEN 
C NCC-1, CONDUCTION CONDUCTORS 

CALL AREAS P (1, JJJ, RADA,TH, AREA) 

FA - AREA/ EL 

CALL AREAS P ( 1, JJJ, RADB, TH, AREA) 

FB - AREA/EL 

ELSE 

C NCC-2, CONVECTION CONDUCTORS 

CALL AREAS P {1, JJJ, RADAB, TH, AREA) 

XAA-AREA 

XAB-CONVR 

IF (NC .EQ. 2} THEN 

C 2 CONDUCTORS TO BE PUT OUT, USE GEN 
NTP-3 
ELSE 

C 1 CONDUCTOR TO BE PUT OUT, USE CAL 
NTP-2 
ENDIF 
ENDIF 
C 

C TEST IF THERE ANY HEAT EXCHANGERS ON THIS LAYER. 

IF (NHXS .GT. 0) THEN 

C THERE ARE HEAT EXCHANGERS ON THIS BOUNDARY 

C SET CONTROLS TO PUT OUT 1 CONDUCTOR AT A TIME FOR THETA1 AND 
C THETA2 (MIRROR THETA) 

NC-1 

IF (NCC . EQ. 1} THEN 
NT-4 
ELSE 
NT-2 
ENDIF 

C TEST FOR THIS THETA IN A RANGE OF AN HX ON THIS BOUNDARY 
NTKK-1 

NTEST- (J+l) /2 
14b CONTINUE 

DO 140 KK-1, NHXS 
NKK-NHXADL (KK) 

NLO-NTHHX (NKK) 

NHI-NLO+ LNGTHX (NKK) -1 

IF (NTEST .GE. NLO .AND. NTEST .LE. NHI ) THEN 
IF (NCT .EQ. 3) THEN 
MB-2 0000 +NKK 
ELSE 

MA-20000+NKK 

FA-FB 

ENDIF 

C THIS THETA IS WITHIN THE RANGE OF THE HX 
END! F 

C END OF IF BLOCK TO TEST FOR THETA WITHIN THE RANGE OF THE HX 
140 CONTINUE 


CRY1190C 
CRYl 1910 
CRY11920 
CRYl 1 930 
CRYl 1940 
CRYl 1950 
CRYl 1960 
CRYl 1970 
CRYl 1980 
CRYl 1990 
CRYl 2000 
CRYl 2010 
CRYl 2020 
CRYl 2030 
CRYl 2040 
CRYl 2050 
CRYl 2060 
CRYl 2070 
CRY120B0 
CRY12090 
CRY12100 
CRYl 21 10 
CRYl 21 20 
CRYl 21 30 
CRYl 21 40 
CRY12150 
CRYl 21 60 
CRY12170 
CRY121 80 
CRYl 21 90 
CRYl 2200 
CRY12210 
CRYl 22 20 
CRYl 2230 
CRYl 2240 
CRYl 22 50 
CRYl 22 60 
CRYl 2270 
CRYl 2280 
CRYl 2290 
CRYl 2300 
CRYl 2310 
CRYl 23 20 
CRYl 23 30 
CRYl 23 40 
CRYl 2350 
CRYl 23 60 
CRYl 2370 
CRYl 2380 
CRYl 2390 
CRYl 2400 
CRYl 24 10 
CRYl 24 20 
CRYl 24 30 
CRYl 24 40 
CRY12450 
CRY124 60 
CRYl 24 70 
CRY12480 
CRYl 24 90 
CRYl 2500 
CRYl 2510 
CRYl 2520 
CRYl 2530 
CRYl 2540 
CRYl 2550 
CRYl 2560 
CRYl 2570 
CRYl 2580 
CRY12590 
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IF (NCC .EQ. 1) THEN 

CRY1260Q 



CALL SETARY (NR, JJJ, NNJ, NAA, NAB) 

CRY12610 



CALL RITCND (NT, NG, NC, IG, MA, IA f MB, IB, NAA, NAB, FA, FB, LABLE) 

CRY12620 



ELSE 

CRY12630 



CALL RITCND (NT, NG, NC, IG, MA, IA, MB, IB, XAA, XAB, 1 . , 1 . , LABLE) 

CRY12640 



ENDIF 

CRY12650 



NG-NG+NC 

CRY12660 

c 


IF (NC .EQ. 1) THEN 

CRY12670 



I F (NCT .EQ. 2} THEN 

CRY126B0 



MB-MA 

CRY12690 



MA-NA 

CRY12700 



IF (NCC .EQ. 1) THEN 

CRY12710 

CALL 

SET ARY (46111) 

CRY12720 



CALL SETARY (NR, JJJ, NNJ, NAA, NAB) 

CRY12730 



CALL RITCND (NT, NG, NC, IG, MA, IA, MB, IB, NAA, NAB, FA, FB, LABLE) 

CRY12740 



ELSE 

CRY12750 



CALL RITCND (NT, NG, NC, IG, MA, IA, MB, IB, XAA, XAB, 1 . , 1 . , MATNMS (NR) ) 

CRY12760 



ENDIF 

CRY12770 



NG-NG+NC 

CRY12780 



ENDIF 

CRY12790 

C 


ENDIF 

CRY120OO 

c 

CHECK FOR A COND IN THE MIRROR POSITION. IF THERE IS A MIRROR 

CRY12810 

c 

POSITION THETA2 AT THETA1+NJ, SET UP NA AND NB AND REPEAT THE 

CRY12820 

c 

2 

CONDUCTOR OUTPUT FOR THIS CONNECTION. 

CRY12830 



IF (NTKK .EQ. 1 .AND. NMANY .EQ. 2) THEN 

CRY12840 



NTKK-2 

CRY12850 



MA-NA+IA 

CRY12860 



MB-NB+IB 

CRY12870 



NTEST-NTEST+NJ 

CRY12880 



NNJ-NJ 

CRY128 90 



GO TO 145 

CRY12900 



ENDIF 

CRY12910 

c 

END OF 1ST HALF OF IF BLOCK ON NHX > 0. 

CRY12920 



ELSE 

CRY12930 

c 

NO 

HEAT EXCHANGERS ON THIS BOUNDARY 

CRY12940 



IF (NCC .EQ. 1) THEN 

CRY12950 

c 


NCC - 1, CONDUCTION CONDUCTORS 

CRY12960 

c 


IF NLVGA+NLVGB>0, MATERIALS NOT SAME OVER ENTIRE LAYER 

CRY12970 

c 


THIS STILL PUTS OUT 2 CONDS IF NS-2, BUT PUTS THEM OUT 

CRY12980 

c 


ONE AT A TIME. BECAUSE THE 2 NODES MAY BE OF DIFFERENT 

CRY12990 

c 


MATERIALS, NARY AND NAME MAY BE DIFFERENT FOR THE 2 CALLS 

CRY13000 

c 


TO RITNDS. TEMPS AND VOL WILL BE THE SAME. 

CRY13010 

c 



CRY13020 



CALL SETARY (NR, JJJ, NNJ, NAA, NAB) 

CRY13030 

c 


PRINT •, ' RADCON1 ' , CT, NR, J, JJJ, NN J, NG, NC, NAA, NAB, MA, MB 

CRY1304Q 

CALL 

RITCND (77) 

CRY13050 



CALL RITCND (NTP, NG, NC, IG, MA, IA, MB, IB, NAA, NAB, FA, FB, MATNMS (NR) ) CRY13060 



NG-NG+NC 

CRY13070 



IF (NMANY .EQ. 2 .AND. NC .EQ. 1) THEN 

CRY13080 



MA-MA+NJ 

CRY13090 



MB-MB+NJ 

CRY131 00 



NNJ-NJ 

CRY13110 

CALL 

SETARY (46111) 

CRY131 20 



CALL SETARY (NR, JJJ, NNJ, NAA, NAB) 

CRY13130 

c 


PRINT *, ' AADCON2' , CT,NR, J, JJJ, NN J, NC, NG, NAA, NAB, MA, MB 

CRY13140 



CALL RITCND (NTP, NG, NC, IG, MA, IA,MB, IB, NAA, NAB, FA, FB, LABLE) 

CRY131 50 



NG-NG+NC 

CRY13160 



ENDIF 

CRY13170 



ELSE 

CRY13180 

c 

NCC - 2 , CONVECTION CONDUCTORS 

CRY13190 



CALL RITCND (NTP, NG,NC, IG, MA, IA, MB, IB, XAA, XAB, 1 . , 1. , LABLE) 

CRY13200 



NG-NG+NC 

CRY13210 



ENDIF 

CRY132 20 

c 

END OF IF BLOCK (COL 9) IS NCC - 1? 

CRY13230 



ENDIF 

CRY13240 

c 



CRY13250 


130 

CONTINUE 

CRY13260 


110 

CONTINUE 

CRY13270 



RETURN 

CRY13280 

c 

FORMAT STATEMENTS 

CRY13290 
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2002 FORMAT (7X, ' REM RADIAL CONDUCTORS REGION' ,12, 

1 LAYER ',12,' TO BOUNDARY ',12,'- 

2003 FORMAT (7 X, ' REM RADIAL CONDUCTORS REGION', 12, 

1 LAYER ',12,' TO LAYER ',12} 


', 12 ) 


END 


C461 


11SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


SUBROUTINE SETARY {NR, JJJ, NNJ, NAA, NAB) 
CALLED FROM 


RADCON (4611) 


C 

C 

C 

C 


1L1U C 

THIS SUBROUTINE CHECKS FOR VAPOR NODES IN CONDUCTOR DATA. 

AND SETS NYA AND NYB - 0 OR 200 TO CHANGE THE PROPERTY TABLES 
FOR A NODE. THIS IS ONLY DONE WHEN NR >- 4 AND NLGR-1. 

COMMON /REGION/ NTHETA, NBETAS, BETA, RIN, TVOL, ROUT { 9) , 

1 REGNS (9) , NLAYRS (9) , TEMPS (9) , THICK (9) , 

2 THKLAY (9) , MATRLS (9) , MATNMS (9) , RGNNMS (9) 

COMMON /ULLAGE/ NLUL4, NLUL5, NTHU41 , RINMHH, PCTFUL, RADULG, TVULFT, 

1 CT, LG (3) , LIQVAP (3) 

COMMON /CONDUL/ MA, MB, NC, NARAY, NLVGA, NLVGB, NYYA, NYYB 


CHARACTER* 1 
CHARACTER* 16 
LOGICAL REGNS 
CHARACTER* 1 6 
CHARACTER* 25 


CT, LG 
LABLE 

MATNMS 

RGNNMS 


NAA- NARAY 
NAB-NARAY 

IF (NR .LE. 3) RETURN 
IF (NLVGA+NLVGB .EQ. 0) THEN 
C NLVG - 0, ALL NODES IN BOTH LAYERS SAME MATERIAL. 

NAA-NARAY+NYYA 

NAB-NARAY+NYYB 

NC-2 

LABLE-LG (NLG) //MATNMS (NR) 

ELSE 

C NLVG > 0, SOME NODES IN ONE OF THE LAYERS MAY BE DIFFERENT MATERIALS 
IF (CT .EQ. '1') THEN 

C CT - '1', 1-G CASE AND ULLAGE ON TOP AND FLAT 
NC-1 
NYA-0 
NYB-0 

NTHUA-NYYA 

NTHUB-NYYB 

IF (NTHUA .GT. 0 .AND. MA .LT. 20000) THEN 
IF (JJJ+NNJ+1 .GE. NTHUA) THEN 
NYA-200 
NLG-3 
ENDIF 
ENDIF 

IF (NTHUB .GT. 0 .AND. MB . LT . 20000) THEN 
IF (JJJ+NNJ+1 . GE . NTHUB) THEN 
NYB-200 
NLG-3 
ENDIF 
ENDIF 
ENDIF 

NAA-NARAY+NYA 
NAB-NARAY+NYB 
LABLE-LG (NLG) //MATNMS (NR) 

ENDIF 

C PRINT *, ' SETARY' , NR, CT, JJJ, NNJ, NYYA, NYYB, NLVGA, NLVGB, 

C 1 NARAY, NTHUA, NTHUB, MA, MB, NYA, NYB, NAA, NAB, NC 

RETURN 

END 

C4 61 2SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 

SUBROUTINE CIRCON (NR, NCC, NG) 

CALLED FROM SPHCDS (461) 

C SUBROUTINE TO GENERATE CIRCUMFERENTIAL CONDUCTOR DATA 
c (Y DIRECTION) 


CRY13300 

CRY13310 

CRY13320 

CRY13330 

CRY13340 

CRY13350 

CRY13360 

CRY13370 

CRY133B0 

CRY13390 

CRY13400 

CRY13410 

CRY13420 

CRY13430 

CRY13440 

CRY13450 

CRY13460 

CRY13470 

CRY13480 

CRY13490 

CRY13500 

CRY13510 

CRY13520 

CRY13530 

CRY13540 

CRY135 50 

CRY13560 

CRY13570 

CRY13580 

CRY13590 

CRY13600 

CRY13610 

CRY13620 

CRY13630 

CRYI3640 

CRY13650 

CRY13660 

CRY13670 

CRY13680 

CRY13690 

CRY13700 

CRY1371Q 

CRY13720 

CRY13730 

CRY13740 

CRY13750 

CRY13760 

CRY13770 

CRY13780 

CRY137 90 

CRY13800 

CRY13810 

CRY13820 

CRY13830 

CRY13840 

CRY13850 

CRY13860 

CRY13870 

CRY13880 

CRY13890 

CRY13900 

CRY13910 

CRY13920 

CRY13930 

CRY13940 

CRY13950 

CRY13960 

CRY13970 

CRY13930 

CRY13990 
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IF NCC -1, COMPUTE CONDUCTION CONDUCTORS IN REGIONS 4 AND 5. 
IF NCC -2, COMPUTE CONVECTION CONDUCTORS IN REGIONS 4 AND 5. 


CRY1400Q 

CRY14010 

CRY14020 

CRY14030 


C 

NARY - 6000 + NXX, SINDA ARRAY NO, 

. FOR K, 

r {THERMAL 

CONDUCTIVITY) . 

CRY14040 

C 

WHERE NXX - MATERIAL NO. 

AS INPUT 

BY USER. 

CRY14050 

C 

NXX - 1XX, 

LIQUID 

MATERIAL 

NO. 

CRY14060 

c 

NXX - 2 XX, 

SOLID 

MATERIAL 

NO. 

CRY14070 

c 

NXX - 3 XX, 

VAPOR 

MATERIAL 

NO. 

CRY14080 


COMMON /REGION/ NTHETA, NBETAS, BETA, RIN, TVOL, ROUT (9) , 

1 REGNS (9) , NLAYRS (9) , TEMPS (9) , THICK (9) , 

2 THKLAY (9) , MATRLS (9) , MATNMS (9) , RGNNMS (9) 

COMMON /HTXGRS/ NHX, HXTEMP (1 0) , NRHX (10) , NLHX (10) , 

1 NTHHX(IO) , LNGTHX(IO) 

COMMON/STUFF/ NHTT , P I , CONVY, CONVR, THETAO , DTHETA, NBASOS, ROUTSF, 

1 BNCOEF (2 ) 

COMMON /ULLAGE/ NLUL4, NLUL5, NTHU41 , RINMHH, PCTFUL, RADULG, TVULFT, 
1 CT, LG (3) , LIQVAP (3) 

COMMON /UNITS/ MODU, INPEKO, ISCRCH, SINDA 

DIMENSION NHXAJDL (10) 

LOGICAL REGNS, SINDA 


CHARACTER*! 
CHARACTER* 6 


CT, LG 
LIQVAP 


CRY14090 
CRY! 4100 
CRY141 10 
CRY14120 
CRY14130 
CRY14140 
CRY14150 
CRY14160 
CRY14170 
CRY1410O 
CRY141 90 
CRY14200 
CRY14210 
CRY14220 
CRY14230 
CRY14240 
CRY14250 
CRY14260 


CALL 


CHARACTER* 16 MATNMS 


CRY14270 

CHARACTER* 2S RGNNMS 


CRY14280 

CRY14290 

GENERATE CONDUCTORS ALONG CIRCUMFERENCE {Y 

DIRECTION) 

CRY14300 

NTM1 -NTHETA- 1 


CRY14310 

SIGN-1.0 


CRY14320 

IF {NR . GE. 4) SIGN— 1.0 


CRY14330 

NLAY-NLAYRS (NR) 


CRY14340 

TH-THKLAY (NR) 


CRY14350 

RAD-RIN 


CRY14360 

IF (NR .EQ. 2} RAD-RIN+ THICK (1 ) 


CRY14370 

IF (NR .EQ. 3} RAD-RIN+ THICK (1) +THICK (2 } 


CRY14380 

IF (NR .EQ. 5) RAD-RIN-THICK (4) 


CRY14390 

RAD-RAD-SIGN*TH/2 . 


CRY14400 

NODBAS-2000*NR 


CRY144 10 

NARAY-MATRLS (NR) +6000 


CRY14420 

NLGR-MATRLS (NR) /100 


CRY14430 

DO 325 L-l , NLAY 


CRY14440 

NYY-0 


CRY14450 

NLVG-0 


CRY14460 

NLG-NLGR 


CRY144 70 

IF {NR .GE. 4) THEN 


CRY14480 

IF (NLGR .EQ. 1) THEN 


CRY14490 


ULLCHK (44121) 

CRY14500 

CALL ULLCHK (NR, L, NLVG, NYY) 


CRY14510 

ENDIF 


CRY14520 

ENDIF 


CRY14530 

WRITE (MODU, 2005) NR, L 


CRY14540 

RAD- RAD+ SIGN *TH 


CRY14550 

EL -RAD*DTHETA/2 . 


CRY14560 

NA-NTHETA* (L-1J+NODBAS 


CRY14570 

DO 330 J-l , NTM1, 2 


CRY14580 

JJJ-J/2 


CRY14590 

NA-NA+1 


CRY14600 

N8-NA+1 


CRY14610 

NMANY-2 


CRY14620 

MA-NA 


CRY14630 

MB-NB 


CRY14640 

NC-NMANY 


CRY14650 

NJ -NTH ETA- J-l 


CRY14660 

NIP -7 


CRY14670 


AREASP (451) 

CRY14680 

CALL AREASP (2, JJJ, RAD, TH, AREA) 


CRY14690 
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XAA-AREA 
FA - AREA/ EL 
IF (N J . EQ. 0> THEN 
NC-1 
NTP -6 
ELSE 

CALL AREASP (2, JJJ+1, RAD, TH, AREA) 

FB - AREA/EL 
ENDIF 
IA-NJ 
IB-IA 
IC-1 

IF (NCC .EQ. 1) THEN 
I F (NLVG .EQ. 0) THEN 

C NLVG-O, SAME MATERIAL FOR THIS LAYER. 
NAA-NARAY+NYY 


CALL 


NAB-NAA 

CALL RITCND (NTP,NG f NC, 


RITCND (4613) 

IG, MA, IA, MB, IB, NAA, NAB, FA, FB, MATNMS (NR) ) 


NG-NG+NC 


C NLVG > 0, MATERIAL MAY BE DIFFERENT FOR SOME NODES IN THIS LAYER 
NTHU-NYY 
NTP-6 
IGO-O 
NAA-NARAY 
NAB-NAA 

IF (CT .EQ. '1') THEN 
IF (JJJ .GE. NTHU) THEN 
NAA-NARAY+200 
NC-1 
ENDIF 

IF (JJJ+1 .GE. NTHU) THEN 
NAB-NARAY+200 
NC-1 
NLG-3 

CALL RITCND (NTP, NG, NC, IG, MA, IA, NB, IB, NAA, NAB, FA, FB, MATNMS (NR) ) 
NG-NG+NC 

IF (NMANY .EQ. 2 .AND. NC .EQ. 1) THEN 
MA-MA+NJ 
MB-MB+NJ 

IF (CT .EQ. ' 1' > THEN 

IF(JJJ+NJ+1 .GE. NTHU) NAA-NARAY+200 
IF ( JJJ+N J .GE. NTHU) NAB-NARAY+200 
ENDIF 

C LABLE-LG (NLG) //MATNMS (NR) 

CALL RITCND (NTP, NG,NC, IG,MA, IA, MB, IB, NAA, NAB, FA, FB, MATNMS (NR) ) 
NG-NG+NC 
ENDIF 
ENDIF 
ENDIF 
ELSE 

XAB-CONVY 

NTP-NTP-4 

CALL RITCND (NTP, NG,NC, IG, MA, I A, MB, IB,XAA, XAB, 1 . , 1. , MATNMS (NR) ) 

ng-nc+nc 

ENDIF 

330 CONTINUE 
325 CONTINUE 
RETURN 

C FORMAT STATEMENTS 

2005 FORMAT (7 X, ' REM CIRCUMFERENTIAL CONDUCTORS REGION' , 12, 

1 ' , LAYER NUMBER ' , 12) 


END 


CRY14700 

CRY14710 

CRY14720 

CRY14730 

CRY14740 

CRY14750 

CRY14760 

CRY14770 

CRY14780 

CRY14790 

CRY14800 

CRY14810 

CRY14B20 

CRY14830 

CRY14840 

CRY14850 

CRY14860 

CRY14870 

CRY14880 

CRY14890 

CRY14900 

CRY14910 

CRY14920 

CRY14930 

CRY14940 

CRY14950 

CRY14960 

CRY14970 

CRY14980 

CRY14990 

CRY15000 

CRY15010 

CRY15020 

CRY15030 

CRY15040 

CRY15050 

CRY15060 

CRY15070 

CRY15080 

CRY15090 

CRY15100 

CRY15110 

CRY15120 

CRY15130 

CRY15140 

CRY15150 

CRY15160 

CRY15170 

CRY15180 

CRY151 90 

CRY15200 

CRY15210 

CRY15220 

CRY15230 

CRY15240 

CRY15250 

CRY15260 

CRY15270 

CRY15280 

CRY15290 

CRY15300 

CRY15310 

CRY15320 

CRY15330 

CRY15340 
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APPENDIX E 


CryoTran Program Listings 
Part HI CRYOCYL FORTRAN 
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SUBROUTINE CYLNDR (NAN) 

COMMON/ REG ION/NTHETA, NBETAS, BETA, RIN, TVOL, 

* ROUT (9) , REGNS ( 9) , NLAYRS (9) # TEMPS (9) , THICK (9) , 

* THKLAY { 9 ) , MATRLS (9) r MATNMS (9) , RGNNMS ( 9 ) 
COMMON/TOPBOT/NTOP, NBOT, NFTLAY, NSTLAY, NETLAY, NFBLAY, NSBLAY, 

. NEBLAY, ETRAT, EBRAT, FTTHK, FBTHK 

COMMON/ULLAGE/ NLUL4 , NLUL5, NTHU41, RINMHH, PCTFUL, RADULG, TVULFT, 

* CT, LG (3) , LIQVAP (3) 

COMMON/CYDATA/CYLHGT , NCYLAY 

COMMON /HTXGRS/NHX, HXTEMP (10) , NRHX (10) , NLHX (10) , NTHHX (10) , 

* LNGTHX (10) 

COMMON /UNI TS/MODU, SINDA 
LOGICAL REGNS 

CHARACTER* 16 RGNNMS, MN AM E, MATNMS 
CHARACTER*! CT , LG, YORN 
CHARACTER* 6 LIQVAP 
CALL CLEARS 
WRITE (6,44) 

WRITE (6,*) 'NOW ENTER YOUR CHOICE OF HOW THE CYLINDERICAL 

WRITE (6**) 'SECTION OF THE TANK IS GOING TO BE DEFINED:' 

WRITE (6,*) 

WRITE (6,*) '1. HEIGHT ; WALL THICKNESS ; INSIDE RADIUS (INCH). 

WRITE (6,*) '2. HEIGHT ; OUTSIDE RADIUS ; INSIDE RADIUS (INCH).' 

WRITE (6^*> '3. HEIGHT ; OUTSIDE RADIUS ; WALL THICKNESS (INCH) . ' 

CALL READIN (NMENU,1,3) 

IF (NMENU.EQ.l) THEN . 

CALL CLEARS 
WRITE (6, 44) 

WRITE (6,*) 'ENTER CYLINDERICAL HEIGHT (INCHES).' 

CALL READRE (CYLHGT) 

CALL CLEARS 
WRITE (6,44) 

WRITE (6,*) 'ENTER THE THICKNESS OF THE WALL (INCHES).' 

CALL READRE (THICK(l) ) 

CALL CLEARS 
WRITE (6,44) 

WRITE (6,*) 'ENTER THE INSIDE RADIUS OF THE TANK (INCHES). 
CALL READRE (RIN) 

CALL CLEAR 

ROUT (1 ) -RIN+THICK (1) 

ENDIF 

IF (NMENU.EQ.2) THEN 
CALL CLEARS 
WRITE (6,44) 

WRITE (6,*) 'ENTER CYLINDERICAL HEIGHT (INCHES).' 

CALL READRE (CYLHGT) 

CALL CLEARS 
WRITE (6,44) 

WRITE (6,*) 'ENTER THE OUTSIDE RADIUS OF THE TANK (INCHES). 
CALL READRE (RADIUS) 

CALL CLEARS 
WRITE (6,44) 

WRITE (6,*) 'ENTER THE INSIDE RADIUS OF THE TANK (INCHES). 
CALL READRE (RIN) 

CALL CLEAR 

THICK (1) -RADIUS-RIN 

ROUT (1) -RIN+THICK (1 ) 

ENDIF 

IF (NMENU.EQ.3) THEN 
CALL CLEARS 
WRITE (6,44) 

WRITE (6,*) 'ENTER CYLINDERICAL HEIGHT (INCHES).' 

CALL READRE (CYLHGT) 

CALL CLEARS 

WRITE (6,44) , 

WRITE (6,*) 'ENTER THE OUTSIDE RADIUS OF THE TANK (INCHES). 

CALL READRE (RADIUS) 

CALL CLEARS 
WRITE (6,44) 

WRITE (6,*) 'ENTER THE WALL THICKNESS (INCHES).' 


CRY00010 

CRY00020 

CRY00030 

CRY00040 

CRY00050 

CRY00060 

CRY00070 

CRY00080 

CRYOOO 90 

CRY00100 

CRY00110 

CRY001 20 

CRY001 30 

CRY001 40 

CRY001 50 

CRY001 60 

CRY00170 

CRY001 80 

CRY00190 

CRY00200 

CRY00210 

CRY00220 

CRY002 30 

CRY00240 

CRY00250 

CRY002 60 

CRY00270 

CRY002B0 

CRY00290 

CRY00300 

CRY0031 0 

CRY00320 

CRY00330 

CRY003 40 

CRY00350 

CRY003 60 

CRY00370 

CRY00380 

CRY00390 

CRY00400 

CRY004 10 

CRY004 20 

CRY00430 

CRY00440 

CRY004 50 

CRY004 60 

CRY004 70 

CRY004 80 

CRY004 90 

CRY00500 

CRY00510 

CRY00520 

CRY00530 

CRY00540 

CRY005 50 

CRY00560 

CRY00570 

CRY005B0 

CRY00590 

CRY00600 

CRY00610 

CRY00620 

CRY00630 

CRY00640 

CRY00650 

CRY00660 

CRY00670 

CRY00680 

CRY00690 

CRY00700 
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CALL READRE {THICK (1)) 

CALL CLEAR 
R IN “RADIUS-THICK { 1 ) 

ROUT (1 ) -RIN+THICK (1J 
ENDIF 

CALL CLEARS 
WRITE (6,44) 

WRITE (6,*) ' ENTER NUMBER OF LAYERS TO DIVIDE THE HEIGHT INTO 
CALL READ IN (NCYLAY, 0, 9999) 

CALL CLEAR 
WRITE {6,44) 


'ENTER THE NUMBER CORRESPONDING TO THE TOP SHAPE: 
' {1-NO TOP, 2-FLAT TOP, 3-SPHERICAL TOP, 4 


THEN 

(NFTLAY, 0, 9999} 


'ENTER THE THICKNESS OF THE FLAT TOP (INCHES).' 
(FTTHK) 

CALL READIN (NSTLAY, 0, 9999) 

THEN 

(NETLAY, 0 , 9999) 


WRITE (6,*) 

WRITE { 6, * ) 

*OP) ' 

CALL READIN (NTOP,l,4) 

CALL CLEARS 
WRITE (6,44) 

WRITE (6,*) 'ENTER THE NUMBER CORRESPONDING TO THE BOTTOM SHAPE 
WRITE (6,*) '{1-NO BOTTOM, 2-FLAT BOTTOM, 3-SPHERICAL BOTTOM, 4 
* IPTICAL BOTTOM)' 

CALL READIN {NBOT, 1,4) 

CALL CLEARS 
IF (NTOP.EQ.l) GOTO 7 
WRITE (6,44) 

WRITE {6, * ) 'ENTER THE LAYERS TO DIVIDE THE TOP INTO' 

IF (NTOP.EQ.2) 

CALL READIN 
CALL CLEARS 
WRITE (6,44) 

WRITE (6,*) 

CALL READRE 
ENDIF 

IF (NTOP.EQ.3) 

IF (NTOP.EQ.4) 

CALL READIN 
CALL CLEARS 
WRITE (6,44) 

WRITE { 6, * ) 'DO YOU WANT A SQRT{2.) ELIPSE I.E. 

CALL READAL {1, YORN) 

IF {YORN.EQ.' Y' ) ETRAT-1 . /SQRT ( 2 . ) 

IF (YORN.EQ.'N') THEN 

WRITE {6,*) 'ENTER THE RATIO OF A (MAJOR AXIS) TO B ' 

WRITE (6,*) '{MINOR AXIS) I.E. A/B FOR THE TOP' 

CALL READRE (ETRAT) 

ETRAT-l/ETRAT 
CALL CLEARS 
ENDIF 
ENDIF 

IF (NBOT.EQ.l) GOTO 99 
CALL CLEARS 
WRITE (6,44) 

WRITE (6,*) 'ENTER THE LAYERS TO DIVIDE THE BOTTOM INTO' 

IF (NBOT.EQ.2) THEN 

CALL READIN (NFBLAY, 0 , 9999) 

CALL CLEARS 
WRITE (6,44) 

WRITE (6,*) 'ENTER THICKNESS FOR FLAT BOTTOM SHAPE (INCHES).' 

CALL READRE (FBTHK) 

ENDIF 

IF (NBOT.EQ.3) CALL READIN (NSBLAY, 0, 9999) 

IF (NBOT.EQ.4) THEN 

CALL READIN (NEBLAY , 0 , 9 999) 

CALL CLEARS 
WRITE (6,44) 

WRITE (6,*) 'DO YOU WANT A SQRT (2.) ELIPSE I.E. A: B-SQRT (2 . ) ? 
CALL READAL (1, YORN) 

IF (YORN.EQ.' Y' ) EBRAT-1 . /SQRT (2 . ) 

IF (YORN.EQ.'N') THEN 

WRITE (6,*) 'ENTER THE RATIO OF A (MAJOR AXIS) TO B ' 

WRITE (6,*) '{MINOR AXIS). I.E. A/B FOR THE BOTTOM' 


CRY00710 

CRY00720 

CRY00730 

CRY00740 

CRY00750 

CRY00760 

CRY00770 

CRY0078G 

CRY0079Q 

CRY00800 

CRY00810 

CRY00820 


ELIPTICAL TCRY00830 
CRY00840 
CRY00850 
CRY008 60 
CRY00870 
CRY00880 
ELCRY00890 
CRY00900 
CRY00910 
CRY00920 
CRY00930 
CRY00940 
CRY00950 
CRY00960 
CRY00970 
CRY00960 
CRY00990 
CRY01000 
CRY01010 
CRY01020 
CRY01030 
CRY01040 
CRY01050 
CRY010 60 
CRY01070 
A: B-SQRT (2.) ?' CRY01080 
CRY01090 
CRY01100 
CRYOll 10 
CRY011 20 
CRY01130 
CRY01140 
CRY01150 
CRYQ1160 
CRYOll 70 
CRYOll 80 
CRYOll 90 
CRY01200 
CRY01210 
CRY012 20 
CRY01230 
CRY01240 
CRY01250 
CRY01260 
CRY01270 
CRY012B0 
CRY01290 
CRYO 1300 
CRY013 10 
CRYO 1320 
CRY01330 
CRY01340 
CRY01350 
CRY01360 
CRY01370 
CRY013B0 
CRY01390 
CRY01400 
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CALL READRE (EBRAT) 

EBRAT-l/EBRAT 
CALL CLEARS 
ENDIE 
ENDIF 

99 NTHETA-NCYLAY+NFTLAY+NETLAY+NSTLAY+NFBLAY+NEBLAY+NSBLAY 

44 FORMAT {/// ) 

RETURN 

END 

SUBROUTINE MATMNU (I REG) 

COMMON/REGION/NTHETA, NBETAS, BETA, RIN, TVOL, 

* ROUT (9) , REGNS (9) , NLAYRS (9) , TEMPS (9) ,THICK(9) , 

* THKLAY (9), MATRLS (9) , MATNMS (9) , RGNNMS (9) 

COMMON /U N ITS/ MOD U, SINDA 

DIMENSION P <100) 

LOGICAL REGNS 

CHARACTER* 1 6 MNAME, MATNMS, RGNNMS 
CALL CLEARS 
12 REWIND 4 

WRITE (6,1) 

30 READ (4,2) MNUM, MNAME 
IF {MNUM. EQ. 0) GOTO 10 

IF {MNUM. GE.100.AND.MNUM.LT. 200) WRITE (6,133) MNUM, MNAME 
IF (MNUM. GE.200.AND.MNUM.LT. 300) WRITE (6,3) MNUM, MNAME 
IF (MNUM. GE. 300) WRITE (6,134) MNUM, MNAME 
READ (4,*) SPRES ,EPRES,NINC 
GOTO 30 

10 MNUM-999 

MNAME”' USER DEFINED ' 

WRITE (6,3) MNUM, MNAME 

CALL READIN (MATRLS ( IREG) , 100, 1000 ) 

NTEST-0 
REWIND 4 

20 READ (4,2) MNUM, MNAME 
IF (MNUM.EQ.0) GOTO 11 
READ ( 4, * ) SPRES, EPRES,NINC 

IF (MATRLS (IREG) .EQ. MNUM. OR. MATRLS (IREG) .EQ. 999) NTEST-1 
IF (MATRLS (IREG) .EQ. MNUM) MATNMS (IREG) -MNAME 
GOTO 20 

11 IF (NTEST.EQ.0) THEN 

CALL CLEARS 

WRITE (6,*) 'MATERIAL NUMBER DOES NOT EXIST' 

WRITE (6 *} 'PLEASE ENTER A MATERIAL NUMBER FROM THE' 
WRITE (6, * > 'MENU BELOW OR ENTER 999 TO ENTER YOUR' 

WRITE (6,*) 'OWN PROPERTY DATA.' 

GOTO 12 
ENDIF 

IF (MATRLS (IREG) .EQ. 999) THEN 
CALL CLEARS 
WRITE (6,7) IREG 
CALL READLC (MATNMS (IREG) ) 

ENDIF 

REWIND 4 , , f . 

1 FORMAT (//,' ENTER MATERIAL NUMBER FOR REGION ',11, : ) 

2 FORMAT ( 13, A1 6) 

3 FORMAT (IX, 13, 5X,A16) 

133 FORMAT (IX, 13, 5X, ' LIQUID ',A16) 

134 FORMAT (IX, 1 3, 5X, ' GAS ',A16) 

7 FORMAT (//,' ENTER MATERIAL NAME FOR REGION ',11,':') 

RETURN 

END 

SUBROUTINE PRPTBL (IREG) 

COMMON/ REGION/ NTH ETA, NBETA, BETA, RIN, TVOL, 

* ROUT (9) , REGNS (9) , NLAYRS ( 9) , TEMPS (9) , THICK (9) , 

* THKLAY (9) , MATRLS (9) , MATNMS (9) , RGNNMS (9) 
COMMON/UNITS/MODU, SINDA 

LOGICAL REGNS 

CHARACTER*16 MNAME, MATNMS, RGNNMS 


CRY0141Q 

CRY01420 

CRY0 1430 

CRY014 40 

CRY014 50 

CRY01460 

CRY01470 

CRY0148O 

CRY014 90 

CRY01500 

CRY0151O 

CRY01520 

CRY01530 

CRY01540 

CRY01550 

CRY01560 

CRY01570 

CRY015B0 

CRY01590 

CRY01600 

CRY01610 

CRY01620 

CRY01630 

CRY01640 

CRY01650 

CRY01660 

CRY01670 

CRY016BO 

CRY01690 

CRY01700 

CRY0 17 10 

CRY0 17 20 

CRY01730 

CRY01740 

CRY01750 

CRY01760 

CRY01770 

CRY01780 

CRY01790 

CRY0 1900 

CRYQ1810 

CRY018 20 

CRY01830 

CRY01840 

CRY0185Q 

CRY01860 

CRY0 1870 

CRY01880 

CRY018 90 

CRY01900 

CRY01910 

CRY01920 

CRY01930 

CRY01940 

CRY01950 

CRY01960 

CRY01970 

CRY01980 

CRY01990 

CRY02000 

CRY0 2010 

CRY0 20 20 

CRY02030 

CRY02040 

CRY0 2050 

CRY02060 

CRYO 2070 

CRY02080 

CRY02090 

CRY02100 
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561 


12 

10 


1 


11 

5 

35 

36 

51 

71 

197 

72 

9 


CHARACTER* 15 TABUNT < 1 0 ) 

CHARACTER* 1 TB 
CHARACTER* 20 PRPUNT(IO) 

CHARACTER* 13 PROP 

DIMENSION P (100) ,T(10, 700) , NAMTAB (10) , PRTOUT (1000) ,CONFAC<10) 
NRPT-0 

DO 561 1-1,1 REG 

IF (I.NE.IREG) THEN 

IF (MATRLS (I) . EQ.MATRLS (IREG) ) NRPT-1 
ENDIF 
CONTINUE 

IF (NRPT.EQ.l) GOTO 100 
IF (MATRLS (IREG) .EQ. 999) THEN 
CALL MATUSR (IREG) 

GOTO 100 
ENDIF 

CALL CLEARS 

IF (MATRLS (IREG) .GE. 200. AND. MATRLS (IREG) . LE. 299) THEN 
MNUM-1 
REWIND 4 
PRES-0.0 
GOTO 35 
ENDIF 
REWIND 4 
WRITE (6,2) 

WRITE (6,3) MATNMS (IREG) , IREG 
NTEST-0 

READ (4,4) MNUM, MNAME 
IF (MNUM. EQ. 0) GOTO 11 
READ (4,*) SPRES, EPRES, PINC 
IK-1 

IF (MATRLS (IREG) .EQ. MNUM) THEN 

WRITE (6,56) SPRES, EPRES, PINC 
NTEST-1 
P (IK) -SPRES 
IK-IK+1 

P (IK) -P (IK-1) f PINC 
IF (P (IK) . LT. EPRES) GOTO 1 
NP-IK 
GOTO 11 
ENDIF 

IF (NTEST. EQ.l) GOTO 11 
GOTO 10 

CALL READRE (PRES) 

NTEST-0 
DO 5 IK-1, NP 

IF (ABS (PRES-P (IK) ) .LE.0.01) NTEST-1 
CONTINUE 

IF (NTEST. EQ.O) THEN 
CALL CLEARS 

WRITE (6,*) ' THIS PRESSURE IS NOT IN THE DATA BASE.' 

GOTO 12 
ENDIF 
KTEMP-0 

IF (MNUM. EQ.O) GOTO 51 
READ (4,4) MNUM, MNAME 

IF (MNUM.NE. 0) READ (4, *) SPRES, EPRES, PINC 
GOTO 36 

READ (4, 6, END-9) MNUM, MNAME, NTABLE, NTSETS, NPSIA 
DO 71 IK-1, NTABLE+2 

READ (4,74) NAMTAB ( IK) , TABUNT (IK) , CONFAC ( IK) , PRPUNT (I K) 
CONTINUE 

DO 72 IK-1, NTSETS*NPSIA 

READ (4,*) (T(J, IK) , J-l, NTABLE+2) 

DO 197 J-l, NTABLE+2 

T (J, IK) -T (J, IK) *CONFAC ( J) 

CONTINUE 

CONTINUE 

IF (MATRLS (IREG) -NE. MNUM) GOTO 51 
DO 73 IK-3, NTABLE+2 


CRY021 10 
CRY021 20 
CRY021 30 
CRY021 40 
CRY021 50 
CRY02160 
CRY021 70 
CRY02180 
CRY02190 
CRY02200 
CRY022 10 
CRY022 20 
CRY02230 
CRY02240 
CRY022 50 
CRY02260 
CRY02270 
CRY02280 
CRY02290 
CRY02300 
CRY02310 
CRY02320 
CRY02330 
CRY02340 
CRY02350 
CRY023 60 
CRY02370 
CRY02380 
CRY023 90 
CRY02400 
CRY024 10 
CRY02420 
CRY02430 
CRY024 40 
CRY02450 
CRY024 60 
CRY02470 
CRY02480 
CRY02490 
CRY02500 
CRY02510 
CRY02520 
CRY02530 
CRY02540 
CRY02550 
CRY02560 
CRY02570 
CRY02580 
CRY02590 
CRY02600 
CRY02610 
CRY02620 
CRY02630 
CRY02640 
CRY02650 
CRY02660 
CRY02670 
CRY02680 
CRY02690 
CRY02700 
CRY02710 
CRY02720 
CRY02730 
CRY02740 
CRYO 27 50 
CRY027 60 
CRY02770 
CRY02780 
CRY027 90 
CRY02800 
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IF (NAMTAB (IK) . EQ . 2 ) PROP-' SPECIFIC HEAT' 

IF (NAMTAB ( IK) .EQ. 3} PROP-' DENSITY' 

IF (NAMTAB (IK) . EQ . 4 ) PROP-' VI SCOSITY' 

IF (NAMTAB(IK) .EQ.5) PROP-' ENT HALPHY' 

IF (NAMTAB(IK) .EQ.6) PROP-' CONDUCTIVITY' 

IF (MNUM . GE . 2 0 0 . AND . MNUM . LE . 2 9 9 ) THEN 
WRITE (MODU, 29) PROP , PRPUNT ( IK) , MNAME 
E LS E 

WRITE (MODU, 19) PROP , PRPUNT ( IK) , MNAME, PRES, TABUNT ( 2) 

ENDIF 

JJ-0 

DO 75 I J-l , NTSETS*NPSIA 

IF (ABS(T(1, IJ)-PRES) .LE.0.01) THEN 
JJ-JJ+1 

PRTOUT(JJ) -T (2, IJ) 

TB-TABUNT (1) 

IF (TB. EQ. ' R' .AND .MATNMS (9) . EQ. ' F' ) 

* PRTOUT ( JJ) -PRTOUT (JJ) -459 . 69 

IF (TB.EQ.'F' .AND. MATNMS (9) .EQ.'R' ) 

* PRTOUT (JJ) -PRTOUT (JJ) +459. 69 

IF (TB.EQ.'C' .AND. MATNMS (9) .EQ.'F' > 

* PRTOUT { JJ) - (1 . 8* PRTOUT { JJ) ) +32 

IF (TB.EQ.'C' .AND. MATNMS (9) .EQ.'R' ) 

* PRTOUT ( JJ) - ( (PRTOUT (JJ) -32) /l.B) +459.69 

IF (TB.EQ.'K' .AND .MATNMS ( 9) .EQ.'F') 

» PRTOUT (JJ) - (1.8* (PRTOUT (JJ}-273.16))+32 

IF (TB.EQ.'K' .AND. MATNMS (9) .EQ.'R') 

* PRTOUT (JJ) -((1.8* (PRTOUT (JJ) -273.16) ) +32) +459. 69 
JJ-JJ+1 

PRTOUT(JJ)-T(IK,IJ) 

ENDIF 

75 CONTINUE 
LINES-JJ/6 

IF (JJ.EQ.2) WRITE (MODU, 92} NAMTAB { IK) , MATRLS ( IREG) , 

* PRTOUT (1) , PRTOUT (2) 

IF (JJ.EQ.4) WRITE (MODU, 93) NAMTAB (IK) , MATRLS ( IREG) , 

* PRTOUT (1) , PRTOUT (2) , PRTOUT (3) , PRTOUT (4) 

IF (JJ. EQ.6) WRITE (MODU, 94) NAMTAB (IK) , MATRLS (IREG) , 

* PRTOUT (1) , PRTOUT (2) , PRTOUT (3) , PRTOUT (4) , 

* PRTOUT (5) , PRTOUT (6) 

IF (JJ.GT.6) WRITE (MODU, 95) NAMTAB (IK) , MATRLS ( IREG) , 

* PRTOUT (1) , PRTOUT (2) , PRTOUT (3) , PRTOUT (4) , 

* PRTOUT (5) , PRTOUT (6) 

M*MOD ( JJ, 6) 

DO 76 II-2, LINES 
L-LINES 

I J- ( ( II-l ) * 6) +1 

IF (M. EQ . 0 . AND .II.NE.LJWRI TE (MODU, 91) (PRTOUT (KK) , KK-IJ, I J+5) 

IF (m!nE.O.AND.II.EQ.L)WRITE (MODU, 91) (PRTOUT (KK) , KK-IJ, I J+5) 

IF (M.NE.O.AND.II.NE.L)WRITE (MODU, 91) (PRTOUT (KK) , KK-IJ, I J+5) 

IF (M EQ . 0 . AND . I I . EQ. L) WRITE (MODU, 98) PRTOUT (I J) , PRTOUT ( I J+l ) , 

* ’ PRTOUT (I J+2) , PRTOUT (IJ+3) , PRTOUT (I J+4) , PRTOUT (I J+5) 

76 CONTINUE 

IJ-( (LINES) *6) +1 
IF (NTSETS.EQ. 1) GOTO 73 

IF (M. EQ. 2) WRITE (MODU, 96) PRTOUT (I J) , PRTOUT (IJ+1) 

IF (M.EQ.4) WRITE (MODU, 97) PRTOUT (I J) , PRTOUT (IJ+1 }, PRTOUT (I J+2) , 

* PRTOUT (IJ+3) 

73 CONTINUE 

IF (MNUM. GE. 200. AND. MNUM. LE. 299} THEN 
WRITE (MODU, 84) MNAME 

ELSE 

WRITE (MODU, 85) MNAME, PRES, TABUNT (2) 

ENDIF 

DO 81 IK-3 , NTABLE+ 2 

IF (NAMTAB (IK) .EQ. 2) NSP-IK 
IF (NAMTAB (IK) .EQ. 3) NCND-IK 
81 CONTINUE 
JJ-0 

DO 82 IJ-1,NTSETS*NPSIA 


CRY02810 
CRY02820 
CRY02630 
CRY02840 
CRY028 50 
CRY02860 
CRY02870 
CRY02880 
CRY028 90 
CRYO 2900 
CRY02910 
CRY02920 
CRY02930 
CRY02940 
CRY02950 
CRY02960 
CRY02970 
CRY02980 
CRY02990 
CRY03000 
CRY03010 
CRY03020 
CRY03030 
CRY03040 
CRY03050 
CRY03060 
CRY03070 
CRY03080 
CRY03090 
CRY03100 
CRY03110 
CRY03120 
CRY03130 
CRY031 40 
CRY031 50 
CRY03160 
CRY031 70 
CRY031 80 
CRY031 90 
CRY03200 
CRY03210 
CRY03220 
CRY03230 
CRY03240 
CRY03250 
CRY03260 
CRY03270 
CRY03280 
CRY032 90 
CRY03300 
CRY03310 
CRY03320 
CRY03330 
CRY03340 
CRY03350 
CRY03360 
CRY033 70 
CRY033 80 
CRY03390 
CRY034 00 
CRY034 10 
CRY03420 
CRY034 30 
CRY034 40 
CRYO 34 50 
CRY03460 
CRY03470 
CRY034 80 
CRY03490 
CRY03500 
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82 


86 


7 39 


831 

2 

3 

4 


IF (ABS(T<1, I J) -PRES} .LE.0.01) THEN 

JJ-JJ+1 

PRTOUT (JJ) -T (2 , 1 J) 

TB-TABUNT(l) 

IF (TB. EQ . ' R' .AND.MATNMS (9) .EQ. ' F' ) 

PRTOUT (JJ) -PRTOUT (JJ) -459.69 
IF (TB.EQ.'F' .AND.MATNMS (9) .EQ.'R') 

PRTOUT ( JJ) -PRTOUT { JJ) +459.69 
IF (TB.EQ.'C' .AND.MATNMS (9) .EQ.'F') 

PRTOUT { JJ) - (1 . 8* PRTOUT ( JJ) ) +32 
IF (TB.EQ. ' C' .AND.MATNMS (9) .EQ.'R' ) 

PRTOUT { JJ) - < (PRTOUT (JJ) -32) /l. 8) +459.69 
IF (TB.EQ.'K' .AND.MATNMS (9) .EQ.'F' ) 

PRTOUT (JJ) — ( 1 . 8 * (PRTOUT < JJ) -273. 16) ) +32 
IF (TB.EQ.'K' .AND.MATNMS (9) .EQ.'R') 

PRTOUT (JJ) -( (1.8* (PRTOUT (JJ) -273.16) ) +32) +459. 69 
JJ-JJ+1 

PRTOUT (JJ) -T (NSP, IJ) *T (NCND, IJ) 


ENDIF 

CONTINUE 

LINES-JJ/6 

K-l 

IF (JJ.EQ.2) 
IF (JJ.EQ.4) 
IF (JJ.EQ.6) 


IF (JJ.GT.6) 


WRITE {MODU, 92) K, MATRLS (IREG) , 

PRTOUT (1) , PRTOUT (2) 

WRITE (MODU, 93 > K, MATRLS (IREG) , 

PRTOUT (1 ) , PRTOUT (2) , PRTOUT (3) , PRTOUT (4 ) 
WRITE (MODU, 94) K, MATRLS (IREG) , 

PRTOUT (1) , PRTOUT (2) , PRTOUT (3) , PRTOUT (4) , 
PRTOUT (5) , PRTOUT (6) 

WRITE (MODU, 95) K, MATRLS (IREG) , 

PRTOUT (1 ) , PRTOUT (2 > , PRTOUT (3 ) , PRTOUT (4 ) , 
PRTOUT (5) , PRTOUT (6) 


M-MOD( JJ, 6) 

DO 86 I I -2 , LINES 
L-LINES 

IJ-( (II-l) *6)+l 

IF (M.EQ.O.AND. I I . NE . L) WRITE (MODU, 91) (PRTOUT (KK) , KK-IJ, I J+5) 

IF (M.NE.O .AND. I I . EQ.L) WRITE (MODU, 91) (PRTOUT (KK) , KK-IJ, I J+5) 

IF IM. NE. 0 . AND . 1 1 . NE .L) WRITE (MODU, 91) (PRTOUT (KK) , KK-IJ, I J+5) 

IF (M. EQ. 0 . AND . II . EQ.L) WRITE (MODU, 98) PRTOUT (I J) , PRTOUT (I J+l ) , 
PRTOUT (I J+2) , PRTOUT (I J+3) , PRTOUT (I J+4) , PRTOUT (IJ+5) 


CONTINUE 
M-MOD (JJ, 6) 

I J- ( (LINES) *6) +1 
IF (NTSETS.EQ. 1) GOTO 739 

IF (M.EQ.2) WRITE (MODU, 96) PRTOUT (I J) , PRTOUT (I J+l ) 

IF (M.EQ.4) WRITE (MODU, 97) PRTOUT (I J) , PRTOUT (I J+l ), PRTOUT (I J+2) , 

PRTOUT (I J+3) 


CRY03510 
CRY03520 
CRY03530 
CRY03540 
CRY03550 
CRY03560 
CRY03570 
CRY03580 
CRY03590 
CRY03600 
CRY03610 
CRY03620 
CRY03630 
CRY03640 
CRY03650 
CRY03660 
CRY03670 
CRYG3680 
CRY03690 
CRY03700 
CRY03710 
CRY03720 
CRY03730 
CRYG3740 
CRY03750 
CRY037 60 
CRY03770 
CRY03780 
CRY03790 
CRY03800 
CRY03810 
CRYO302O 
CRY03830 
CRY03840 
CRY03850 
CRYO306O 
CRYO307O 
CRY03880 
CRY03890 
CRY03900 
CRY03910 
CRY03920 
CRY03930 
CRY03940 
CRY03950 
CRY03960 
CRY03970 
CRY03980 


THEN 


I F (MATRLS ( I REG ) . GE . 1 00 . AND . MATRLS ( IREG ) . LT .200. AND . KTEMP . EQ. 0 ) 
KTEMP-1 

MATRLS (IREG) -MATRLS (IREG) +200 
REWIND 4 
GOTO 36 
END 1 F 

IF (MATRLS (IREG) .GE. 300. AND. KTEMP. EQ.l) THEN 
MATRLS (IREG) -MATRLS (IREG) -200 
ENDIF 

IF (MATRLS (IREG) .GE. 300. AND. KTEMP . EQ.0) 

MATRLS (IREG) -MATRLS (IREG) -200 
REWIND 4 
KTEMP-1 
GOTO 36 
ENDIF 

IF (MATRLS (IREG) .GE.100 .AND. MATRLS (IREG) , 

MATRLS (IREG) -MATRLS (IREG) +200 
ENDIF 

(IX, Al) 

(/,' THE FOLLOWING IS THE RANGE OF PRESSURES IN THE') 

{' MATERIAL DBASE FOR ',A16,' IN REGION I', II,': '//) 
(13, A16) 


.LT. 200. AND. KTEMP. EQ.0) 


FORMAT 

FORMAT 

FORMAT 

FORMAT 


THENCRY03990 
CRY04000 
CRY04010 
CRY04020 
CRY04030 
CRY04040 
CRY04050 
CRY04060 
CRY04070 
CRY04080 
CRY04090 
CRY04100 
CRY041 10 
CRY04120 
CRY04130 
THENCRY041 40 
CRY04150 
CRY04160 
CRY04170 
CRY041 80 
CRY041 90 
CRY04200 
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6 

19 

29 

56 


74 

84 

85 

91 

92 

93 

94 

95 

96 

97 

98 
198 
100 


format 

format 

FORMAT 

FORMAT 


FORMAT 

FORMAT 

FORMAT 

FORMAT 

format 

format 

format 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

format 

return 

END 


',F7.1,' r ,A4) 


(2X,H,5X,A16,SX,I2 f SX,I4,7X,I2> 

(7X,'REM -,A13,A17 ( - FOR ',A16, AT P 
(7X,'REM -,A13,A17,' FOR ',A16> 

(/,' STARTING PRESSURE - -,F10.2,//, 

' ENDING PRESSURE - -,F10.2,//, 

: DESIRED PRESSTOE 2 FOR ^HAT REGION V, 

(I3,A15,F9.7,1X,A20) 

- #A16 > 

, A16, ' AT P-',F7.1,' 
'),F6.0,',',E12.5> 

E12 . 5, ' , END' > 
' # E12.5,','),'END') 

' , E12 . 5, ' , 

, E12 . 5, ' , 


(7X,'REM CP * RHO FOR 
(7X , * REM CP * RHO FOR 
(12X, 2 (F6 .0 , ' , 9 ,E12.5, ' 

( 1 2 X , 1 1 , 1 3 , ' , ' , F 6 . 0 , ' t ' 

(12 X, 11,13, ' , ' , 2 (F6.0, * 

(12X, 11,13, ' , ' ,3 (F6.0, ' 

(12X, I1,I3/12X, 2 (F6.0, # 

(12X,F6.0,' ,' ,E12.5,' ,END' ) 

(12X, 2 (F6.0,' , ' ,E12.5, # , ' ) , ' END ) 
(12X,3(F6.0,' ,',E12.5 ,',') , * END" ) 
(12X, A1 9) 


r ) , ' END' ) 
r ) , E6 . 0 , ' ^ 


' , A10 ) 


' ,E12.5) 


SUBROUTINE MATUSR ( IREG) 

COMMON/REGION/NTHET^ < 9 ) . TMCKW , 

. THKLAY (9) , MATRLS (9) , MATNMS (9) , RGNNMS (9) 

COMMON /UNI TS/MODU, SINDA 

LOGICAL REGNS 

CHARACTER* 1 6 MNAME, MATNMS, RGNNM 
CHARACTER*^ TABUNT (10) 

CHARACTER* 1 TB 

DIMENSION* PUOOKTUO, 700, ,NAMTAB ,10, , PRTOUT ,1000, 

WRI^M ' PLEASE ENTER THE NUMBER CORRESPONDING TO THE STATE- 

WRITE (6,*, ' OF THE MATERIAL T0 3 , GAS- 

WRITE (6,M - 1 " LIQUID 2 - SOLID 

CALL READIN (LSG, 1,3) 

LSG-LSG*100 

MAX-0 

DO 1 1-1,5 

IF IF*"!ttTRLMI^“LSG.LT .100. AND. MATRLS (I, -LSG. GT. MAX, 

• MAX -MATRLS (I) -LSG 

ENDIF 

CONTINUE 

MATRLS (IREG) -LSG+MAX+1 
MNUM -MATRLS (IREG) 

IF (LSG. NE. 200) THEN 

• «»«. .« .»»■» ™ " s "' 
CALL READRE (PRESS) 

TABUNT (2) PSIA # 


ENDIF 

CALL CLEARS 
WRITE (6,*) 
WRITE (6,*) 

CALL READIN 
WRITE (6,*) 

CALL READIN 
NAMTAB (3) -2 
NAMTAB (4) - 6 
DO 2 1-3 , NTABLE 
CALL CLEARS 
WRITE (6,*) 
WRITE (6,*) 
WRITE (6,*) 
WRITE (6,*) 


, rwTFR number OF TABLES YOU WISH TO INPUT (MIN - 2) 1 
: WOTE: SPECIFIC HEAT AND CONDUCTIVITY MUST BE GIVEN 

'"enter TH£ 9 NUMBER OF TEMPERATURES YOU WISH TO INPUT 
(NTEMP, 1, 999) 


ENTER THE NUMBER CORRESPONDING TO TABLE #' 

1. VISCOSITY' 

2. ENTHALPY' 

3. DENSITY' 


CALL READIN (NTYPE, 1,3) 

IF (NTYPE. EQ.l) NAMTAB (1 + 2) ’ 


CRY04210 
CRY04220 
CRY04230 
CRY042 40 
CRY04250 
CRY042 60 
CRY04270 
CRY0 4280 
CRY04290 
CRY04300 
CRY04310 
CRY04320 
CRY04330 
CRY04340 
CRY043 50 
CRY04360 
CRY04370 
CRYO 43 80 
CRY04390 
CRY04400 
CRYO 4410 
CRY044 20 
CRY04430 
CRY04440 
CRY04450 
CRY044 60 
CRY04470 
CRYO 44 80 
CRY04490 
CRYQ4500 
CRY04510 
CRY04520 
CRY04530 
CRY04540 
CRYO 4 5 50 
CRY04560 
CRY04570 
CRYO 4 580 
CRY04590 
CRY04600 
CRY04610 
CRY04620 
CRY04630 
CRY04640 
CRY04650 
CRY04660 
CRYO 4 670 
CRY04680 
CRY04690 
CRY04700 
CRY04710 
CRY04720 
CRY04730 
CRY04740 
CRY04750 
CRY047 60 
CRYO 4770 
CRY04780 
' CRY04790 
CRYO 4800 
CRY04810 
CRY04820 
CRYO 48 30 
CRY048 40 
CRY048 50 
CRY048 60 
CRYO 4 B 70 
CRYO 48 80 
CRYO 48 90 
CRY04900 
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IF (NTYPE.EQ.2) NAMTAB ( 1 + 2) -5 
IF (NTYPE.EQ.3) NAMTAB (1+2) -3 
2 CONTINUE 

DO 3 I-1,NT£MP 
CALL CLEARS 

WRITE (6, *) ' ENTER THE NEW TEMPERATURE (R) ' 

CALL READ RE (TEMP) 

DO 4 J-l , NT ABLE 
CALL CLEARS 
T(2, I) -TEMP 
T (1, I) -PRESS 

IF (NAMTAB (J+2) .EQ. 2) PROP-' SPECFIC HEAT' 

IF (NAMTAB (J+2) . EQ. 3) PROP-' DENSITY' 

IF (NAMTAB (J+2) .EQ. 4} PROP-' VISCOSITY' 

IF (NAMTAB (J+2) .EQ. 5) PROP-' ENTHALPY' 

IF (NAMTAB (J+2) .EQ. 6) PROP-' CONDUCTIVITY' 

IF (LSG.NE.200) WRITE (6,7) PROP, T (2, I ) , T (1 f I ) 

IF (LSG.EQ.200) WRITE (6,8) PR0P,T(2,I) 

CALL READRE (T(J+2,I)) 

4 CONTINUE 

3 CONTINUE 
9 DO 73 IK-3, NTABLE+2 

IF (NAMTAB ( IK) .EQ. 2) PROP-' SPECIFIC HEAT' 

IF (NAMTAB (IK) .EQ. 3) PROP-' DENSITY' 

IF (NAMTAB (IK) . EQ. 4) PROP-' VISCOSITY' 

IF (NAMTAB(IK) .EQ.5) PROP-' ENTHALPHY' 

IF (NAMTAB (IK) . EQ. 6) PROP-' CONDUCTIVITY' 

IF (MNUM.GE. 200.AND.MNUM. LE.299) THEN 
WRITE (MODU, 29) PROP, MATNMS (IREG) 

ELSE 

WRITE (MODU, 19) PROP , MATNMS ( IREG) , PRESS, TABUNT ( 2 ) 

END I F 
JJ-0 

DO 75 I J-l , NTEMP 

IF (ABS (T (1, I J) -PRESS) .LE. 0.01) THEN 
JJ-JJ+1 

PRTOUT (JJ) -T (2, IJ) 

TB-TABUNT (1) 

IF (TB. EQ. ' R' .AND. MATNMS (9) .EQ. 'F' ) 

* PRTOUT (JJ) -PRTOUT (JJ) -459.69 

IF (TB.EQ.'F' .AND .MATNMS ( 9) .EQ.'R') 

* PRTOUT (JJ) -PRTOUT (JJ) +459. 69 

IF (TB. EQ. ' C' .AND. MATNMS (9) .EQ.'F') 

* PRTOUT (JJ)-(l.B*PRTOUT(JJ)) +32 

IF (TB.EQ.'C' .AND. MATNMS (9) .EQ.'R' ) 

* PRTOUT (JJ) -( (PRTOUT (JJ) -32) /l. 8) +4 59.69 

IF (TB. EQ . ' K' .AND. MATNMS (9) .EQ.'F') 

* PRTOUT (JJ) -(1.8* (PRTOUT (JJ)-273. 16) ) +32 

IF (TB.EQ.'K' .AND. MATNMS (9) .EQ.'R' > 

* PRTOUT ( JJ) - { (1.8* (PRTOUT (JJ) -273.16) )+32)+459.69 
JJ-JJ+1 

PRTOUT ( JJ) -T (IK, I J) 

ENDIF 

75 CONTINUE 

LINES*JJ/6 

IF (JJ.EQ.2) WRITE (MODU, 92) NAMTAB (IK) , MAT RLS ( IREG) , 

* PRTOUT (1) , PRTOUT (2) 

IF (JJ.EQ.4) WRITE (MODU, 93) NAMTAB < I K) , MATRLS ( IREG) , 

* PRTOUT (1) , PRTOUT (2) , PRTOUT (3) , PRTOUT (4) 

IF ( JJ. EQ. 6) WRITE (MODU, 94) NAMTAB (I K) , MATRLS ( IREG) , 

* PRTOUT (1) , PRTOUT (2) , PRTOUT (3) , PRTOUT (4) , 

* PRTOUT (5) , PRTOUT (6) 

IF (JJ.GT.6) WRITE (MODU, 95) NAMTAB (IK) , MATRLS (IREG) , 

* PRTOUT (1), PRTOUT (2) , PRTOUT (3) , PRTOUT (4 ) , 

* PRTOUT (5) , PRTOUT (6) 

M-MOD (JJ, 6) 

DO 76 II-2, LINES 
L-LINES 

IJ-{ (II-l) *6) +1 

IF (M. EQ . 0 .AND . I I . NE . L) WRITE (MODU, 91) (PRTOUT (KK) , KK-IJ, I J+5) 


CRY04910 

CRY04920 

CRY04930 

CRY04940 

CRY04950 

CRYQ4960 

CRY04970 

CRY04980 

CRY04990 

CRY05000 

CRY05010 

CRY05020 

CRY05030 

CRY05040 

CRY05050 

CRY05060 

CRY05070 

CRY05080 

CRY05090 

CRY05100 

CRY05110 

CRY05120 

CRY05130 

CRY051 40 

CRY05150 

CRY051 60 

CRY051 70 

CRY05180 

CRY051 90 

CRY05200 

CRY0521 0 

CRY05220 

CRY05230 

CRY05240 

CRY05250 

CRY05260 

CRY05270 

CRY05280 

CRY05290 

CRY05300 

CRY05310 

CRY05320 

CRY05330 

CRY05340 

CRY05350 

CRY053 60 

CRY05370 

CRY0 5380 

CRY053 90 

CRY05400 

CRY05410 

CRY054 20 

CRY05430 

CRY05440 

CRY054 50 

CRY054 60 

CRY054 70 

CRY0 5480 

CRY054 90 

CRY0 5500 

CRY05510 

CRY05520 

CRY05530 

CRY05540 

CRY05550 

CRY05560 

CRY05570 

CRY05580 

CRY05590 

CRY05600 
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IF (M.NE.O.AND. II. EQ.L) WAITE (MODU, 91) (PRTOUT (KK) , KK-IJ, I J+5) 

IF (M.NE.O.AND. II. NE.DWAITE (MODU, 91) (PRTOUT (KK) , KK-IJ, I J+5) 

IF (M EQ.O.AND.II.EQ.L) WRITE (MODU,98) PRTOUT (I J) , PRTOUT (I J+l) , 

. ’ PRTOUT (I J+2) , PRTOUT (I J+3) , PRTOUT (I J+4) , PRTOUT (I J+5) 

76 CONTINUE 

IJ-( (LINES) * 6) +1 
IF (NTEMP.EQ.l) GOTO 73 

IF (M.EQ.2) WRITE <MODU, 96) PRTOUT (I J) , PRTOUT (I J+l ) 

IF (M.EQ.4) WRITE (MODU, 97} PRTOUT (I J) / PRTOUT (I J+l ), PRTOUT (I J+2) , 
* PRTOUT {I J+3) 


73 CONTINUE 

IF (MNUM.GE.200.AND.MNUM.LE. 299) THEN 
WRITE (MODU# 84 ) MATNMS(IREG) 

E LSE 

WRITE (MODU, 85) MATNMS (I REG) / PRESS, TABUNT (2) 

ENDIF 

DO 81 IK-3 , NTABLE+2 

IF (NAMTAB(IK) .EQ.2) NSP-IK 
IF (NAMTAB(IK) .EQ.6) NCND-IK 
81 CONTINUE 
JJ-0 

DO 82 IJ-l/NTEMP 

IF (ABS (T (1 f I J) -PRESS) . LE . 0 . 01) THEN 
JJ-JJ+1 

PRTOUT (JJ)-T(2, I J> 

TB-TABUNT (1) 

IF (TB. EQ . * R f .AND. MATNMS (9) .EQ.'F') 

* PRTOUT (JJ) -PRTOUT (JJ) -459 . 69 

IF (TB. EQ.'F' .AND. MATNMS (9) , EQ. 9 R' ) 

* PRTOUT (JJ) /-PRTOUT (JJ) +459. 69 

IF (TB.EQ.'C' .AND. MATNMS (9) , EQ. ' F' } 

* PRTOUT (JJ) - (1 . 8*PRTOUT (JJ) } +32 

IF (TB. EQ. ' C' .AND .MATNMS (9) .EQ. ' R' ) 

* PRTOUT (JJ) - ( (PRTOUT (JJ) -32) /1 . 8) +459.69 
IF (TB.EQ.'K' .AND. MATNMS (9) .EQ.'F') 

* PRTOUT (JJ) -(1.8* (PRTOUT (JJJ-273.16) ) +32 
IF (TB. EQ. ' K' .AND. MATNMS (9) . EQ. ' R' ) 

* PRTOUT ( JJ) -((1.8* (PRTOUT (JJ) -273.16) ) +32) +459. 69 

JJ-JJ+1 

PRTOUT (JJ) -T (NSP/ 1 J) *T (NCND, I J) 

ENDIF 


B2 


CONTINUE 

LINES- 

« JJ/ 6 

K-l 


IF 

( JJ. EQ.2) 

IF 

(JJ.EQ.4) 

IF 

(JJ. EQ.6) 

IF 

(JJ.GT. 6} 


WRITE (MODU, 92) K, MATRLS (IREG) , 

PRTOUT (1) , PRTOUT (2) 

WRITE (MODU, 93) K, MATRLS (IREG) , 

PRTOUT (1) , PRTOUT (2) , PRTOUT (3) , PRTOUT (4) 
WRITE (MODU, 94) K f MATRLS (I REG) , 

PRTOUT (1) , PRTOUT (2) , PRTOUT (3) , PRTOUT (4) , 
PRTOUT (5) , PRTOUT (6) 

WRITE (MODU, 95) K, MATRLS (IREG) , 

PRTOUT (1) , PRTOUT (2) , PRTOUT (3) , PRTOUT (4) , 
PRTOUT (5) , PRTOUT (6) 

M-MOD (JJ, 6) 

DO 86 II-2, LINES 
L-LINES 

IJ-((II-1) *6) +1 

(M. EQ.O. AND. II. NE.L) WRITE 
(M.NE.O.AND. I I. EQ.L) WRITE 
(M.NE.O.AND. II. NE.L) WRITE 


IF 

IF 

IF 

IF 


(MODU, 91) 

(MODU, 91) 

— - - (MODU, 91) . 

(M. EQ.O.AND.II.EQ.L) WRITE (MODU, 98} PRTOUT (I J) , PRTOUT (I J+l) , 

PRTOUT (I J+2) .PRTOUT (IJ+3) , PRTOUT (I J+4) ,PRTOUT (IJ+5) 


(PRTOUT (KK) , KK-IJ, I J+5) 
(PRTOUT (KK) , KK-IJ, I J+5) 
(PRTOUT (KK) , KK-IJ, I J+5) 


86 CONTINUE 

M-MOD (JJ, 6) 

IJ-( (LINES) *6} +1 
IF (NTEMP.GT.l) THEN 

IF (M.EQ.2) WRITE (MODU, 96} PRTOUT (I J) , PRTOUT (I J+l ) 

IF (M.EQ.4) WRITE (MODU, 97) PRTOUT (I J) , PRTOUT (I J+l ), PRTOUT (I J+2) , 
* ’ PRTOUT (I J+3) 


CRY05610 
CRYO 5620 
CRY05630 
CRY05640 
CRY05650 
CRYO 5660 
CRY05670 
CRY05680 
CRY05690 
CRY05700 
CRY05710 
CRY05720 
CRY05730 
CRY05740 
CRY057 50 
CRYO 57 60 
CRY05770 
CRY05780 
CRY05790 
CRY05800 
CRY05810 
CRY05820 
CRYO 5630 
CRY05840 
CRYO 58 50 
CRYO 58 60 
CRYO 5870 
CRYO 5880 
CRYO 58 90 
CRY05900 
CRY05910 
CRY05920 
CRY05930 
CRYO 5940 
CRY05950 
CRY05960 
CRYO 5970 
CRY05980 
CRY05990 
CRY06000 
CRY06010 
CRYO 6020 
CRY06030 
CRYO 6040 
CRYO 60 50 
CRY060 60 1 
CRYO 6070 
CRYO 60 80 
CRY06090 
CRYO 61 00 
CRYO 6110 
CRY06120 
CRYO 6130 
CRYO 6140 
CRYO 61 50 
CRYO 61 60 
CRY061 70 
CRY061 80 
CRY061 90 
CRYO 6200 
CRYO 6210 
CRYO 62 20 
CRYO 6230 
CRYO 62 40 
CRY06250 
CRYO 6260 
CRYO 6270 
CRYO 6280 
CRY062 90 
CRY06300 
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ENDIF 

6 FORMAT ( 2X , 14, 5X, A16, 5X, 12, 5X, 14, 7X, 12) 

7 FORMAT (IX, ' ENTER THE ',A16,' VALUE AT ' , 

* F7.1,' (R) AND ' , F7 . 1, ' (PSIA).') 

8 FORMAT ( IX, ' ENTER THE ',A16,' VALUE AT ',F7.1,' (R) . ' ) 

19 FORMAT <7X,'R£M ',A13,' FOR \A16, ' AT P-',F7.1,' ',A10) 

29 FORMAT (7X,'REM ',A13,' FOR ',A16) 

74 FORMAT (13, Aid) 

84 FORMAT (7X,'REM CP * K FOR ',A16> 

85 FORMAT (7X,'REM Cp * k FOR ',A16,' AT P-',F7.1,' ',A10> 


91 

FORMAT 

(12X,2 (F6.0, ' , ' ,E12.5, 

','),F6.0,',' 

, E12 . 5) 

92 

FORMAT 

(7X, 11, 13, ' , ' , F6. 0, ' , ' 

, E12. 5, ' , END' 

) 

93 

FORMAT 

(7X, 11, 13, ' , ' , 2 (F6.0, ' 

, ' ,E12.S, ') 

, ' END' ) 

94 

FORMAT 

(7X, 11, 13, ' , ' ,3 (F6.0, ' 

,',£12.5,',') 

, ' END' ) 

95 

FORMAT 

(7X, 11, 13, ' , ' ,2 (F6.0, ' 

,',E12.5, 

, F6. 0, ' 

96 

FORMAT 

(12X, F6 . 0, ' , ' , E12 . 5, ' , 

END' ) 


97 

FORMAT 

(12X, 2 (F6.0, ' ,' ,E12.5, 

' , ' ) , 'END' ) 


98 

FORMAT 

(12X, 3{F6.0,',' , £12 . 5, 

END') 



RETURN 

END 


CRY06310 

CRY06320 

CRY06330 

CRY06340 

CRY06350 

CRY06360 

CRY06370 

CRY06380 

CRY06390 

CRY06400 

CRY06410 

CRY06420 

CRY06430 

CRY06440 

CRY06450 

CRY064 60 

CRY06470 

CRY06480 

CRY064 90 

CRY06500 

CRY06510 

CRY06520 

CRY06530 

CRY06540 

CRY06550 


SUBROUTINE CYLNDS 

COMMON /REG ION/ NTHETA, NBETAS, BETA, RIN, TVOL, 

* ROUT (9) , REGNS (9) , NLAYR5 { 9) , TEMPS (9) , 

* THICK ( 9) , THKLAY ( 9) , MATRLS (9) , MATNMS { 9) , RGNNMS { 9) 

COMMON/TOP BOT/NTOP , NBOT , NFTLAY , NSTLAY, NETLAY, NFBLAY, NSBLAY, NEBLAY, CRY06560 

* ETRAT, EBRAT, FTTHK, FBTHK CRY06570 

COMMON/ REG INP/MATT, DIST, THK, NLAY, MATN, RGNAM CRY06580 

COMMON/C YDATA/CYLHGT,NCY LAY CRY06590 

COMMON /HTXGRS/ NHX, HXTEMP (10) , NRHX (10) ,NLHX (10) , NTHHX (10) , CRY06600 

* LNGTHX (10) CRY06610 

COMMON/UNI TS/MODU, SINDA CRY06620 

COMMON/ULLAGE/ NLUL4 , NLUL5, NTHU41, RINMHH, PCTFUL, RADULG, TVULFT, CRY06630 

* CT, LG (3) , LIQVAP (3) CRY06640 

COMMON / VOLUME / VO LL IQ, ACC LI Q CRY06650 

COMMON /NODDAT/NODNUM (10000) , VOL (10000) , NLGS (10000) CRY06660 

LOGICAL REGNS CRY06670 


CHARACTER* 16 MLABL 

CRY06680 

CHARACTER* 1 6 RGNNMS, MNAME, MATNMS , RGNAM, MATN 

CRY06690 

CHARACTER* 10 TYPE1 , TYPE2 

CRY06700 

CHARACTER* 1 CT, LG 

CRY06710 

CHARACTER* 6 LIQVAP 

CRY0 6720 

IF (NTOP.EQ.2) TYPEl-'FLAT' 

CRY0 6730 

IF (NTOP.EQ.3) TYPE1-' SPHERICAL' 

CRY06740 

IF (NTOP.EQ.4) TYPE1-' ELLIPTICAL' 

CRY06750 

IF (NBOT.EQ.2) TYPE2-' FLAT' 

CRY06760 

IF (NBOT. EQ. 3) TYPE2-' SPHERICAL' 

CRY06770 

IF (NBOT.EQ.4) TYP E2 ELLI PTICAL' 

CRY06780 

DO 4 1-1,5 

CRY0 67 90 

IF (I.EQ.l) NUMNOD-2001 

CRY06800 

IF (I.EQ.2) NUMNOD-4001 

CRY06B10 

IF (I.EQ.3) NUMNOD-6001 

CRY06820 

IF (I.EQ.4) NUMNOD-8001 

CRY06830 

IF (I.EQ.5) NUMNOD-9001 

CRY06840 

IF (REGNS (I)) THEN 

CRY06850 

NLAY-NLAYRS (I) 

CRY06860 

TMP-TEMPS (I) 

CRY0687O 

THK-THICK (I) 

CRYO6880 

DIST-ROUT (I) 

CRY0 68 90 

MATT -MATRLS (I) 

CRY06900 

MATN -MATNMS (I) 

CRY06910 

RGNAM- RGNNMS (I) 

CRY06920 

ELSE 

CRY06930 

GOTO 4 

CRY0 6940 

ENDIF 

CRY06950 

IF (NBOT.EQ.l) GOTO 160 

CRY0 6960 

IF (NBOT.EQ.2) CALL FEND (I, NUMNOD, FBTHK, NFBLAY, 2) 

CRY06970 

IF (NBOT.EQ.3) CALL SEND ( I, NUMNOD, NSBLAY, 2) 

CRY06980 

IF (NBOT.EQ.4) CALL E END (I, NUMNOD, EBRAT, 2) 

CRY06990 

CRY07000 


232 



160 CALL CYLSEC (I,NUMNOD) 

IF (NTOP.EQ.l) GOTO 4 

IF (NTOP . EQ. 2) CALL FEND (I, NUMNOD, FTTHK, NFTLAY, 1) 

IF (NTOP.EQ.3) CALL SEND ( I, NUMNOD, NSTLAY, 2) 

IF (NTOP.EQ.4) CALL EEND (I, NUMNOD, ETRAT , 1 ) 

4 CONTINUE 

IF (PCTFUL. GT. 0.001 .AND. CT.EQ. # 1' ) CALL ULL1G 

IF (PCTFUL. LE. 0.001) THEN 

DO 91 I -8001, 10000 

IF (NLGS (I) .GT.100.AND.NLGS (I) .LE. 199) NLGS (I) -NLGS (I) +200 
91 CONTINUE 

ENDIF 

IF (PCTFUL. GT.O. 001 .AND. CT.EQ. ' 0' ) CALL ULLOG 

WRITE (MODU, 170) 

CALL RITNDS (NTHETA, 2,1001, 1, 0, TEMPS (1) , 0 .0, MATNMS (1) ) 

WRITE (MODU, 171) 

NN-1 

WRITE (MODU, 172) ' 1' 

DO 46 1-2001 , 3000 

IF (NODNUM(I) .EQ.O) GOTO 46 

IF (VOL {I ) .NE . VOL (1+1) .OR.NLGS(I) .NE. NLGS (1 + 1 ) ) THEN 
NUMNOD-I -NN+ 1 
NARY-NLGS (NUMNOD) 

CALL RITNDS (NN, 1 , NUMNOD, 1, NARY, TEMPS (1) , VOL (I) , MATNMS (1) ) 
NN-1 
ENDIF 

IF (VOL (I ) . EQ .VOL (1+1 ) . AND. NLGS (I ) . EQ . NLGS (1+1 ) ) NN-NN+1 

46 CONTINUE 

WRITE (MODU, 173) ' 1' 

WRITE (MODU, 170) 

CALL RITNDS (NTHETA, 2, 3001 , 1, 0, TEMPS (1) , 0 .0, MATNMS (1) ) 

WRITE (MODU, 171) 

NN-1 

IF (REGNS (2) ) THEN 

WRITE (MODU, 172) '2' 

DO 47 1-4001, 5000 
IF (NODNUM (I) .EQ.O) GOTO 47 

IF (VOL (I ) . NE . VOL (1+1) .OR. NLGS (I) .NE. NLGS (I +1 ) ) THEN 
NUMNOD-I-NN+1 
NARY-NLGS (NUMNOD) 

CALL RITNDS (NN, 1 , NUMNOD, 1, NARY, TEMPS (2) , VOL(I) , MATNMS (2) ) 
NN-1 
ENDIF 

IF (VOL (I) . EQ.VOL (1+1) .AND. NLGS (I) .EQ.NLGS (1+1) ) NN-NN+1 

47 CONTINUE 

WRITE (MODU, 173) '2' 

WRITE (MODU, 170) 

CALL RITNDS (NTHETA, 2, 5001, 1, 0, TEMPS (2) , 0.0, MATNMS (2) ) 

WRITE (MODU, 171) 

ENDIF 

NN-1 

IF (REGNS (3)) THEN 
WRITE (MODU, 172) '3' 

DO 4 8 1-6001,7000 

IF (NODNUM(I) .EQ.O) GOTO 48 

IF (VOL(I) .NE.VOL (1+1) .OR. NLGS (I) .NE.NLGS (1+1) ) THEN 
NUMNOD-I-NN+1 
NARY-NLGS (NUMNOD) 

CALL RITNDS (NN,1, NUMNOD, 1, NARY, TEMPS (3) ,VOL(I) , MATNMS (3) ) 
NN-1 
ENDIF 

IF (VOL (I ) . EQ.VOL (1 + 1 ) .AND. NLGS (I ) . EQ.NLGS { 1 + 1) ) NN-NN+1 

48 CONTINUE 

WRITE (MODU, 173) '3' 

WRITE (MODU, 170) 

CALL RITNDS (NTHETA, 2, 7001 , 1 , 0 , TEMPS (3 ), 0 . 0, MATNMS (3) ) 


CRY07010 
CRY07020 
CRY07Q30 
CRY07040 
CRY070 50 
CRY070 60 
CRY07070 
CRY07080 
CRY07090 
CRY07100 
CRY071 10 
CRY07120 
CRY07130 
CRY071 40 
CRY071 50 
CRY07160 
CRY07170 
CRY071 60 
CRY07190 
CRY07200 
CRY07210 
CRY07220 
CRY07230 
CRY07240 
CRY07250 
CRY072 60 
CRY07270 
CRY07280 
CRY072 90 
CRY07300 
CRY07310 
CRY07320 
CRY07330 
CRY073 40 
CRY073 50 
CRY07360 
CRY07370 
CRY073B0 
CRY073 90 
CRY074 00 
CRY074 10 
CRY074 20 
CRY07430 
CRY07440 
CRY074 50 
CRY074 60 
CRY07470 
CRY07480 
CRY07490 
CRY07500 
CRY07510 
CRY07520 
CRY07530 
CRY075 40 
CRY07550 
CRY07560 
CRY07570 
CRY07580 
CRY07590 
CRY07600 
CRY07610 
CRY07620 
CRY07630 
CRY07640 
CRY07650 
CRY07660 
CRY07670 
CRY07660 
CRY07690 
CRY07700 
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WRITE {MODU, 171 } 

ENDIF 

NN-1 

IF (REGNS (4) ) WRITE (MODU, 172} ' 4' 

DO 49 1-8001 , 9000 

IF (NODNUM(I) . EQ.OJ GOTO 49 

IF <VOL(I) .NE.VOL(I + l) .OR.NLGS(I) .NE.NLGS (1 + 1)) THEN 
NUMNOD-I -NN+ 1 
NAR Y-N LG S (NUMNOD) 

CALL RITNDS (NN, 1 , NUMNOD, 1, NARY, TEMPS (4) , VOL (I) , MATNMS (4) ) 
NN-1 
ENDIF 

IF (VOL {I ) . EQ.VOL (1 + 1) .AND.NLGS {1} . EQ.NLGS (1 + 1) } NN-NN+1 

49 CONTINUE 

IF (REGNS (4)) WRITE (MODU, 173) ' 4' 

NN-1 

IF (REGNS (5)) THEN 
WRITE (MODU, 170) 

CALL RITNDS (NTHETA, 2, 9001, 1, 0, TEMPS (5) , 0. 00, MATNMS (I) ) 

WRITE (MODU, 171) 

WRITE (MODU, 172) '5' 

DO 50 1-9001, 10000 ‘ 

IF (NODNUM (I) ,EQ. 0) GOTO 50 

IF (VOL (I) . NE.VOL (1*1) . OR.NLGS (I) .NE.NLGS (1+1) ) THEN 
NUMNOD-I -NN+ 1001 
NARY-NLGS (NUMNOD) 

CALL RITNDS (NN, 1 , NUMNOD, 1, NARY, TEMPS (5) , VOL (I) , MATNMS (5) ) 
NN-1 
ENDIF 

IF (VOL (I ) . EQ.VOL (I +1 ) .AND.NLGS (I) • EQ.NLGS (1+1) ) NN-NN+1 

50 CONTINUE 

WRITE (MODU, 173) '5' 

ENDIF 

IF (NHX.GT.0) WRITE (MODU, 178) 

170 FORMAT (7X,'REM START OF SURFACE NODES') 

171 FORMAT ( 7X, ' REM END OF SURFACE NODES') 

172 FORMAT (7X, ' REM START OF NODES FOR REGION #',A1) 

173 FORMAT (7X,'REM END OF NODES FOR REGION *',A1) 

178 FORMAT (7X,'REM THE REMAINNING NODES ARE HEAT EXCHANGERS') 

RETURN 

END 

SUBROUTINE CYLSEC (I, NUMNOD) 

COMMON /REG I ON/ NTHETA, NBETAS, BETA, RIN, TVOL, 

* ROUT (9) , REGNS ( 9) , NLAYRS (9) , TEMPS (9) , 

* THICK (9) , THKLAY (9) , MATRLS (9) , MATNMS (9) , RGNNMS (9) 


LOGICAL REGNS 

CHARACTER* 1 6 RGNNMS, MNAME, MATNMS, RGNAM, MATN 

HCT-CYLHGT/NCYLAY 
DIN-ROUT ( I ) -THICK { I ) 

NDIV-NLAYRS (I) 

WIDTH-THICK (I) /NDIV 

DOUT-DIN+WIDTH 

ANG-BETA 

NARY-1000+MATRLS (I) 

DO 1 J-l , NDIV 
RAD1-ANG*DQUT 
RAD2-ANG*DIN 

VOLU-WIDTH*HGT* ( (RAD1+RAD2) /2 . ) 


CRY08210 
CRY08220 
CRY08230 
CRY08240 
CRY08250 
CRY08260 
CRY08270 
CRY08280 
CRY082 90 
CRY08300 
CRY08310 
CRY08320 
CRY08330 
CRY08340 
CRY083 50 
CRY08360 
CRY08370 
CRY083BO 
CRY08390 
CRY08400 
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VOLU, MATNMS (I) ) 


IF (J.LT.NDIV) NL-NCYLAY+NUMNOD 
IF (J.EQ.NDIV) NL-NC Y LAY + NUMN OD - 1 
DO 3 IJ-NUMNOD,NL 
NODNUM (I J) -I J 
VOL ( I J} -VOLU 
NLGS (IJ) -NARY 
CONTINUE 

CALL RITNDS (NCYLAY, 1 , NUMNOD, 1 , NARY, TEMPS (I) 
NUMNOD-NUMNOD+NCYLAY 
DIN-DIN+WIDTH 
DOUT-DOUT+WIDTH 
CONTINUE 

RETURN 
END 

SUBROUTINE FEND (I, NUMNOD, FTHK, NFLAY, NWHICH) 

CQMMON/REGION/NTHETA, N BETAS, BETA, RIN, TVOL, 

* ROUT (9) , REGNS {9) , NLAYRS ( 9) , TEMPS <9) , 

* THICK (9) , THKLAY (9) , MATRLS ( 9) , MATNMS (9) , RGNNMS (9) 
COMMON/TOPBOT/NTOP , NBOT, NFTLAY , NSTLAY, NETLAY, NFBLAY, NSBLAY, NEBLAY 

* ETRAT, EBRAT, FTTHK, FBTHK 
COMMON /REG INP/MATT , DIST, THK, NLAY, MATN, RGNAM 
COMMON/NODDAT/NODNUM (10000) , VOL {10000) , NLGS (10000) 

COMMON /C YD AT A/ CYLHGT , NCYLAY 

COMMON / VOLUME / VO LL IQ, ACC LI Q 

LOGICAL REGNS 

CHARACTER* 16 RGNNMS, MNAME, MATNMS, RGNAM, MATN 

HGT-FTHK/NFLAY 
DIN-ROUT (I) -THICK (I) 

NDIV-NLAYRS (I) 

ANG-BETA 

WIDTH-THICK (I) /NDIV 
DOUT-DIN+WIDTH 


NARY-1000 + MATRLS (I) 

DO 1 J»1 , NDIV 

RADl-ANG*DOUT 

RAD2-ANG*DIN 

VOLU-WIDTH*HGT* ( ( RADI + RAD 2) /2 . ) 

DO 3 I J-NUMNOD, NUMNOD+NFLAY 

NODNUM < I J) -IJ 

VOL (I J) -VOLU 

NLGS (IJ) -NARY 

CONTINUE 

CALL RITNDS (NFLAY, 1, NUMNOD, 1, NARY, TEMPS (I) 
NUMNOD-NUMNOD+NFLAY 
DOUT-DOUT+WIDTH 
DIN-DIN+WIDTH 
CONTINUE 


r VOLU, MATNMS (I) ) 


RETURN 

END 


SUBROUTINE SEND (I, NUMNOD, NRGLAY, NWHICH) 


COMMON/REGION/NTHETA, NBETAS, BETA, RIN, TVOL, 

* ROUT (9) , REGNS (9) , NLAYRS (9) , TEMPS (9) , 

* THICK (9) , THKLAY (9) , MATRLS ( 9) , MATNMS ( 9) , RGNNMS { 9) 

COMMON/TOPBOT/NTOP, NBOJ, NFTLAY, NSTLAY, NETLAY, NFBLAY, NSBLAY, NEBLAY, 

* ETRAT, EBRAT, FTTHK, FBTHK 
COMMON/REG INP/MATT, DIST, THK, NLAY, MATN, RGNAM 
COMMON/NODDAT/NODNUM (10000) , VOL (10000) , NLGS (10000) 

COMMON /CYDATA/ CYLHGT , NCYLAY 
COMMON/UNITS/MODU, SINDA 
COMMON/VOLUME/VOLLIQ, ACCLIQ 

COMMON/STUFF/ NHTT, PI , CONVY, CONVR, THETAO, DTHETA, NBASOS, ROUTSF, 

* BNCOEF (2) 


CRYQ84 10 
CRY0B420 
CRY08430 
CRY08440 
CRY08450 
CRY084 60 
CRY08470 
CRY08480 
CRY084 90 
CRY08500 
CRY08510 
CRY08520 
CRY08530 
CRY08540 
CRY08550 
CRY08560 
CRY08S70 
CRY08580 
CRY08590 
CRY08600 
CRY08610 
, CRY08620 
CRY08630 
CRY08640 
CRY08650 
CRY08660 
CRY08670 
CRY08680 
CRY06690 
CRY08700 
CRY0871 0 
CRY08720 
CRY08730 
CRY08740 
CRY087 50 
CRY08760 
CRY08770 
CRY08780 
CRY087 90 
CRY08800 
CRY08810 
CRY08820 
CRY0 8 B 30 
CRY08840 
CRY08850 
CRY088 60 
CRY08870 
CRY08880 
CRY088 90 
CRY08900 
CRY08910 
CRY08920 
CRY08930 
CRY08940 
CRY08950 
CRY08960 
CRY08970 
CRY08980 
CRY08990 
CRYO 9000 
CRY0 9010 
CRYO 90 20 
CRY09030 
CRY09040 
CRYO 9050 
CRYO 90 60 
CRYO 9070 
CRYO 9080 
CRY09090 
CRY091 00 
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LOGICAL REGNS 

CHARACTER* 16 RGNNMS, MNAME, MATNMS, RGNAM, MATN 


C THIS SECTION CALCULATES THE NODE AREA FOR A NODE IN EITHER THE TOP 
C OR BOTTOM SPHERE. 

TH - THKLAY ( I ) 

NARY - 1000 + MATRLS (I) 

IF (NWHICH.EQ. 1) THEN 
NS LA Y-N ST LAY 
THETAO-O 

ELSE 

NSLAY-NSBLAY 

THETA0-PI/2. 

ENDIF 

DTHETA-P 1/ 2 . /NSLAY 

DO 1 M-l , NLAYRS (I) 

IF (I.EQ.4) EL-M 
IF (I.EQ.3) EL-NLAYRS (I)-M+l 
R-ROUT (I) -TH* {EL-0.5) 

DO 2 JPOS-O, NRGLAY-1 
IF (NWHICH.EQ. 1) POS — 1 * ( JPOS + 1 ) 

IF (NWHICH.EQ. 2) POS-JPOS 

THETA1«THETAO-POS*DTHETA 

THETA2-THETA1-DTHETA 

AREA-BETA* R*R* (COS (THETA1) +COS (THETA2) ) *DTHETA/2 . 

NODNUM (NUMNOD) -NUMNOD 
VOL (NUMNOD) -AREA*TH 
NLGS (NUMNOD) -NARY 
NUMNOD - NUMNOD + 1 
2 CONTINUE 
1 CONTINUE 

RETURN 

END 


SUBROUTINE EEND (I, NUMNOD, ERAT, NWHICH) 

COMMON /REG I ON/ NT HETA, NBETAS, BETA, RIN, TVOL, 

* ROUT (9) , REGNS (9) , NLAYRS ( 9) , TEMPS (9), 

* THICK (9) , THKLAY (9) , MATRLS ( 9) , MATNMS ( 9) , RGNNMS (9) 
COMMON /TOP BOT/NTOP, NBOT, NFTLAY, NSTLAY, NETLAY, NFBLAY, NSBLAY, NEBLAY 

* ETRAT, EBRAT, FTTHK, FBTHK 
COMMON /REG I NP /MATT, DIST, THK, NLAY, MATN, RGNAM 
COMMON/NODDAT/NODNUM (10000) , VOL (10000) , NLGS (10000) 
COMMON/CYDATA/CYLHGT, NCYLAY 
COMMON/UNI TS/MODU, SINDA 
COMMON / VOLUME /VOLL IQ, ACC LI Q 

COMMON/STUFF/ NHTT, PI, CONVY, CONVR, THETA0, DTHETA, NBASOS, ROUTSF, 

* BNCOEF (2 ) 

LOGICAL REGNS 

CHARACTER* 16 RGNNMS, MNAME, MATNMS, RGNAM, MATN 


C THIS SECTION CALCULATES THE NODE AREA FOR A NODE IN EITHER THE TOP 
C OR BOTTOM ELIPSE. 

TH - THKLAY { I ) 

C BETA - 1.0 

NARY - 1000 + MATRLS (I) 

IF (NWHICH. EQ.l) THEN 
NELAY-NETLAY 
THETAO-O 

FLSE 

NELAY-NEBLAY 


CRY09110 
CRY091 20 
CRYO 91 30 
CRY091 40 
CRYO 91 50 
CRYO 91 60 
CRY091 70 
CRY091 80 
CRY091 90 
CRY09200 
CRY09210 
CRYO 9220 
CRY09230 
CRYO 92 40 
CRY09250 
CRY09260 
CRY09270 
CRYO 9280 
CRYO 92 90 
CRY09300 
CRY09310 
CRY09320 
CRY09330 
CRYO 9340 
CRY09350 
CRY09360 
CRY09370 
CRY09380 
CRYO 93 90 
CRYO 9400 
CRY09410 
CRYO 94 20 
CRYO 9430 
CRYO 94 40 
CRY094 50 
CRYO 94 60 
CRYO 9470 
CRYO 9480 
CRY09490 
CRY09500 
CRYO 95 10 
CRYO 9520 
CRYO 9530 
CRY095 40 
CRY09550 
, CRYO 95 60 
CRYO 9570 
CRY09580 
CRYO 95 90 
CRY09600 
CRY09610 
CRY09620 
CRY09630 
CRY09640 
CRY09650 
CRY09660 
CRY09670 
CRY09680 
CRY09690 
CRY09700 
CRYO 9710 
CRY09720 
CRY09730 
CRY09740 
CRYO 97 50 
CRYO 97 60 
CRYO 9770 
CRYO 9780 
CRYO 97 90 
CRYO 9800 
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THETA0-PI/2. 

ENDIF 

DTHETA-PI/2. /NELAY 
DO 1 M-l, NLAYRS (I) 

IF (I.GE.4) EL-M-1 
IF (I.LE.3) EL-NLAYRS(I)-M+1 
AI "ROUT { I ) -TH* (EL) 

AO-AI+TH 

BI-AI*ERAT 

BO-BI+TH 

C PRINT EEND, I , NW, RO,THO f DTH' , I, NWHICH, ROUT (I) , THETAO, DTHETA 

C PRINT *, 'M, AI, AO # BI, BO' , M, AI,AO, BI, BO 

DO 2 JPQS-0, NELAY- 1 
IF (NWHICH. EQ.l) POS— 1* ( JPOS+1) 

IF (NWHICH. EQ. 2) POS-JPOS 
THETA2-THETAO-POS*DTHETA 
THETA1-THETA2 -DTHETA 
NODNUM (NUMNOD) -NUMNOD ■ 

AAVG- ( AO+AI) /2 . 

BAVG- (BO+BI) / 2 . 

THAVG- ( THETA 1+THETA2 ) /2. 

COSAVG-COS (THAVG) 

SINAVG-SIN (THAVG) 

C PRINT * , ' NN, TH1 , TH2, A, B, THAV, CTHA, STHA' , 

C 1 NUMNOD, THE TA1, THETA2,AAVG, BAVG, THAVG, COSAVG, SI NAVG 
FRST- ( (BETA*COSAVG) /2. > * ( (AAVG*BAVG) / SQRT ( { BAVG * BAVG * 

1 COSAVG* COSAVG) + (AAVG*AAVG*SINAVG*SINAVG) } ) 

SND-AO*BO* (ATAN { (AO/BO) *TAN (THETA2 ) ) -ATAN ( (AO/BO) *TAN (THETA1 ) ) > 
THR-AI * BI * (ATAN ( (AI/BI) *TAN (THETA2 ) ) -ATAN ( (AI/BI) *TAN (THETA1 ) ) ) 
VOL (NUMNOD) -FRST* (SND-THR) 

C WRITE (6,*) * FIRST, SND,THR,VOL' , FRST, SND, THR, VOL(NUMNOD) 

NLGS (NUMNOD) -NARY 
NUMNOD - NUMNOD + 1 
2 CONTINUE 
1 CONTINUE 
RETURN 
END 

SUBROUTINE HXARR 

CQMMGN/REGIQN/NTHETA, NBETAS, BETA, RIN, TVOL, 

* ROUT (9) , REGNS (9) , NLAYRS ( 9} , TEMPS (9) , THICK ( 9) , 

* THKLAY (9) , MATRLS (9) , MATNMS (9) # RGNNMS (9) 

COMMON/TOP BOT/NTOP , NBOT, NFTLAY , NSTLAY, NETLAY, NFBLAY, NSBLAY, 

* NEBLAY, ETRAT, EBRAT, FTTHK, FBTHK 
COMMON/CYDATA/ CYLHGT , NCYLAY 
CCMMQN/VOLUME/VOLLIQ, ACCLIQ 

COMMON/ HTXGRS/ NHX, HXTEMP (10) , NRHX (10) , NLHX (10) , NTHHX (10) , 

* LNGTHX (10) 

COMMON/HX/NDS (1000) , NCND (1000) , INDEX 
COMMON/UN ITS /MODU, SINDA 

LOGICAL REGNS 
CHARACTER* 16 MLABL 

CHARACTER* 16 RGNNMS, MNAME, MATNMS, RGNAM, MATN 

NUMCND=1 

INDEX-0 

NUMBER--20001 

NT LAY- NFTLAY+NETLAY+ NSTLAY 
NBLAY-NFBLAY+NEBLAY+NSBLAY 
DO 1 1-1 , NHX 

IF (NRHX (I) . EQ.l) NSTART-2001 
IF (NRHX (I) .EQ. 2) NSTART-4001 
IF (NRHX (I) .EQ. 3) NSTART-6001 
IF (NRHX (I) .EQ. 4) NSTART-8001 
IF (NRHX (I) .EQ. 5) NSTART-9001 

IF (NRHX (I) .EQ.l. AND. NLHX(I) .EQ.l) NSTART-1001 
IF (NRHX (I ) . EQ . 2 .AND . NLHX (I) .EQ.l) NSTART-3001 
IF (NRHX (I ) . EQ .3 .AND .NLHX (I) .EQ. 1) NSTART-5001 


CRYO 9810 
CRYO 98 20 
CRY09830 
CRY09840 
CRY098 50 
CRYO 98 60 
CRYO 9870 
CRY09880 
CRYO 98 90 
CRY09900 
CRY09910 
CRY09920 
CRY09930 
CRY09940 
CRY09950 
CRY09960 
CRY09970 
CRY09980 
CRY09990 
CRY10000 
CRY1001Q 
CRY10020 
CRY10030 
CRY10040 
CRY100 50 
CRY100 60 
CRY10070 
CRY10080 
CRY10090 
CRY10100 
CRY10110 
CRY10120 
CRY1013Q 
CRY10140 
CRY10150 
CRY10160 
CRY10170 
CRY10180 
CRY10190 
CRY10200 
CRY10210 
CRY10220 
CRY10230 
CRY10240 
CRY10250 
CRY102 60 
CRY10270 
CRY102 80 
CRY102 90 
CRY10300 
CRY10310 
CRY10320 
CRY10330 
CRY10340 
CRY10350 
CRY10360 
CRY10370 
CRY10380 
CRY10390 
CRY10400 
CRY10410 
CRY10420 
CRY10430 
CRY10440 
CRY10450 
CRY10460 
CRY10470 
CRY10480 
CRY104 90 
CRY10500 
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IF (NRHX (I ) . EQ. 4 .ANO.NLHX(I) . EQ. 1) NSTART-1001 
IF (NRHX (I ) . EQ. 5 .AND. NLHX (I) . EQ. 1) NSTART-8001+ 

* (NCYLAY*NLAYRS(4) ) + (NTLAY*NLAYRS<4) )+ (NBLAY* NLAYRS (4 ) } 
LEVEL-NTHHX (I) 

LEVEL2-0 

LEVEL3-0 

DO 2 K-l, LNGTHX(I) 

IF (LEVEL. L£. NBLAY) NUM-NSTART+ (NBLAY* (NLHX < I ) -1 )) +{LEVEL-1 ) 

I F ( LEVE L . GT . N BLAY . AND . NBLAY . GT . 0 . AND . LEVEL . LE . N BLAY+NCY LAY ) 
LEVEL2-LEVEL2+1 

NUM-NSTART+ (NBLAY *NLAYRS (NRHX (I) ) ) + (NCYLAY* (NLHX (I) -1) ) + 

* LEVEL2 
ENDIF 

IF (NBLAY. EQ.O. AND. LEVEL. LE. NCYLAY) 

* NUM-NSTART+ {NBLAY *NLAYRS (NRHX (I) ) ) + (NCYLAY* (NLHX (I) -1 } ) + 

* (LEVEL-1) 

IF ( LEVEL. GT. NBLAY +NCY LAY) THEN 
LEVEL3-LEVEL3+1 

NUM-NSTART+ (NBLAY*NLAYRS (NRHX (I) ) ) + (NCYLAY*NLAYRS (NRHX(I) ) 

* (NT LAY* (NLHX ( I) -1 ) ) +LEVEL3 
ENDIF 

INDEX-INDEX+1 
LEVEL-LEVEL+1 
NDS (INDEX) -NUM 
NCND (INDEX) -NUMBER 
2 CONTINUE 

NUMBER-NUMBER-1 
1 CONTINUE 

RETURN 

END 

SUBROUTINE CYLCDS 

COMMON/REGION/NTHETA, N BETAS, BETA, RIN, TVOL, 

* ROUT (9) , REGNS (9) , NLAYRS ( 9) , TEMPS (9) , THICK (9) , 

* THKLAY (9) , MATRLS ( 9 ) , MATNMS (9) , RGNNMS (9) 
COMMON/TOP BOT/ NTOP, NBOT, NFTLAY, NSTLAY, NETLAY, NFBLAY, NSBLAY, 

* NE BLAY, ETRAT,E BRAT, FTTHK,FBTHK 
COMMON/CYDATA/ CYLHGT, NCYLAY 

COMMON /HTXGRS/ NHX,HXTEMP ( 10) , NRHX (10) , NLHX (10) , NTHHX (10 } , 

* LNGTHX (10) 

COMMON /UN ITS /MODU, SINDA 
COMMON /NANB/NA1 (5, 3) ,NB1 (5,3) 

COMMON/HX/NDS (1000) , NCND (1000) , INDEX 
COMMON/NODDAT/NODNUM (10000) , VOL (10000) ,NLGS (10000) 
COMMON/STUFF/ NHTT, P I , CONVY, CONVR, THETA0, DTHETA, NBASOS, ROUTSF, 

* BNCOEF (2) 

LOGICAL REGNS 
CHARACTER* 16 MATNMS 
CALL HXARR 

NCON-1 
DO 1 1-1,5 

IF (.NOT. REGNS (I) ) GOTO 1 
NB-2000* 1+1 
NA-NB-1 000 
IF (I.EQ.4) NA-1001 
IF (NBOT.NE.l) THEN 
NA1 (1,1) -NA 
NB1 (I, 1) -NB 

NA1 (I, 2) -NA1 (1,1) +NFBLAY+NSBLAY+NEBLAY 

NB1 (I, 2) -NB1 (I, 1) + ( ( NFBLAY +NSBLAY+NE BLAY) * NLAYRS (I) ) 

ENDIF 

IF (NBOT.EQ.l) THEN 
NA1 (I, 1) -0 
NB1 (I, 1) -0 
NA1 (I, 2} -NA 
NB1 (1,2) -NB 
ENDIF 

NA1 (1,3) -NA1 (1,2) + NCYLAY 


CRY10510 
CRY10520 
CRY10530 
CRY10540 
CRY10550 
CRY10560 
CRY10570 
CRY10580 
THEN CRY10590 
CRY10600 
CRY10610 
CRY10620 
CRY10630 
CRY 10 640 
CRY10650 
CRY10660 
CRY10670 
CRY10680 
)+ CRY10690 

CRY10700 
CRY10710 
CRY10720 
CRY10730 
CRY10740 
CRY10750 
CRY10760 
CRY10770 
CRY10780 
CRY10790 
CRY10800 
CRY10810 
CRY10820 
CRY10830 
CRY10840 
CRY1085O 
CRY10860 
CRY10870 
CRY10880 
CRY10890 
CRY10900 
CRY10910 
CRY10920 
CRY10930 
CRY10940 
CRY10950 
CRY10960 
, CRY10970 

CRY10980 
CRY10990 
CRY11000 
CRY11010 
CRY11020 
CRY11030 
CRY11040 
CRY11050 
CRY11060 
CRY11070 
CRY11080 
CRY11090 
CRY11100 
CRY11110 
CRY11120 
CRY11130 
CRY11140 
CRY11150 
CRY11160 
CRY11170 
CRY11180 
CRY11190 
CRY11200 
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NB1 (I, 3) -NB1 (I, 2) + (NCYLAY'NLAYRS (I) ) 

■ ^ CAL° T FCND 2) (I,NAl(I,l),NBl(I,l),NCON,NFBLAY,FBTHK r l) 

IF (NB0T.EQ.3) 

* CALL SCND (I,NA1 (1,1) , NB1 {1, 1) , NCON, NSBLAY, 1 ) 

* CALL ECND (I , NA1 (I,1),NB1(I,1), NCON, NEBLAY, EBRAT, 1 ) 
CALL CYLALL (I, NA1 (1,2), NB1 (1,2), NCON) 

. " CAirFCND 2, (I,NAl(I,3),NBl(I,3),NCON,NFTLAY,FTTHK,2) 

IF (NTOP.EQ.3) 

* CALL SCND (I # NA1 (1,3) , NB1 (I, 3) , NCON, NSTLAY, ) 

IF (NTOP EQ 4) 

* CALL ECND (I , NA1 (I,3),NB1(I,3), NCON, NETLAY, ETRAT, 2) 
CONTINUE 

RETURN 

END 


SUBROUTINE CYLALL (I , NA, NB, NCON) 

COMMON/REGION/NTHETA, NBETAS, BETA, RIN, TVOL, 

* ROUT {9} , REGNS (9) , NLAYRS (9) , TEMPS (9) ,THICK(9) , 

* THKLAY (9) , MATRLS (9) , MATNMS (9) , RGNNMS (9) 

COMMON /TOP BOT/ NTOP , NBOT, NFTLAY, NSTLAY, NETLAY, NFBLAY, NSBLAY, 

. NEBLAY, ETRAT, EBRAT, FTTHK, FBTHK 

CO(WON/HTXGRS/ C NHX^HXTEMP (10) , NRHX (10) ,NLHX (10) , NTHHX (10) , 

. LNGTHX (10) 

COMMON/UNITS/MODU, SINDA 
COMMON/HX/NDS (1000) , NCND (1000) , INDEX 
COMMON/NODDAT/NODNUM (10000) , VOL (10000) , NLGS (10000) 
COMMON/STUFF/ NHTT, PI, CONVY, CONVR, THETA0 , DTHETA, NBASOS, ROUTSF, 

* BNCOEF (2 ) 


LOGICAL REGNS 
CHARACTER* 16 MLABL 

CHARACTER* 16 RGNNMS, MNAME, MATNMS, RGNAM, MATN 


WRITE (MODU, 171) I 


52 

62 


^ARY-6000 + MATRLS (I) 
JDIV-NLAYRS II) 

[F (NDIV.EQ.l) 

[F (NDIV.GT.l) 

30 1 J-l , NTEMP 
IF (J.EQ.l) 


NTEMP-1 

NTEMP-NDIV-1 


THEN 

DIN-BETA* (ROUT (I ) -THICK (I ) ) 

DOUT-DIN + (BETA* ( (THICK (I) /NDIV) /2. ) ) 

F= ( ( (DIN+DOUT) /2 . ) * (CYLHGT/NCYLAY) ) / ( (THICK (I) /NDIV) /2 . ) 

NTSTHX-0 

DO 71 K-l, INDEX 

IF (NDS (K) .GE.NA.AND. NDS (K) .LE. NA+NCYLAY) THEN 
NUM-0 
NPART-0 

DO 52 IK-K, INDEX 

IF (NCND (IK) .EQ. NCND (IK-1) .AND. IK. EQ.K) NPART-1 

IF (NDS (IK+1) .EQ. (NDS (IK) +1) .AND. 

NCND (IK+1) .EQ. NCND (IK)) NUM-NUM+1 
IF (NDS (IK+1) .NE. (NDS (IK) +1) ) GOTO 62 
CONTINUE 
NTSTHX-1 
NAHX-NDS (K) 

NBHX-NCND (K) 

N-ABS (20000 + NCND (K) ) 

NTH-NTHHX (N) - (NFBLAY+NEBLAY+ NSBLAY) 

NCOV1-NTH-1 


CRY11210 

CRY11220 

CRY11230 

CRY11240 

CRY11250 

CRY11260 

CRY11270 

CRY11280 

CRY11290 

CRY11300 

CRY11310 

CRY11320 

CRY11330 

CRY11340 

CRY11350 

CRY11360 

CRY11370 

CRY11360 

CRY11390 

CRY11400 

CRY11410 

CRY11420 

CRY11430 

CRY11440 

CRY11450 

CRY11460 

CRY11470 

CRY114B0 

CRY11490 

CRY11500 

CRY11510 

CRYl 1520 

CRYl 1530 

CRYl 1540 

CRY11550 

CRYl 1560 

CRYl 1 570 

CRYl 1580 

CRYl 1590 

CRY11600 

CRYl 1610 

CRYl 1620 

CRYl 1630 

CRYl 1 640 

CRY11650 

CRYl 1660 

CRYl 1670 

CRYl 1680 

CRYl 1690 

CRYl 1700 

CRYl 17 1 0 
CRYl 17 20 
CRYl 1730 
CRYl 17 40 
CRY11750 
CRY11760 
CRYl 1770 
CRY11780 
CRYl 17 90 
CRYl 1800 
CRY11B1 0 
CRYl 1820 
CRYl 18 30 
CRY11840 
CRYl 1850 
CRY11860 
CRYl 1 870 
CRYl 1 8 BO 
CRY11690 
CRYl 1900 
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71 

72 


91 


321 


51 

32 


NC0V2-NUM+1 

NC0V3-NCYLAY-NC0V1 -NC0V2 
IF (NPART.EQ.l) THEN 
NCOVl-O 
NC0V2-NUM+1 

NCOV3-NCYLAY-NCOV1-NCOV2 
ENDIF 
GOTO 72 
ENDIF 
CONTINUE 
N-NCOV1 

IF (NTSTHX . EQ. 1) ■ THEN 
WRITE (MODU, 123) I 
IF (N.EQ.O) GOTO 91 

CALL RITCND (5, NCON, N, 1 , NA, 1, NB, 1 , NARY, 0, F , 0, MATNMS (I) ) 

NP-NA+N 

NCON-NCON+N 

N-NCOV2 

NH-NBHX 

CALL RITCND (5, NCON, N, 1,NH, 1, NP, 1 , NARY, 0, F, 0, MATNMS (I) ) 

NCON-NCON+N 

NH-NB+NCOV1 

CALL RITCND (5, NCON,N, 1,NP, 1 , NH, 1 , NARY, 0, F, 0, MATNMS (I) ) 
NCON-NCON+N 

IF (NCOV3 . EQ . 0) GOTO 321 
N-NCOV3 

NP-NA+NCOV1+NCOV2 

NH-NB+NCOV1+NCOV2 

CALL RITCND {5, NCON,N, 1 , NP , 1 , NH, 1 , NARY, 0, F, 0, MATNMS (I) ) 

NCON-NCON+NCOV3 

WRITE (MODU, 124) I 

ENDIF 

IF (NTSTHX. EQ.O) THEN 

CALL RITCND (5, NCON, NCYLAY, 1,NA,1,NB, 1 , NARY, 0, F, 0, MATNMS 

NCON-NCON+NC YLAY 

ENDIF 

IF (NDIV.EQ. 1 .AND. I.EQ.5) GOTO 776 
DIN-DOUT 

DOUT-DIN + (BETA * ( (THICK {1} /NDIV) /2 .) ) 

F-( ( (DIN+DOUT) /2 . ) * (CYLHGT/NCYLAY) ) / ( (THICK ( I ) /NDIV) /2.) 
NA-NB 

NB-NB+NCYLAY 
IF (NDIV. EQ. 1 ) THEN 

IF (I.EG.l) NB-3001+ (NFBLAY+NSBLAY+NEBLAY) 

IF (I.EQ.2) NB-5001+ (NFBLAY+NSBLAY+NEBLAY) 

IF (I.EQ.3) NB-7001+ (NFBLAY+NSBLAY+NEBLAY) 

ENDIF 

NTSTHX-0 

DO 21 K-l, INDEX 

IF (NDS (K) . GE ,NA. AND , NDS (K) . LE . NA+NCYLAY) THEN 
NUM-0 
NPART-Q 

DO 51 IK-K, INDEX 

IF (NCND (IK) . EQ.NCND (IK-1 ) .AND. IK. EQ. K) NPART-1 
IF (NDS (IK+1) .EQ. (NDS (IK) +1 ) .AND. 

NCND (IK+1) , EQ.NCND (IK) ) NUM-NUM+1 
IF (NDS (IK+1) .NE. (NDS (IK) +1) ) GOTO 32 
CONTINUE 
NTSTHX-1 
NAHX-NDS (K) 

NBHX-NCND (K) 

N-ABS (20000 + NCND (K) ) 

NTH-NTHHX (N) - (NFBLAY +NEBLAY+NSBLAY) 

NCOV1-NTH-1 

NCOV2-NUM+1 

NCOV3-NCYLAY-NCOV1 -NCOV2 
IF (NPART.EQ.l) THEN 
NCOVl-O 
NCOV2-NUM+1 

NCOV3-NCYLAY-NCOV1-NCOV2 


CRY11910 
CRY11920 
CRY11930 
CRY11940 
CRY11950 
CRY11960 
CRY11970 
CRY11980 
CRY11990 
CRY12000 
CRY12010 
CRY12020 
CRY12030 
CRY12040 
CRY12050 
CRY12060 
CRY12070 
CRY12080 
CRY12090 
CRY12100 
CRY12110 
CRY12120 
CRY12130 
CRY12140 
CRY12150 
CRY12160 
CRY12170 
CRY12180 
CRY12190 
CRY12200 
CRY12210 
CRY12220 
CRY12230 
(I)) CRY12240 
CRY12250 
CRY12260 
CRY12270 
CRY12280 
CRY12290 
CRY12300 
CRY12310 
CRY12320 
CRY12330 
CRY12340 
CRY12350 
CRY12360 
CRY12370 
CRY12380 
CRY12390 
CRY12400 
CRY124 10 
CRY12420 
CRY12430 
CRY12440 
CRY12450 
CRY12460 
CRY12470 
CRY12480 
CRY12490 
CRY12500 
CRY12510 
CRY12520 
CRY12530 
CRY12540 
CRY12550 
CRY12560 
CRY12570 
CRY12580 
CRY12590 
CRY12600 
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21 

22 


92 


322 


776 


33 

34 


ENDIF 
GOTO 22 
ENDIF 
CONTINUE 
N-NCOV1 

IF {NTSTHX. EQ. 1} THEN 
WRITE (MODU, 123} I 
IF (N.EQ.O) GOTO 92 

CALL RITCND (5, NCON, N, 1 , NA, 1, NB, 1 , NARY, 0, F, 0, MATNMS (I ) ) 

NP-NA+N 

NCON-NCON+N 

N-NCOV2 

NH-NBHX 

CALL RITCND (5, NCON, N, 1,NH, 1, NP , 1 , NARY, 0, F, 0, MATNMS (I) ) 

NCON-NCON+N 

NH-NB+NCOV1 

CALL RITCND { 5, NCON, N, 1 , NP, 1, NH, 1 , NARY, 0, F, 0, MATNMS (I) ) 
NCON-NCON+N 

IF (NCOV3.EQ.O) GOTO 322 
N-NCOV3 

NP-NA+NCOV1+NCOV2 

NH-NB+NCOV1+NCOV2 

CALL RITCND (5, NCON, N , 1,NP, 1, NH,1, NARY, 0, F, 0, MATNMS (I) ) 

NCON-NCON+N 

WRITE (MODU, 124) I 

ENDIF 

IF (NTSTHX. EQ.0) THEN 

IF (NLGS (NA) .NE.NLGS (NB) .AND. J.NE. 1) THEN 
FT- (DOUT+DOUT+ (THICK (I) /NDIV) } /2 . 

F2- (FT* (CYLHGT/NCYLAY) > / ( (THICK (I) /NDIV) /2 . ) 

CALL RITCND (7, NCON, N,1,NA, 1,NB,1,NLGS (NA) , NLGS (NB) ,F, 

F2 , MATNMS ( I ) ) 

ELSE 

CALL RITCND (5, NCON, NCYLAY, 1,NA,1,NB, 1, NARY, 0, F, 0, MATNMS (I) > 
ENDIF 

NCON -NCON+ NCYLAY 
ENDIF 
ENDIF 

IF (J. GT.l. AND. J.LT. NDIV) THEN 
DIN - DOUT 

DOUT- DIN + (BETA* (THICK (I ) /NDIV) ) 

F- ( (DIN+DOUT) / 2 . ) * (CYLHGT/NCYLAY) / ( (THICK(I) /NDIV) ) 

NA-NA+NCYLAY 

NB-NB+NCYLAY 

IF (I.E0.4) NSAVE-NSAVE+NCYLAY 

NTSTHX-0 

DO 23 K-l, INDEX 

IF (NDS (K) . GE .NA. AND . NDS (K) . LE .NA+NCYLAY) THEN 
NUM-0 
NPART-0 

DO 33 IK-K, INDEX 

IF (NCND(IK) . EQ. NCND { IK-1) .AND. IK.EQ.K) NPART-1 
IF (NDS(IK+1) .EQ. (NDS(IK)+1) .AND. 

NCND (IK+1) . EQ. NCND (IK) ) NUM-NUM+1 
IF (NDS (IK+1) .NE. (NDS (IK) +1) ) GOTO 34 
CONTINUE 
NTSTHX-1 
NAHX-NDS (K) 

NBHX-NCND (K) 

N-ABS ( 20000 + NCND (K) ) 

NTH-NTHHX (N) - (NFBLAY+NEBLAY+NSBLAY) 

NCOV1-NTH-1 

NCOV2-NUM+1 

NCOV3-NCYLAY-NCOV1 -NCOV2 
IF (NPART.EQ.l) THEN 
NCOVl-O 
NCOV2-NUM+1 

NCOV3 -NCYLAY- NCOV 1 - NC OV 2 
ENDIF 


CRY12610 

CRY12620 

CRY12630 

CRY12640 

CRY12650 

CRY12660 

CRY12670 

CRY12680 

CRY12690 

CRY12700 

CRY12710 

CRY12720 

CRY12730 

CRY12740 

CRY12750 

CRY12760 

CRY12770 

CRY12780 

CRY12790 

CRY12800 

CRY12810 

CRY12820 

CRY12830 

CRY12840 

CRY12850 

CRY12860 

CRY12870 

CRY12880 

CRY12890 

CRY12900 

CRY12910 

CRY12920 

CRY1293Q 

CRY12940 

CRY1295Q 

CRY12960 

CRY12970 

CRY12980 

CRY12990 

CRY13000 

CRY13010 

CRY13020 

CRY13030 

CRY13040 

CRY13050 

CRY130 60 

CRY13070 

CRY13080 

CRY13090 

CRY13100 

CRY13110 

CRY13120 

CRY13130 

CRY131 40 

CRY13150 

CRY131 60 

CRY13170 

CRY131 80 

CRY131 90 

CRY13200 

CRY13210 

CRY13220 

CRY13230 

CRY13240 

CRY13250 

CRY132 60 

CRY13270 

CRY13280 

CRY13290 

CRY13300 


241 


23 

24 


93 


323 


3b 

36 


GOTO 24 
ENDIF 
CONTINUE 
N-NCOV1 

IF (NTSTHX. EQ. 1) THEN 

WRITE (MODU, 123) I 

IF (N.EQ.O) GOTO 93 

IF {NLGS (NAJ .NE.NLGS (NB) ) THEN 

FT- (DOUT+DOUT+ (THICK (I ) /NDIV) ) /2. 

F2" (FT* (CYLHGT/NCYLAY) ) / ( (THICK (I) /NDIV) /2.) 

CALL RITCND (7, NCON, N, 1, NA, 1,NB,1,NLGS (NA) , NLGS (NB) ,F, 

F2, MATNMS (I) ) 

ELSE 

CALL RITCND (5, NCON, N, 1,NA, 1, NB, 1,NARY, 0, F, 0, MATNMS (I) ) 

ENDIF 

NP-NA+N 

NCON-NCON+N 

N-NCOV2 

NH-NBHX 

CALL RITCND ( 5, NCON, N, 1 , NH, 1,NP,1,NARY, 0, F, 0, MATNMS (I) ) 

NCON-NCON+N 

NH-NB+NCOV1 

CALL RITCND (5, NCON,N, 1,NP, 1, NH, 1,NARY, 0, F, 0, MATNMS (I) ) 
NCON-NCON+N 

IF (NCOV3.EQ.O) GOTO 323 
N-NCOV3 

NP-NA+NCOV1+NCOV2 

NH-NB+NC0V1+NC0V2 

CALL RITCND (5, NCON, N,1,NP, 1, NH, 1 , NARY, 0, F, 0, MATNMS (I) ) 

NCON-NCON+N 

WRITE (MODU, 124) I 

ENDIF 

IF (NTSTHX. EQ.0) THEN 
IF (NLGS (NA) .NE.NLGS (NB) ) THEN 
FT- (DOUT+DOUT+ (THICK (I) /NDIV) ) /2. 

F2- (FT* (CYLHGT/NCYLAY) ) / ( (THICK ( I) /NDIV) /2.) 

CALL RITCND (7, NCON,N, 1, NA, 1, NB, 1,NLGS (NA) , NLGS (NB) , F, 

F2, MATNMS (I) ) 

ELSE 

CALL RITCND (5, NCON, NCYLAY, 1,NA,1,NB, 1 , NARY, O, F, 0, MATNMS ( I) ) 
ENDIF 

NCON -NCON +NCYLAY 
ENDIF 
ENDIF 

IF (J. EQ. NDIV. AND. NDIV. NE.l) THEN 

IF ( I . EQ . 4 .AND . { .NOT . REGNS (5) ) ) GOTO 13 
IF (I.EQ.5.) GOTO 13 
DIN-BETA* (ROUT (I ) -THICK (I) ) 

DOUT-DIN + (BETA* ( (THICK (I) /NDIV) /2 . ) ) 

F- ( ( (DIN+DOUT) /2 . ) * (CYLHGT/NCYLAY) )/ ( (THICK ( I ) /NDIV) /2.) 
NA-NB 

IF (I.EQ.l) NB-3001+NFBLAY+NEBLAY+NSBLAY 
IF (I.EQ.2) NB-5Q01+NFBLAY+NSBLAY+NEBLAY 
IF (I.EQ.3) NB-7001+NFBLAY+NSBLAY+NEBLAY 
IF (I.EQ.4) NB-8001+ ( (NFBLAY+NEBLAY+NSBLAY) *NLAYRS (I ) ) + 
(NCYLAY*NLAYRS (I) ) 

NTSTHX-0 

DO 25 K-l, INDEX 

IF (NDS (K) . GE . NA. AND . NDS (K) . LE. NA+NCYLAY) THEN 
NUM-Q 
NPART-0 

DO 35 IK-K, INDEX 

IF (NCND (IK) .EQ.NCND(IK-l) .AND. IK.EQ.K) NPART-1 
IF (NDS (IK+1) .EQ. (NDS (IK) +1) .AND. 

NCND (IK+1) . EQ.NCND (IK) ) NUM-NUM+1 
IF (NDS (IK+1) .NE. (NDS (IK) +1) ) GOTO 36 
CONTINUE 
NTSTHX-1 
NAHX-NDS (K) 


CRY13310 

CRY13320 

CRY13330 

CRY13340 

CRY13350 

CRY13360 

CRY13370 

CRY13380 

CRY13390 

CRY13400 

CRY13410 

CRY13420 

CRY13430 

CRY134 40 

CRY13450 

CRY13460 

CRY13470 

CRY13480 

CRY13490 

CRY13500 

CRY13510 

CRY13520 

CRY13530 

CRY13540 

CRY13550 

CRY13560 

CRY13570 

CRY13580 

CRYI3590 

CRY13600 

CRY13610 

CRY13620 

CRY13630 

CRY13640 

CRY13650 

CRY13660 

CRY13670 

CRY13680 

CRY13690 

CRY13700 

CRY13710 

CRY13720 

CRY13730 

CRY13740 

CRY13750 

CRY13760 

CRY13770 

CRY13780 

CRY13790 

CRY13B00 

CRY13810 

CRY13B20 

CRY13B30 

CRY13840 

CRYI3850 

CRY13860 

CRY13870 

CRY13880 

CRY13890 

CRY13900 

CRY1391 0 

CRY13920 

CRY13930 

CRY13940 

CRY13950 

CRY13960 

CRY13970 

CRY13980 

CRY13990 

CRY14000 
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23 

26 


95 


331 


13 

1 

10 


NBHX-NCND < K) 

N-ABS (20000+NCND (K) ) 

NTH-NTHHX (N) - (NFBLAY+NEBLAY+NSBLAY) 

NCOVl-NTH-1 

NCOV2-NUM+1 

NCOV3-NCYLAY-NCOV1-NCOV2 

IF (NPART.EQ. 1) THEN 
NCOVl-O 
NCOV2-NUM+1 

NCOV3-NCYLAY-NCOV1-NCOV2 
ENDIF 
GOTO 26 
ENDIF 
CONTINUE 
N-NCOV1 

IF (NTSTHX . EQ. 1) THEN 

WRITE (MODU, 123} I 

IF (N.EQ.O) GOTO 95 

IF (NLGS (NA) .NE.NLGS (NB) ) THEN 

FT* (DOUT+DOUT+ (THICK (I) /NDIV) )/ 2 . 

F2- (FT* {CYLHGT/NCYLAY) ) / ( (THICK (I) /NDIV) /2 . ) 

CALL RITCND(7,NCON,N,l,NA, 1, NB, 1 , NLGS (NA) , NLGS (NB) ,F , 
F2, MATNMS (I) ) 


CALL RITCND (5, NCON, N, 1 , NA, 1,NB, 1, NARY, 0 f F, 0, MATNMS (I) ) 

ENDIF 

NP-NA+N 

NCON-NCON+N 

N-NCOV2 

NH-NBHX 

CALL RITCND (5, NCON, N, 1, NH, 1, NP, 1 , NARY, 0, F, 0, MATNMS (I ) ) 

NCON-NCON+N 

NH-NB+NCOV1 

CALL RITCND (5, NCON, N, 1 , NP, 1, NH, 1, NARY, 0, F, 0, MATNMS (I) ) 
NCON-NCON+N 

IF (NCOV3.EQ.O) GOTO 331 
N-NCOV3 

NP -NA+NCOV1+NCOV2 
NH-NB+NCOV1+NCOV2 

CALL RITCND (5, NCON,N, 1,NP, 1, NH, 1, NARY, 0, F, 0, MATNMS (I) ) 

NCON-NCON+N 

WRITE (MODU, 124) I 

ENDIF 

IF (NTSTHX. EQ.O) THEN 
IF (NLGS (NA) .NE.NLGS (NB) ) THEN 
FT- (DOUT+DOUT+ (THICK (I ) /NDIV) ) /2 . 

F2- (FT* (CYLHGT/NCYLAY) >/ ( (THICK (I) /NDIV) /2.) 

CALL RITCND (7, NCON, N, 1 , NA, 1, NB, 1 , NLGS (NA) , NLGS (NB) , F, 

F2, MATNMS (I) ) 

ELSE 

CALL RITCND (5, NCON, NCYLAY, 1, NA, 1, NB, 1, NARY, 0 , F, 0, MATNMS { I ) ) 
ENDIF 

NCON-NCON+NCYLAY 

ENDIF 

ENDIF 

CONTINUE 


LAYB-NFBLAY+NSBLAY+NEBLAY 

IF (I.EQ.l) NSTART- 2001+ (LAYB*NLAYRS ( I ) > 
IF (I.EQ.2) NSTART- 4001+ (LAYB*NLAYRS (I) ) 
IF (I.EQ.3) NSTART- 6001+ (LAYB*NLAYRS (I ) ) 
IF (I.EQ.4) NSTART- 8001+ (LAYB*NLAYRS (I) ) 
IF (I.EQ.5) NSTART- 9001+ (LAYB*NLAYRS ( I ) ) 
ALEN-CYLHGT/NCYLAY 
DI N-ROUT (I ) -THICK (I) 

DOUT-DIN+ (THICK (I) /NDIV) 

DO 31 J-l, NDIV 
NA-NSTART 
NB-NSTART+1 

WIDTH- ( (DIN+DOUT) /2) * (THICK (I) /NDIV) 


CRY14010 

CRY14020 

CRY14030 

CRY14040 

CRY14050 

CRY14060 

CRY14070 

CRY14080 

CRY14090 

CRY14100 

CRY14110 

CRY14120 

CRY1413Q 

CRY14140 

CRY14150 

CRY141 60 

CRY14170 

CRY14180 

CRY141 90 

CRY14200 

CRY14210 

CRY14220 

CRY14230 

CRY14240 

CRY14250 

CRY14260 

CRY14270 

CRY14280 

CRY14290 

CRY14300 

CRY14310 

CRY14320 

CRY14330 

CRY14340 

CRY14350 

CRY143 60 

CRY14370 

CRY14380 

CRY1439Q 

CRY14400 

CRY14410 

CRY14420 

CRY14430 

CRY14440 

CRY144 50 

CRY144 60 

CRY14470 

CRY14480 

CRY14490 

CRY14500 

CRY14510 

CRY14520 

CRY14530 

CRY14540 

CRY14550 

CRY14560 

CRY14570 

CRY14580 

CRY14590 

CRY1 4600 

CRY14610 

CRY14620 

CRY14630 

CRY14640 

CRY14650 

CRY14660 

CRY14670 

CRY14680 

CRY14690 

CRY14700 
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F-WIDTH/ALEN 

NSAME-0 

FLAG-0 

DO 131 KI-NA, NA+NCYLAY-1 

IF (NLGS (KI) .NE. NLGS (KI+1) ) FLAG-1 

IF (NLGS (KI) .EQ. NLGS (KI+1) .AND. FLAG. EQ.O) NSAME - NSAME +1 
131 CONTINUE 

IF (NSAME .NE . NCYLAY) NSAME-NSAME+1 
IF (N SAME. NE. NCYLAY) THEN 
NK-NCYLAY-NSAME 

CALL RITCND (5 # NCON, NSAME-1 , 1 , NA, 1 , NB, 1, NARY, 0, F, 0, MATNMS (I 

Nl-NA+NSAME-1 

N2-NB+NSAME-1 

NCON-NCON+NSAME-1 

NLA-NLGS (Nl) +5000 

NLB-NLGS (N2) +5000 

CALL RITCND (7, NCON, 1,1, Nl, 1, N2 , 1 , NLA, NLB, F, 

* F # MATNMS (I) } 

NCON-NCON+ 1 
NL-NLGS (Nl + 1 ) + 5000 

CALL RITCND (5, NCON, NK, 1, Nl+1, 1,N2+1, 1 , NL, 0, F, 0, MATNMS (I) ) 
NCON -N CON +NK 
ELSE 

CALL RITCND ( 5 , NCON, NCYLAY-1 , 1 , NA, 1, NB, 1 , NARY, 0, F, 0, MATNMS (I) ) 

NCON-NCON+NCYLAY-1 

ENDIF 

NSTART-NSTART+NCYLAY 

DIN-DOUT 

DOUT-DIN+ (THICK (I) /NDIV) 

31 CONTINUE 

WRITE (MODU, 172) I 

123 FORMAT (7X, ' REM START OF H/X IN REGION #',I1) 

124 FORMAT (7X, ' REM END OF H/X IN REGION #',I1) 

171 FORMAT (7X, ' REM CONDUCTOR BLOCK FOR REGION BEGINS (CYL).') 

172 FORMAT (7 X, ' REM CONDUCTOR BLOCK FOR REGION #',I1,' ENDS (CYL).') 

RETURN 

END 

SUBROUTINE FCND ( I , NA,NB, NCON, NFLAY, FTHK, NWHICH) 

CCMMON/REGION/NTHETA, NBETAS, BETA, RIN, TVOL, 

* ROUT (9) , REGNS { 9) , NLAYRS ( 9) , TEMPS (9) ,THICK{9) , 

* THKLAY (9) , MATRLS (9) , MATNMS (9) , RGNNMS (9) 

COMMON/TOP BOT/NTOP, NBOT, NFTLAY, NSTLAY, NETLAY, NFBLAY, NSBLAY, 

* NEBLAY, ETRAT, EBRAT, FTTHK, FBTHK 
COMMON/C YDATA/CYLHGT, NCYLAY 

COMMON/ HTXGRS/ NHX,HXTEMP (10) , NRHX (10) , NLHX (10) , NTHHX ( 10) , 

* LNGTHX (10) 

COMMON/UNITS/MODU, SINDA 
COMMON/HX/NDS (1000) , NCND (1000) , INDEX 

COMMON /NOD DAT /NODNUM (10000) , VOL (10000) , NLGS ( 10000) 

COMMON/STUFF/ NHTT, PI, CONVY, CONVR, THETA0, DTHETA, NBASOS , ROUTSF, 

* BNCOEF (2 ) 

LOGICAL REGNS 
CHARACTER* 16 MLABL 

CHARACTER* 1 6 RGNNMS, MNAME, MATNMS, RGNAM, MATN 
CHARACTER* 6 TYPE 


IF (NWHICH. EQ.l) TYPE- ' BOTTOM' 

IF (NWHICH. EQ. 2) TYPE-'TOP 

IF (NWHICH. EQ.l) WRITE (MODU,171) I,TYPE 
IF (NWHICH. EQ. 2) WRITE (MODU,173) I, TYPE 

NARY-6000+MATRLS (I) 

NDIV-NLAYRS (I) 


CRY14710 
CRY14720 
CRY14730 
CRY14740 
CRY14750 
CRY14760 
CRY14770 
CRY14780 
CRY147 90 
CRY14800 
) ) CRY14810 
CRY14820 
CRY14830 
CRY14840 
CRY14850 
CRY14860 
CRY14870 
CRY14880 
CRY14890 
CRY14900 
CRY14910 
CRY14920 
CRY14930 
CRY14940 
CRY14950 
CRY14960 
CRY14970 
CRY14980 
CRY14990 
CRY15000 
CRY15010 
CRY15020 
CRY15030 
CRY15040 
CRY15050 
CRY15060 
CRY15070 
CRY15080 
CRY15090 
CRY1510G 
CRY15110 
CRY15120 
CRY15130 
CRY15140 
CRY15150 
CRY15160 
CRY15170 
CRY15180 
CRY151 90 
CRY15200 
CRY15210 
CRY15220 
CRY15230 
CRY15240 
CRY15250 
CRY15260 
CRY15270 
CRY15280 
CRY15290 
CRY15300 
CRY15310 
CRY15320 
CRY15330 
CRY15340 
CRY15350 
CRY15360 
CRY15370 
CRY15380 
CRY15390 
CRY15400 
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IF (NDIV.EQ.l) NTEMP-1 
IF (NDIV.GT.l) NTEMP-NDIV-1 
DO 1 J-l , NTEMP 

IF (J.EQ.l) THEN 

DIN-BETA* (ROUT (I)-THICK(I) ) 

DOUT-DIN + (BETA* ( (THICK (I ) /NDIV) /2 . ) ) 

F- < ( (DIN+DOUT) /2 . ) * (FTHK/NFLAY) ) / ( (THICK (I ) /NDIV) /2 . ) 

NTSTHX-0 

DO 71 K-l, INDEX 

IF (NDS (K) .GE.NA. AND.NDS (K) .LE.NA+NFLAY) THEN 
NUM-0 

DO 52 IK-K, INDEX 

IF (NDS (IK+1) .EQ. (NDS(IK)+1) .AND. 

. NCND (IK+1) . EQ . NCND ( IK) ) NUM-NUM+1 

IF (NDS (IK+1) .NE, (NDS (IK) + 1) } GOTO 62 
52 CONTINUE 

62 NTSTHX-1 

NAHX-NDS (K) 

NBHX-NCND (K) 

N-ABS (20000+NCND (K) ) 

IF (NWHICH . EQ. 2) NTH-NTHHX (N) -NCYLAY- (NFBLAY+NEBLAY 
, NSBLAY) 

IF (NWHICH. EQ.l) NTH-NTHHX (N) 

NCOV1-NTH-1 

NCOV2-NUM+1 

NCOV3-NFLAY-NCOV1-NCOV2 
GOTO 72 
ENDIF 

71 CONTINUE 

72 N-NCOV1 

IF (NTSTHX.EQ. 1) THEN 
WRITE (MODU, 123) I 
IF (N.EQ.O) GOTO 63 

IF (NLGS(NA) .NE.NLGS(NB) .AND.J.NE.l) THEN 
FT- (DOUT+DOUT+ (THICK (I ) /NDIV) > 12 . 

F2- (FT* (FTHK/NFLAY) ) / ( (THICK (I ) /NDIV) /2. ) 

CALL RITCND (7 , NCON,N, 1 , NA, 1, NB, 1, NLGS (NA) , NLGS (NB) , F, 

* F2, MATNMS (I) ) 

ELSE 

CALL RITCND (5, NCON,N, 1,NA, 1, NB, 1 , NARY, 0, F, 0, MATNMS (I) ) 
ENDIF 

63 NP-NA+N 

NCON-NCON+N 

N-NCOV2 

NH-NBHX 

CALL RITCND (5, NCON,N, 1,NH, 1, NP, 1, NARY, 0, F, 0, MATNMS (I) ) 

NCON-NCON+N 

NH-NB+NCOV1 

CALL RITCND (5, NCON,N,l,NP, 1, NH, 1, NARY, 0, F, 0, MATNMS (I) ) 
NCON-NCON+N 

IF (NCOV3.EQ.O) GOTO 341 
N-NCOV3 

NP-NA+NCOV1+NCOV2 

NH-NB+NCOV1+NCOV2 

CALL RITCND {5, NCON, N, 1 , NP, 1 , NH, 1 , NARY, 0, F, 0, MATNMS (I) ) 
NCON-NCON+NCOV3 
341 WRITE (MODU, 124) I 

ENDIF 

IF (NTSTHX.EQ. 0) THEN 

IF (NLGS (NA) .NE. NLGS (NB) .AND. J.NE.l) THEN 
FT- (DOUT+DOUT+ (THICK (I ) /NDIV) ) /2 . 

F2- (FT* (FTHK/NFLAY) ) / ( (THICK (I ) /NDIV) /2. ) 

CALL RITCND (7, NCON, NFLAY, 1,NA, 1, NB, 1,NLGS (NA) , NLGS (NB) , F, 

* F2, MATNMS (I)) 

ELSE 

CALL RITCND (5, NCON, NFLAY, 1, NA, 1, NB, 1, NARY, 0, F, 0, MATNMS (I) ) 
ENDIF 

NCON -NCON + NFLAY 
ENDIF 

IF(NDIV.EQ.l .AND . I . EQ. 5) GOTO 776 


CRY15410 
CRY15420 
CRY15430 
CRY15440 
CRY154 50 
CRY15460 
CRY15470 
CRY154B0 
CRY154 90 
CRY15500 
CRY15510 
CRY15520 
CRY15530 
CRY15540 
CRY15550 
CRY15560 
CRY15570 
CRY15580 
CRY15590 
CRY15600 
CRY15610 
CRY15620 
CRY15630 
CRY15640 
CRY15650 
CRY15660 
CRY15670 
CRY15680 
CRY15690 
CRY15700 
CRY15710 
CRY15720 
CRY15730 
CRY15740 
CRY15750 
CRY15760 
CRY15770 
CRY157B0 
CRY157 90 
CRY15B00 
CRY15810 
CRY15B20 
CRY15830 
CRY15840 
CRY15850 
CRY15860 
CRY15870 
CRY15880 
CRY15890 
CRY15900 
CRY15910 
CRY15920 
CRY1 5930 
CRY15940 
CRY15950 
CRY15960 
CRY15970 
CRY15980 
CRY15990 
CRY16000 
CRY16010 
CRY16020 
CRY16030 
CRY16040 
CRY16050 
CRY16060 
CRY16070 
CRY16080 
CRY160 90 
CRY1 6100 
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5 1 


32 


21 

22 


64 


391 


DIN-DOUT 

DOUT-DIN + (BETA * ( (THICK (I) /NDIV) /2. ) ) 

F- ( ( (DIN+DOUT) /2 . ) * (FTHK/NFLAY) ) / ( (THICK (I ) /NDIV) /2. ) 
NA-NB 

NB-NB+NFLAY 
IF (NDIV.EQ.l) THEN 

IF (NWHICH.EQ.l) THEN 
IF (I.EQ.l) NB-3001 
IF (I.EQ.2) NB-5001 
IF (I.EQ.3) NB-7001 
ENDIF 

IF (NWHICH.EQ.2) THEN 

IF (I.EQ.l) NB-3001+NCYLAY+NFBLAY+NSBLAY+NEBLAY 
IF (I.EQ.2) NB-5001 +NCYLAY +NFBLAY+NSBLAY+NEBLAY 
IF (I.EQ.3) NB-7001+NCYLAY+NFBLAY+NSBLAY +NEBLAY 
ENDIF 
ENDIF 
NTSTHX-0 
DO 21 K-l, INDEX 

IF (NDS <K> .GE.NA. AND.NDS (K) . LE . NA+NFLAY ) THEN 
NUM-0 

DO 51 IK-K, INDEX 

IF (NDS (IK+1) ,EQ. (NDS (IK) +1) .AND. 

NCND (IK+1) . EQ.NCND (IK) ) NUM-NUM+1 
IF (NDS (IK+1) .NE. (NDS (IK) +1) ) GOTO 32 
CONTINUE 
NTSTHX-1 
NAHX-NDS (K) 

NBHX-NCND(K) 

N-ABS (20000+NCND (K) ) 

IF (NWHICH.EQ.2) NTH-NTHHX (N) -NCYLAY- (NFBLAY+NEBLAY 

NSBLAY) 

IF (NWHICH.EQ.l) NTH-NTHHX (N) 

NCOV1-NTH-1 

NCOV2-NUM+1 

NCOV3-NFLAY-NCOV1-NCOV2 
GOTO 22 
ENDIF 
CONTINUE 
N-NCOV1 

IF (NTSTHX.EQ.l) THEN 
WRITE (MODU, 123) I 
IF (N.EQ.O) GOTO 64 

IF (NLGS <NA) .NE.NLGS (NB) .AND. J.NE.l) THEN 
FT- (DOUT+DOUT+ (THICK (I) /NDIV) ) /2. 

F2- (FT * (FTHK/NFLAY) )/ ( (THICK (I) /NDIV) /2 . ) 

CALL RITCND (7, NCON, N, 1, NA, 1,NB,1,NLGS (NA) , NLGS (NB) ,F, 

F2, MATNMS (I) ) 

ELSE 

CALL RITCND (5, NCON, N, 1 , NA, 1,NB,1,NARY, 0, F, 0, MATNMS (I) ) 

ENDIF 

NP-NA+N 

NCON-NCON+N 

N-NCOV2 

NH-NBHX 

CALL RITCND (5, NCON, N, 1, NH, 1,NP,1,NARY, 0, F, 0, MATNMS (I) ) 

NCON-NCON+N 

NH-NB+NCOV1 

CALL RITCND (5, NCON, N, 1, NP, 1 , NH, 1, NARY, 0, F, 0, MATNMS (I) ) 
NCON-NCON+N 

IF (NCOV3.EQ. 0) GOTO 391 
N-NCOV3 

NP-NA+NCOV1+NCOV2 

NH-NB+NCOV1+NCOV2 

CALL RITCND (5, NCON,N, 1,NP, 1, NH, 1 , NARY, 0, F, 0, MATNMS (I) ) 

NCON-NCON+N 

WRITE (MODU, 124) I 

ENDIF 

IF (NTSTHX.EQ.O) THEN 

IF (NLGS (NA) .NE.NLGS(NB) .AND. J.NE.l) THEN 


CRY16110 

CRY16120 

CRY16130 

CRY16140 

CRY16150 

CRY16160 

CRY16170 

CRY16180 

CRY16190 

CRY16200 

CRY16210 

CRY16220 

CRY16230 

CRY16240 

CRY16250 

CRY16260 

CRY16270 

CRY16280 

CRY16290 

CRY163O0 

CRY16310 

CRY16320 

CRY16330 

CRY16340 

CRY16350 

CRY16360 

CRY16370 

CRY16380 

CRY16390 

CRY16400 

CRY16410 

CRY16420 

CRY16430 

CRY16440 

CRY16450 

CRY16460 

CRY16470 

CRY16480 

CRY16490 

CRY16500 

CRY16510 

CRY16520 

CRY16530 

CRY16540 

CRY16550 

CRY16560 

CRY16570 

CRY16580 

CRY16590 

CRY16600 

CRY16610 

CRY16620 

CRY16630 

CRY16640 

CRY16650 

CRY16660 

CRY16670 

CRY16680 

CRY16690 

CRY16700 

CRY16710 

CRY16720 

CRY16730 

CRY16740 

CRY16750 

CRY16760 

CRY16770 

CRY16780 

CRY16790 

CRY16800 
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776 


33 

34 


23 

24 


65 


311 


FT= (DOUT+DOUT+ (THICK (I) /NDIV) ) /2 . 

F2- {FT* (FTHK/NFLAY ) ) / { (THICK (I) /NDIV) /2.) 

CALL RITCND (7, NCON, NFLAY , 1 , NA, 1,NB, 1,NLGS (NA) , NLGS (NB) ,F, 
F2 , MATNHS (I) ) 

CALL RITCND (5, NCON, NFLAY , 1 , NA, 1, NB, 1 , NARY, 0, F, 0, MATNMS (I) ) 
ENDIF 

NCON-NCON+NFLAY 

ENDIF 

ENDIF 


IF (J. GT.l. AND. J.LT. NDIV) THEN 
DIN * DOUT 

DOUT- DIN + (BETA* (THICK (I) /NDIV)) 

F- ( (DIN+DOUT) /2 . } * (FTHK/NFLAY) / ( (THICK (I ) /NDIV) ) 

NA-NA+NFLAY 

NB-NB+NFLAY 

IF (I.EQ.4) NSAVE-NSAVE+NFLAY 

NTSTHX-0 

DO 23 K-l, INDEX 

IF (NDS (K) .GE.NA. AND.NDS (K) .LE.NA+NFLAY) THEN 
NUM-0 

DO 33 IK-K, INDEX 

IF (NDS (IK+1) .EQ. (NDS (IK) +1) .AND. 

NCND (IK+1 ) . EQ. NCND { IK) ) NUM-NUM+1 
IF (NDS (IK+1) .NE. (NDS (IK) +1) ) GOTO 34 
CONTINUE 
NTSTHX-1 
NAHX-NDS (K) 

NBHX-NCND (K) 

N-ABS (20000+NCND (K) ) 

IF (NWHICH . EQ. 2) NTH-NTHHX (N) -NCYLAY- (NFBLAY+NEBLAY 

NSBLAY) 


IF (NWHICH. EQ. 1) NTH-NTHHX(N) 

NCOV1-NTH-1 

NCOV2-NUM+1 

NCOV3-NFLAY-NCOV1-NCOV2 
GOTO 24 
ENDIF 
CONTINUE 
N-NCOV1 

IF (NTSTHX . EQ. 1) THEN 
WRITE (MODU, 123) I 
IF (N.EQ.O) GOTO 65 

IF (NLGS (NA) .NE. NLGS (NB) .AND .J.NE. 1) THEN 

FT- (DOUT+DOUT+ (THICK (I ) /NDIV) ) /2 . 

F2- (FT* (FTHK/NFLAY) )/( (THICK (I) /NDIV) /2. ) 

CALL RITCND (7, NCON, N, 1, NA, 1 , NB, 1 , NLGS (NA) , NLGS (NB) , F, 
F2 , MATNMS ( I ) ) 


ELSE 

CALL RITCND (5, NCON, N, 1 , NA, : 

ENDIF 

NP-NA+N 

NCON-NCON+N 

N-NCOV2 

NH-NBHX 

CALL RITCND (5,NCON,N,l,NH, 

NCON-NCON+N 

NH-NB+NCOV1 

CALL RITCND 15, NCON, N, 1,NP, 
NCON-NCON+N 

IF (NCOV3.EQ.0) GOTO 311 
N-NCOV3 

NP-NA+NCOV1+NCOV2 

NH-NB+NCOV1+NCOV2 

CALL RITCND (5, NCON, N, 1,NP, 

NCON-NCON+N 

WRITE (MODU, 124) I 

ENDIF 

IF (NTSTHX. EQ.O) THEN 


, NB, 1,NARY, 0, F, 0, MATNMS (I) ) 

. , NP , 1, NARY, 0, F,0, MATNMS (I) ) 

. , NH, 1 , NARY, 0, F, 0, MATNMS (I) ) 

L , NH, 1 , NARY, 0, F, 0, MATNMS (I ) ) 


CRY16810 

CRY16820 

CRY1603O 

CRY16840 

CRY16850 

CRY16860 

CRY16870 

CRY16880 

CRY16890 

CRY16900 

CRY16910 

CRY16920 

CRY16930 

CRY16940 

CRY16950 

CRY16960 

CRY16970 

CRY16980 

CRY16990 

CRY17000 

CRY17010 

CRY17020 

CRY17030 

CRY17040 

CRY17050 

CRY170 60 

CRY17070 

CRY17080 

CRY17090 

CRY17100 

CRY17110 

CRY17120 

CRY17130 

CRY17140 

CRY17150 

CRY17160 

CRY17170 

CRY17180 

CRY17190 

CRY17200 

CRY17210 

CRY17220 

CRY17230 

CRY17240 

CRY17250 

CRY17260 

CRY17270 

CRY17280 

CRY17290 

CRY17300 

CRY17310 

CRY17320 

CRY17330 

CRY17340 

CRY17350 

CRY17360 

CRY17370 

CRY17380 

CRY17390 

CRY17400 

CRY1741 0 

CRY17420 

CRY17430 

CRY174 40 

CRY17450 

CRY17460 

CRY17470 

CRY17480 

CRY174 90 

CRY17500 
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35 

36 


2 5 
26 


66 


IF (NLGS(NA) .NE.NLGS(NB) .AND.J.NE.l) THEN 
FT- (DOUT+DOUT+ {THICK (I) /NDIV) } /2. 

F2- {FT* (FTHK/NFLAY) > / < {THICK (I) /NDIV) /2. ) 

CALL RITCND (7, NCON , NFLAY , 1 , NA, 1, NB, 1,NLGS (NA) , NLGS (NB) , F, 
F2 , MATNMS { I ) ) 

ELSE 

CALL RITCND ( 5 , NCON , NFLAY , 1 , NA, 1,NB,1,NARY, 0, F, 0, MATNMS (I) 
END IF 

NCON-NCQN+ NFLAY 
ENDIF 
ENDIF 

IF (J.EQ. NDIV. AND. NDIV. NE.l) THEN 

IF ( I . EQ. 4 .AND . ( .NOT . REGNS { 5 ) ) ) GOTO 13 
IF (I.EQ.5.) GOTO 13 
DIN-BETA* {ROUT {I) -THICK (I) ) 

DOUT-DIN ♦ {BETA* ( (THICK (I) /NDIV) /2. ) ) 

F- ( ( (DIN+DOUT) /2.) * (FTHK/NFLAY) ) / { (THICK (I ) /NDIV) /2.) 
NA-NB 

IF (NWHICH.EQ. 2) THEN 

IF (I.EQ.l) NB-30Q1+NFBLAY +NEBLAY+NSBLAY+NCYLAY 
IF (I.EQ.2) NB-5001+NFBLAY+NSBLAY+NEBLAY+NCYLAY 
IF (I.EQ.3) NB-7001+NFBLAY+NSBLAY+NEBLAY+NCYLAY 
IF { I . EQ . 4 ) NB-8001+ ( (NFBLAY+NEBLAY+NSBLAY) *NLAYRS (I) ) + 
{NCYLAY*NLAYRS (I) ) 

ENDIF 

IF (NWHICH.EQ. 1) THEN 
IF (I.EQ.l) NB-3001 
IF (I.EQ.2) NB-5001 
IF (I.EQ.3) NB-7001 
IF (I.EQ.4) NB-8001 
ENDIF 
NTSTHX-0 
DO 25 K-l , INDEX 

IF (NDS (K) . GE . NA. AND . NDS (K) . LE. NA + NFLAY) THEN 
NUM-0 

DO 35 IK“K, INDEX 

IF (NDS (IK+1) .EQ. (NDS (IK) +1) .AND. 

NCND { IK+1 ) . EQ.NCND { IK) ) NUM-NUM+1 
IF (NDS (IK+1) .NE. (NDS (IK) +1 ) ) GOTO 36 
CONTINUE 
NTSTHX-1 
NAHX-NDS (K) 

NBHX-NCND (K) 

N-ABS (20000+NCND (K) ) 

IF {NWHICH.EQ. 2) NTH-NTHHX (N) -NCYLAY- (NFBLAY+NEBLAY 

NSBLAY) 

IF (NWHICH.EQ. 1) NTH-NTHHX (N) 

NCOV1 -NTH- 1 
NCOV2-NUM+ 1 

NCOV3-NFLAY-NCOV1-NCOV2 
GOTO 26 
ENDIF 
CONTINUE 
N-NCOV1 

IF {NTSTHX.EQ. 1) THEN 
WRITE (MODU, 123) I 
IF (N.EQ.O) GOTO 66 

IF (NLGS (NA) .NE. NLGS (NB) .AND.J.NE.l) THEN 
FT- (DOUT + DOUT+ (THICK (I ) /NDIV) ) /2 . 

F2- {FT* (FTHK/NFLAY) ) / ( (THICK (I) /NDIV) /2. ) 

CALL RITCND (7 ; NCON, N # 1, NA, 1, NB, 1,NLGS (NA) , NLGS (NB) , F, 

F2, MATNMS (I) ) 

ELSE 

CALL RITCND ( 5, NCON, N, 1,NA, 1 , NB, 1 , NARY, 0, F, 0, MATNMS (I) ) 

ENDIF 

NP-NA+N 

NCON-NCON+N 

N-NCOV2 

NH-NBHX 


CRY17510 
CRY17520 
CRY17530 
CRY17540 
CRY17550 
CRY17560 
) CRY17570 

CRY17580 
CRY17590 
CRY17600 
CRY17610 
CRY17620 
CRY17630 
CRY17640 
CRY17650 
CRY17660 
CRY17670 
CRY17680 
CRY17690 
CRY17700 
CRY17710 
CRY17720 
CRY17730 
CRY17740 
CRY17750 
CRY17760 
CRY17770 
CRY17780 
CRY17790 
CRY17800 
CRY17810 
CRY17820 
CRY17830 
CRY17840 
CRY17850 
CRY17860 
CRY17B70 
CRY17880 
CRY17890 
CRY17900 
CRY1791G 
CRY17920 
CRY17930 
CRY17940 
CRY17950 
CRY17960 
CRY17970 
CRY17980 
CRY17990 
CRY18000 
CRY18010 
CRY18020 
CRY18030 
CRY18040 
CRY18050 
CRY18060 
CRY18070 
CRY18080 
CRY180 90 
CRY18100 
CRY18110 
CRY181 20 
CRY18130 
CRY181 40 
CRY181S0 
CRY18160 
CRY18170 
CRY18180 
CRY18190 
CRY18200 
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CALL RITCND (5, NCON, N, 1, NH, 1, NP , 1 , NARY, 0, F, 0, MATNMS (I) > 

NCON-NCON+N 

NH-NB+NCOV1 

CALL RITCND (5, NCON, N, 1, NP, 1,NH,1, NARY, 0,F,0, MATNMS (I)) 
NCON-NCON+N 

IF (NCOV3.EQ.0) GOTO 312 
N-NCOV3 

NP-NA+NCOV1+NCOV2 

NH-NB+NCOV1+NCOV2 

CALL RITCND (5, NCON, N, 1 , NP, 1, NH, 1 , NARY, 0, F, 0, MATNMS (I) ) 
NCON-NCON+N 

312 WRITE (MODU, 124) I 

ENDIF 

IF (NTSTHX.EQ.O) THEN 

IF (NLGS(NA) .NE.NLGS(NB) .AND.J.NE.l) THEN 
FT- (DOUT+DOUT+ (THICK (I ) /NDIV) ) /2 . 

F2- (FT* (FTHK/NFLAY) ) / ( (THICK (I ) /NDIV) /2 . ) 

CALL RITCND (7, NCON, NFLAY, 1 , NA, 1 , NB, 1 , NLGS (NA) , NLGS (NB) ,F, 

* F2, MATNMS (I) ) 

ELSE 

CALL RITCND ( 5, NCON, NFLAY , 1 , NA, 1, NB, 1 , NARY, 0, F, 0, MATNMS (I ) ) 
ENDIF 

NCON-NCON+NFLAY 

ENDIF 

13 ENDIF 

1 CONTINUE 

10 LAYB-NFBLAY+NSBLAY+NEBLAY 

IF (NWHICH.EQ.l) LAYB-0 

IF (I.EQ.l) NSTART- 2001+ (LAYB*NLAYRS ( I) } 

IF ( I , EQ. 2) NSTART- 4001 + (LAYB*NLAYRS ( I ) ) 

IF (I.EQ.3) NSTART- 6001 + (LAYB*NLAYRS ( I) ) 

IF (I.EQ.4) NSTART- 8001 + (LAYB*NLAYRS ( I ) ) 

IF (I.EQ.5) NSTART- 9001 + (LAYB*NLAYRS ( I } ) 

ALEN-FTHK/NFLAY 
DIN-ROUT (I ) -THICK ( I) 

DOUT-DIN+ (THICK (I) /NDIV) 

DO 31 J-l , ND IV 
NA-NSTART 
NB-NSTART+1 

WIDTH- ( (DIN+DOUT) /2) * (THICK (I) /NDIV) 

F-WIDTH/ALEN 

IF (NLGS(NA) .NE.NLGS(NB) .AND.J.NE.l) THEN 

CALL RITCND (7, NCON, NFLAY-1, 1, NA, 1 , NB, 1, NLGS (NA) , NLGS (NB) , F, 

. F, MATNMS (I) > 

ELSE 

CALL RITCND (5, NCON, NFLAY-1, 1 , NA, 1 , NB, 1, NARY , 0, F, 0, MATNMS ( I) ) 
ENDIF 

NCON-NCON+NFLAY-1 
N START- NSTART+N FLAY 
DIN-DOUT 

DOUT-DIN+ (THICK (I) /NDIV) 

31 CONTINUE 

IF (NWHICH.EQ.l) WRITE* (MODU, 172) I, TYPE 
IF (NWHICH . EQ. 2) WRITE (MODU, 174) I, TYPE 


123 

124 
171 

FORMAT (7X, 
FORMAT (7X, 
FORMAT (7X, 

' REM 
' REM 
' REM 

START OF H/X IN REGION I', 11) 
END OF H/X IN REGION #',I1) 
CONDUCTOR BLOCK FOR REGION #' 

#11,' 

BEGINS. 

(' , A6, 

172 

*' ) ' ) 

FORMAT (7X, 
*' ) ' ) 

' REM 

CONDUCTOR BLOCK 

FOR REGION 

#' 

,11/' 

ENDS. ( 

' ,A6, 

173 

FORMAT (7X, 

' REM 

CONDUCTOR BLOCK 

FOR REGION 

#' 

,11/' 

BEGINS. 

(' ,A3 

174 

FORMAT (7X, 

' REM 

CONDUCTOR BLOCK 

FOR REGION 

# # 

/II/' 

ENDS. ( 

/ , A3, 


*') ') 
RETURN 
END 


CRY18210 

CRY18220 

CRY18230 

CRY18240 

CRY1B250 

CRY18260 

CRY18270 

CRY18280 

CRY18290 

CRY18300 

CRY18310 

CRY18320 

CRY18330 

CRY18340 

CRY18350 

CRY18360 

CRY18370 

CRY18380 

CRY183 90 

CRY18400 

CRY18410 

CRY18420 

CRY18430 

CRY184 40 

CRY18450 

CRY18460 

CRY1B470 

CRY18480 

CRY16490 

CRY18500 

CRY18510 

CRY18520 

CRY18530 

CRY18540 

CRY18550 

CRY18560 

CRY18570 

CRY18580 

CRY18590 

CRY18600 

CRY18610 

CRY18620 

CRY18630 

CRY18640 

CRY18650 

CRY18660 

CRY18670 

CRY18680 

CRY18690 

CRY18700 

CRY1B710 

CRY18720 

CRY18730 

CRY18740 

CRY18750 

CRY187 60 

CRY18770 

CRY18780 

CRY18790 

CRY18800 

CRY18810 

CRY18820 

CRY16830 

CRY18640 

CRY18850 

CRY18860 

CRY18870 

CRY18880 

CRY18890 

CRY18900 
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SUBROUTINE SCND (I, NA, NB, NCON, NSLAY, NWHICH) 

COMMON/REGION/NTHETA, NBETAS, BETA, RIN,TVOL, 

* ROUT (9) , REGNS (9) , NLAYRS (9) , TEMPS (9) , THICK (9} , 

* THKLAY (9) , MATRLS { 9) , MATNMS (9) , RGNNMS (9) 
COMMON/TOP BOT/NTOP, NBOT, NFTLAY, NSTLAY, NETLAY, NFBLAY, NSBLAY, 

* NEBLAY, ETRAT, EBRAT, FTTHK, FBTHK 
COMMON/CYDATA/ CYLHGT, NCYLAY 

COMMON /HTXGRS/ NHX, HXTEMP (10) , NRHX (10) , NLHX (10) , NTHHX (10) , 

* LNGTHX (10) 

COMMON/ UNI TS/MODU, SINDA 
COMMON/HX/NDS (1000) , NCND (1000) , INDEX 

COMMON /NOD DAT/ NODNUM (10000) , VOL (10000) ,NLGS (10000) 
COMMON/STUFF/ NHTT, PI, CONVY, CONVR, THETA0 , DTHETA, NBASOS, ROUTSF, 

* BNCOEF (2 ) 

LOGICAL REGNS 
CHARACTER* 16 MLABL 

CHARACTER* 1 6 RGNNMS, MNAME, MATNMS , RGNAM, MATN 
CHARACTER* 6 TYPE 

NOUT-NB+ 1000 

IF (NWHICH. EQ. 1} TYPE-' BOTTOM' 

IF (NWHICH. EQ. 2) TYPE-'TOP 


IF (NWHICH, EQ.l) NSLAY - NSBLAY 
IF (NWHICH. EQ. 2) NSLAY - NSTLAY 

NC2-NB 

NARY- 600 G+MATRLS (I) 

TH-THKLAY (I) 

DOUT - RIN+THKLAY (I) /4.0 

BASE - NB 

DO 1 J-l, NLAYRS (I) 

IF (J.GT.l) WRITE (MODU, 18) I, J-l, J f TYPE 
IF (J.EQ.l) NATEMP - NB 
IF (J.EQ.2) THEN 
NA - NATEMP 
ENDIF 

DO 2 I J-0, NSLAY-1 

IF (IJ.EQ.0. AND, J.EQ.l) WRITE (MODU, 94) I, TYPE 
NTSTHX - 0 
NBHX - 0 

DO 71 K - 1, INDEX 

IF (NDS (K) . EQ.NA) THEN 
NTBTHX - 1 
NAHX - NA 
NBHX - NCND (K) 

GOTO 72 
ENDIF 

71 CONTINUE 

72 IF (NBHX.NE.0) THEN 

CALL AREACYL (1 , I J, DOUT, THICK (I ), AREA, NWHICH) 
AREA-AREA/2. 

NARY-NLGS (NA) +5000 

CALL RITCND ( 5, NCON, 1, 1, NA, 1, NBHX, 1, NARY, 0, 

* AREA, 0, MATNMS (I) ) 

NCON-NCON+1 

NA - NA + 1 

DHALF-DOUT- (THICK (I ) /NLAYRS (I) ) 

CALL AREACYL (1, I J, DHALF, THICK (I) , AREA, NWHICH) 
AREA-AREA/2. 

NARY-NLGS (NB) +5000 

CALL RITCND (5, NCON, 1, 1, NBHX, 1, NB, 1 , NARY, 0, 

* AREA, 0, MATNMS (I) ) 

NB - NB + 1 

NCON-NCON+1 

ENDIF 

IF (NBHX.EQ.0) THEN 


CRY18910 

CRY18920 

CRY18930 

CRY18940 

CRY18950 

CRY18960 

CRY18970 

CRY18980 

CRY18990 

CRY19000 

CRY19010 

CRY19020 

CRY19030 

CRY19040 

CRY19050 

CRY19060 

CRY19070 

CRY19080 

CRY19090 

CRY19100 

CRY19110 

CRY19120 

CRY19130 

CRY19140 

CRY19150 

CRY19160 

CRY19170 

CRY19180 

CRY19190 

CRY19200 

CRY19210 

CRY19220 

CRY19230 

CRY19240 

CRY19250 

CRY 19260 

CRY19270 

CRY19280 

CRY19290 

CRY19300 

CRY19310 

CRY19320 

CRY19330 

CRY19340 

CRY19350 

CRY19360 

CRY19370 

CRY19380 

CRY19390 

CRY19400 

CRY19410 

CRY19420 

CRY19430 

CRY19440 

CRY19450 

CRY19460 

CRY19470 

CRY19480 

CRY194 90 

CRY19500 

CRY19510 

CRY19520 

CRY19530 

CRY19540 

CRY19550 

CRY19560 

CRY19570 

CRY19580 

CRY19590 

CRY19600 
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2 

1 


32 

92 


CALL AREACYL (1 , I J, DOUT, THICK (I ) , AREA, NWHICH) 

AREA- (AREA/TH/2.) *4. 

IF (J.NE.l) THEN 
D2-DOUT+TH/4 . 

CALL AREACYL (1 , I J, D2 , THICK (I ), AREA2, NWHICH) 

AREA2- (AREA2/TH/2 . ) *4 . 

NL1 =NLGS (NA) +5000 
NL2-NLGS (NB) + 5000 

CALL RITCND <7, NCON, 1, 1, NA, 1 , NB, 1, NLl, NL2, AREA, 
AREA2,MATNMS(I) ) 

ELSE 

NLl -NLGS (NB) +5000 

CALL RITCND (5, NCON, 1 , 1 , NA, 1, NB, 1 , NLl, 0, AREA, 0 
„ ,MATNMS (I) > 

ENDIF 

ncon-ncon+i 

NA - NA + 1 
NB - NB + 1 
ENDIF 
CONTINUE 

DOUT - DOUT+TH/4. 

CONTINUE 

IF {NWHICh! EQ. 2) NOUT- ( 2001 * 1 ) +1000+ (NCYLAY+NSBLAY+NEBLAY+NFBLAY) 

NIN-NA 

WRITE (MODU, 123) I , NLAYRS (I) , TYPE 
DO 32 J-0,NSLAY-1 
D2-DOUT+TH/4. 

CALL AREACYL ( 1 , J, D2, THICK (I ) , AREA, NWHICH) 

AREA- (AREA/TH/2.) *4. 

NLl-NLGS(NIN) +5000 

CALL RITCND <5 , NCON, 1 , 1, NIN, 1 , NOUT, 1 , NLl , 0, AREA, 0, 

* MATNMS (I) ) 

NIN-NIN+1 

NOUT-NOUT+1 

NCON-NCON+1 

CONTINUE 

CONTINUE 

DOUT-RIN+THKLAY (I) /4.0 
DO 988 J-l , NLAYRS (I) 

WRITE (MODU, 987) I, J, TYPE 
DO 989 I J-0, NSLAY-1 

NC-NC2+ (NSLAY* (J-l) )+IJ 
IF (IJ. NE. NSLAY-1) THEN 

CALL AREACYL (2, I J, DOUT, THICK (I) .AREA, NWHICH) 

IF (NWHICH. EQ.l) II-IJ+1 
IF (NWHICH. EQ. 2) II-IJ-1 

CALL AREACYL (2 , 1 1, DOUT, THICK (I ) , AREA2, NWHICH) 

NLl -NLGS (NC) +5000 
NL2-NLGS (NC + D+5000 

CALL RITCND (7, NCON, 1, 1 , NC, 1 , NC+ 1 , 1, NLl,NL2 
* , AREA, AREA2, MATNMS (I) ) 

NCON - NCON + 1 
ENDIF 

IF (I J. EQ. NSLAY-1) THEN 
IF (NWHICH. EQ.l) THEN 

CALL AREACYL (2 , I J, DOUT, THICK { I ) , AREA, NWHICH) 

NB - (2001*1) + (NSLAY* J) -1 

NBT- (2001*1) + (NSLAY*NLAYRS (I) ) + (NCYLAY* (J-l) ) 

IF (NWHICH. EQ.l) II-IJ+1 
IF (NWHICH. EQ. 2) II-IJ-1 

CALL AREACYL (2, 1, DOUT, THICK (I) , AREA2, 0) 

NL1-NLGS (NB) +5000 
NL2-NLGS (NBT) +5000 

CALL RITCND (7, NCON, 1,1, NB, 1 , NBT, 1,NL1 
* , NL2 , AREA, AREA2, MATNMS (I) ) 

NCON-NCON+1 

ENDIF 

IF (NWHICH. EQ. 2) THEN 

CALL AREACYL (2,1*, DOUT, THICK ( I ) , AREA, NWHICH) 


CRY19610 

CRY19620 

CRY19630 

CRY19640 

CRY19650 

CRY19660 

CRY19670 

CRY19680 

CRY1 9690 

CRY19700 

CRY19710 

CRY19720 

CRY19730 

CRY19740 

CRY19750 

CRY19760 

CRY19770 

CRY19780 

CRY19790 

CRY19800 

CRY19810 

CRY19B20 

CRY19830 

CRY1 9840 

CRY19850 

CRY19860 

CRY19870 

CRY19680 

CRY19890 

CRY19900 

CRY19910 

CRY19920 

CRY19930 

CRY1 9940 

CRY19950 

CRY19960 

CRY19970 

CRY19980 

CRY1 9990 

CRY20000 

CRY20010 

CRY20020 

CRY20030 

CRY20040 

CRY20050 

CRY20060 

CRY20070 

CRY20080 

CRY20090 

CRY20100 

CRY201 10 

CRY201 20 

CRY20130 

CRY20140 

CRY20150 

CRY20160 

CRY20170 

CRY20180 

CRY20190 

CRY20200 

CRY20210 

CRY20220 

CRY20230 

CRY20240 

CRY20250 

CRY20260 

CRY20270 

CRY20280 

CRY20290 

CRY20300 
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NBTEMP - (2001*1) + ( (NSBLAY+NEBLAY+NFBLAY) *NLAYRS (I) ) + 

* (NCYLAY*J)-1 

NAT - (2001*1) + ( (NCYLAY+NSBLAY+NEBLAY+NFBLAY) *NLAYRS (I) } 

* (NSLAY* (J-l) ) 

IF (NWHICH.EQ.l) II-IJ+1 
IF (NWHICH . EQ. 2) II-IJ-1 

CALL AREACYL (2, II , DOUT, THICK (I) , AREA2, 0) 

NL1-NLGS (NAT) +5000 
NL2-NLGS (NBTEMP) +5000 

CALL RITCND (7, NCON, 1, 1, NAT, 1, NBTEMP, 1,NL1 , 

* NL2 , AREA, AREA2, MATNMS (I) ) 

NCON-NCON+1 
END IF 
ENDIF 
989 CONTINUE 

DOUT-DOUT+TH/4 . 

988 CONTINUE 


18 FORMAT (7X, 'REM RADIAL CONDUCTORS REGION ',12,' LAYER ',12, 

* ' TO LAYER ' , 12, ' IN ',A6,' END.') 

88 FORMAT (7X, ' REM RADIAL CONDUCTORS REGION ',12,' LAYER ',12, 

* ' TO BOUNDRY NODES IN ',A6, ' END.') 

94 FORMAT (7X, 'REM RADIAL CONDUCTORS REGION ',12,' BOUNDARY NODES ' 
*'TO LAYER 1 IN ',A6,' END.') 

123 FORMAT (7X, ' REM RADIAL CONDUCTORS REGION ',12,' LAYER ',12,' TO 
•'BOUNDARY NODES IN ',A6, ' END.') 

987 FORMAT (7X, ' REM CIRCUMFERENTIAL CONDUCTORS REGION ',12,' LAYER 

* 'NUMBER ',12,' IN ',A6,' END.') 


RETURN 

END 

SUBROUTINE ECND (I, NA, NB, NCON, NELAY, ERAT, NWHICH) 

COMMON/REGION/NTHETA, NBETAS, BETA, RIN, TVOL, 

ROUT (9) , REGNS ( 9) , NLAYRS (9) , TEMPS (9) , THICK (9) , 

* THKLAY (9) , MATRLS (9) , MATNMS (9) , RGNNMS (9) 
COMMON/TOP BOT/NTOP, NBOT, NFTLAY , NSTLAY, NETLAY, NFBLAY, NSBLAY, 

* NEBLAY, ETRAT, EBRAT, FTTHK, FBTHK 
COMMON/CYDATA/ CYLHGT, NCYLAY 

COMMON /HTXGRS/ NHX, HXTEMP (10) , NRHX (10) , NLHX (10) , NTHHX (10) , 

* LNGTHX (10) 

COMMON /UN ITS /MOD U, SINDA 
COMMON/HX/NDS (1000) , NCND (1000) , INDEX 
COMMON/NODDAT/NODNUM (10000) , VOL (10000) , NLGS (10000) 
COMMON/STUFF/ NHTT, P I , CONVY, CONVR, THETA0, DTHETA, NBASOS, ROUTSF, 

* BNCOEF (2) 

LOGICAL REGNS 
CHARACTER* 16 MLABL 

CHARACTER* 1 6 RGNNMS, MNAME, MATNMS, RGNAM, MATN 
CHARACTER* 6 TYPE 

NOUT-NB+1000 

IF (NWHICH.EQ.l) TYP E-' BOTTOM' 

IF (NWHICH. EQ. 2) TYPE-'TOP ' 


IF (NWHICH.EQ.l) NELAY - NEBLAY 
IF (NWHICH. EQ. 2) NELAY - NETLAY 

NC2-NB 

NARY *6 000+ MATRLS (I) 

TH-THKLAY (I) 

DOUT - RIN+ THKLAY (I ) / 4 . 0 

BASE - NB 

DO 1 J-l, NLAYRS (I) 

IF (J.GT.l) WRITE (MODU ,18) I, J-l, J, TYPE 
IF (J.F.Q. 1) NATEMP * NB 
IF (J.EQ.2) THEN 


CRY20310 
CRY20320 
+ CRY20330 

CRY2Q340 
CRY20350 
CRY20360 
CRY20370 
CRY20380 
CRY20390 
CRY20400 
CRY204 10 
CRY204 20 
CRY204 30 
CRY204 40 
CRY2Q4 50 
CRY204 60 
CRY204 70 
CRY20480 
CRY20490 
CRY20500 
CRY205 10 
CRY20520 
, CRY20530 

CRY20540 
', CRY205 50 
CRY205 60 
', CRY20570 
CRY20580 
CRY205 90 
CRY20600 
CRY2061 0 
CRY20620 
CRY20630 
CRY20640 
CRY20650 
CRY20660 
CRY20670 
CRY20680 
CRY2069O 
CRY20700 
CRY207 10 
CRY20720 
CRY20730 
CRY20740 
CRY20750 
CRY207 60 
CRY20770 
CRY20780 
CRY207 90 
CRY20800 
CRY20810 
CRY20820 
CRY20830 
CRY20840 
CRY208 50 
CRY20860 
CRY20870 
CRY20880 
CRY20890 
CRY20900 
CRY20910 
CRY20920 
CRY20930 
CRY20940 
CRY20950 
CRY20960 
CRY20970 
CRY20980 
CRY20990 
CRY21000 
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71 

72 


2 

1 


32 

92 


NA - NATEMP 
ENDIF 

DO 2 I J-0, NELAY-1 

IF (I J. EQ. 0. AND. J. EQ. 1) WRITE (MODU, 94) I, TYPE 
NTSTHX - 0 
NBHX - 0 

DO 71 K - 1, INDEX 

IF (NDS(K).EQ.NA) THEN 
NTBTHX - 1 
NAHX - NA 
NBHX - NCND(K) 

GOTO 72 
ENDIF 
CONTINUE 

IF (NBHX.NE.O) THEN 

CALL AREACYL (2 , I J, DOUT, THICK (I ) , AREA, NWHICH) 
AREA-AREA/2. 

CALL RITCND (5, NCON, 1 , 1 , NA, 1, NBHX, 1 , NARY, 0, 

AREA, 0 , MATNMS { I ) ) 

NCON-NCON+1 
NA - NA + 1 

DHALF-DOUT- (THICK (I) /NLAYRS (I) ) 

CALL AREACYL . (2 , 1 J, DHALF, THICK { I) , AREA, NWHICH) 
AREA-AREA/2. 

CALL RITCND (5, NCON, 1, 1 , NBHX, 1, NB, 1 , NARY, 0, 

AREA, 0, MATNMS (I) ) 

NB - NB + 1 
NCON-NCON+1 
ENDIF 

IF (NBHX.EQ.O) THEN 

CALL AREACYL (2 , I J, DOUT, THICK (I ), AREA, NWHICH) 

AREA- (AREA/TH/2.) *4 . 

IF (J.NE.l) THEN 
D2-DOUT+TH/4 . 

CALL AREACYL (2 , I J, D2 , THICK (I ) , AREA2, NWHICH) 

AREA2- (AREA2/TH/2 . ) *4. 

NL1-NLGS (NA) +5000 
NL2-NLGS (NB) +5000 

CALL RITCND (7, NCON, 1,1, NA, 1 , NB, 1 , NL1 , NL2, AREA, 

* AREA2, MATNMS (I)) 

ELSE 

NLl-NLGS (NB) +5000 

CALL RITCND (5, NCON, 1, 1, NA, 1, NB, 1, NLl, 0, AREA, 0 

* , MATNMS { I ) ) 

ENDIF 

NCON-NCON+1 
NA - NA + 1 
NB - NB + 1 
ENDIF 
CONTINUE 

DOUT - DOUT+TH/4. 

CONTINUE 

IF (I.EQ.5) GOTO 92 

IF (NWHICH. EQ. 2) NOUT- (2001*1) +1000+ (NCYLAY+NSBLAY+NEBLAY+NFBLAY 
NIN-NA 

WRITE (MODU, 123) I , NLAYRS { I) , TYPE 
DO 32 J-0, NELAY-1 
D2-DOUT+TH/4 . 

CALL AREACYL (2, J, D2 , THICK (I ) , AREA, NWHICH) 

AREA- (AREA/TH/2.) *4 . 

NLl-NLGS (NIN) +5000 

CALL RITCND (5, NCON, 1, 1, NIN, 1, NOUT, 1, NLl , 0, AREA, 0, 

* MATNMS (I)) 

NIN-NIN+1 

NOUT-NOUT+1 

NCON-NCON+1 

CONTINUE 

CONTINUE 

DOUT-RIN+THKLAY (I) / 4 .0 
DO 988 J-l , NLAYRS (I) 


CRY21010 
CRY21020 
CRY21030 
CRY21040 
CRY210 50 
CRY21060 
CRY21070 
CRY21080 
CRY21090 
CRY21100 
CRY21110 
CRY21120 
CRY21130 
CRY2114Q 
CRY21150 
CRY2116Q 
CRY21170 
CRY21180 
CRY21190 
CRY21200 
CRY21210 
CRY21220 
CRY21230 
CRY21240 
CRY21250 
CRY21260 
CRY21270 
CRY21280 
CRY21290 
CRY21300 
CRY21310 
CRY21320 
CRY21330 
CRY21340 
CRY21350 
CRY21360 
CRY21370 
CRY21380 
CRY21390 
CRY21400 
CRY2141Q 
CRY21420 
CRY21430 
CRY21440 
CRY21450 
CRY21460 
CRY21470 
CRY214 80 
CRY214 90 
CRY21500 
CRY2151Q 
CRY21520 
CRY21530 
) CRY21540 
CRY21550 
CRY21560 
CRY21570 
CRY21580 
CRY21590 
CRY21600 
CRY21610 
CRY21620 
CRY21630 
CRY21640 
CRY21650 
CRY21660 
CRY21670 
CRY21660 
CRY21690 
CRY21700 
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WRITE (MODU, 987) I, J, TYPE 
DO 989 I J-0, NELAY- 1 

NC-NC2+ (NELAY* (J-1M+IJ 
IF (IJ.NE.NELAY-1) THEN 

CALL AREACYL (I, I J, DOUT, THICK ( I ) , AREA, NWHICH) 

IF (NWHICH.EQ.I) II-IJ+1 
IF (NWHICH, EQ.2) II-IJ-1 

CALL AREACYL (1 , I I, DOUT, THICK (I ) , AREA2, NWHICH) 

NL1-NLGS (NC) +5000 
NL2-NLGS (NC+l) +5000 

CALL RITCND {7, NCON, 1, 1, NC, 1, NC+l, 1, NL1, NL2 

* , AREA, AREA2, MATNMS (I) ) 

NCON - NCON + 1 

END IF 

IF (IJ.EQ.NELAY-1) THEN 
IF (NWHICH.EQ.I) THEN 

CALL AREACYL (1, I J, DOUT, THICK ( I ), AREA, NWHICH} 

NB - (2001*1)+ (NELAY*J) -1 

NBT- (2001*1) + (NELAY *NLAYRS (I) ) + (NCYLAY* (J-l) ) 

IF (NWHICH.EQ.I) II-IJ+1 
IF (NWHICH. EQ. 2) II-IJ-1 
CALL AREACYL (1,1, DOUT , THICK (I ) , AREA2, 0) 

NL1-NLGS (NB) +5000 
NL2-NLGS (NBT) +5000 

CALL RITCND (7, NCON, 1,1, NB, 1, NBT, 1,NL1 

* , NL2,AREA, AREA2, MATNMS (I) ) 

NCON-NCON+ 1 

ENDIF 

IF (NWHICH. EQ.2) THEN 

CALL AREACYL (1, 1, DOUT, THICK (I) , AREA, NWHICH) 

NBTEMP - (2001*1) +{ (NSBLAY+NEBLAY+NFBLAY) *NLAYRS (I) ) + 

* (NCYLAY* J)-l 

NAT - (2001*1) + ( (NCYLAY+NSBLAY+NEBLAY+NFBLAY) *NLAYRS (I) ) + 

* (NELAY* (J-l) ) 

IF (NWHICH.EQ.I) II-IJ+1 
IF (NWHICH. EQ.2) II-IJ-1 
CALL AREACYL { 1 , I I , DOUT, THICK ( I ) , AREA2 , 0 ) 

NL1-NLGS (NAT) +5000 
NL2-NLGS (NBTEMP) +5000 

CALL RITCND (7, NCON, 1, 1, NAT, 1, NBTEMP, 1, NL1 , 

* NL2,AREA, AREA2, MATNMS (I) ) 

NCON-NCON+1 

ENDIF 
ENDIF 
989 CONTINUE 

DOUT-DOUT+TH/4 . 

988 CONTINUE 


18 FORMAT (7X, ' REM RADIAL CONDUCTORS REGION ',12,' LAYER ',12, 

* ' TO LAYER ',12, ' IN ' , A6, ' END.') 

88 FORMAT (7X, ' REM RADIAL CONDUCTORS REGION ',12,' LAYER ',12, 

* ' TO BOUNDRY NODES IN ',A6,' END.') 

94 FORMAT (7X, ' REM RADIAL CONDUCTORS REGION ',12,' BOUNDARY NODES 
* ' TO LAYER 1 IN ',A6,' END.') 

123 FORMAT (7X, 'REM RADIAL CONDUCTORS REGION ',12,' LAYER ',12,' TO 
* ' BOUNDARY NODES IN # ,A6,' END.') 

907 FORMAT (7X, ' REM CIRCUMFERENTIAL CONDUCTORS REGION ',12,' LAYER ', 

* 'NUMBER ',12,' IN ' , A6 , ' END.') 


RETURN 

END 

SUBROUTINE AREACYL (NA£EA, I JPOS, R, TH, AREA, NW) 

COMMON/REGION/NTHETA, NBETAS, BETA, RIN, TVOL, 

ROUT (9) , REGNS ( 9) , NLAYRS (9) , TEMPS (9) , THICK (9) , 
THKLAY (9) , MATRLS (9) , MATNMS (9) , RGNNMS (9) 

COMMON /TOP BOT / NTOP, NBOT, NFTLAY, NSTLAY, NETLAY, NFBLAY, NSBLAY, 
NEBLAY, ETRAT, EBRAT, FTTHK, FBTHK 
COMMON/CYDATA/CYLHGT, NCYLAY 


CRY21710 

CRY21720 

CRY21730 

CRY217 40 

CRY21750 

CRY21760 

CRY21770 

CRY21780 

CRY217 90 

CRY21800 

CRY21810 

CRY21820 

CRY21830 

CRY21840 

CRY21B50 

CRY21B60 

CRY218 70 

CRY21S8Q 

CRY21890 

CRY21900 

CRY21910 

CRY21920 

CRY21930 

CRY21940 

CRY21950 

CRY21960 

CRY21970 

CRY21980 

CRY21990 

CRY22000 

CRY22010 

CRY22020 

CRY22030 

CRY22040 

CRY22050 

CRY22060 

CRY22070 

CRY22080 

CRY22090 

CRY221 00 

CRY221 10 

CRY22120 

CRY221 30 

CRY22140 

CRY221 50 

CRY221 60 

CRY22170 

CRY22180 

CRY221 90 

CRY22200 

CRY22210 

CRY22220 

CRY22230 

CRY22240 

CRY22250 

CRY222 60 

CRY222 70 

CRY22280 

CRY222 90 

CRY22300 

CRY223 10 

CRY22320 

CRY22330 

CRY22340 

CRY223 50 

CRY223 60 

CRY223 70 

CRY22380 

CRY223 90 

CRY22400 
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COMMON/STUFF/ NHTT , P I , CONVY , CONVR, THETAO, DTHETA, NBASOS, ROUTSF, 

* BNCOEF (2) 

CHARACTER* 16 MATNMS 

C SUBROUTINE TO COMPUTE AREAS IN A CYLINDER, SPHERE, ELLIPCE, OR FLAT 
C ENDS. 

C 

C AREAS FOR NODES TO COMPUTE NODAL VOLUMES. OUTSIDE AREAS FOR SOURCE 
C TERMS {IF ANY) AREAS FOR CONDUCTOR PATHS. 

C NAREA: 1,2 RADIAL AREA (IN & OUT) , CIRCUMFERENTIAL AREA (UP & DOWN) 

C JPOS: POSITION OF THETA ANGLE COUNTING FROM THE SOUTH POLE. 

C R: RADIUS TO AREA SURFACE 

C TH: LAYER THICKNESS 

C AREA: VALUE RETURNED TO CALLING SUBROUTINES. 

C NWHICH-0 THE LAYER IS IN THE CYLINDERICAL SHAPE. 

C NWHICH-1 THE LAYER IS IN THE BOTTOM SHAPE. 

C NWHI CH=2 THE LAYER IS IN THE TOP SHAPE. 

JPOS-I JPOS 
NWHICH-NW 

IF (NWHICH.EQ.-l.OR.NWHICH.EQ.-2) THEN 
IF (NWHICH.EQ.-l) R-RIN 

IF (NWHICH.EQ.-2) R-RIN+ THICK (1) +THICK(2)+THICK(3) 

NBL-NSBLAY +NEBLAY+NFBLAY 

IF ( JPOS * GE . 1 . AND . JPOS . LE.NBL) NWHICH-1 

IF (JPOS .GT . NBL. AND . JPOS . LE . NBL+NCYLAY) NWHICH-0 

IF (JPOS. GT. NBL+NCYLAY) NWHICH-2 

IF (NWHICH.EQ.O) TH-CYLHGT /NCYLAY 

IF (NWHICH.EQ.l.AND. NBOT . EQ . 2 ) TH-THICK {1} /NLAYRS (1) 

IF {NWHICH . EQ. 2 . AND . NTOP . EQ. 2) TH-THICK ( 1 ) /NLAYRS { 1 ) 

ENDIF 


C THE NEXT SECTION IS FOR THE NODE AREAS OF NODES IN THE CYLINDER PART. 

IF (NWHICH.EQ.O) THEN 
IF (NAREA. EQ.l) 

* AREA-BETA* R*TH 
IF (NAREA. EQ. 2) 

* AREA- ( ( (R+ (R+TH) )/ 2 .) *TH) / (CYLHGT/NCYLAY ) 

ENDIF 

C THE NEXT SECTION IS FOR THE NODE AREAS IN EITHER THE FLAT TOP 
C OR FLAT BOTTOM. 

IF ( (NWHICH. EQ.l. AND. NBOT. EQ. 2) .OR. 

* (NWHICH. EQ. 2. AND. NTOP. EQ. 2) ) THEN 
IF (NWHICH. EQ.l) THEN 

NFLAY-NFBLAY 

FTHK-FBTHK 

ELSE 

NFLAY-NFTLAY 

FTHK-FTTHK 

ENDIF 

IF (NAREA. EQ.l) 

* AREA- ( ( (R+ (R+TH) ) /2 . ) * (FTHK/NFLAY) ) / (TH/2 . ) 

IF (NAREA. EQ. 2) 

* AREA- ( ( (R+ (R+TH) )/2.) *TH)/ (FTHK/NFLAY) 

ENDIF 

C THIS SECTION CALCULATES THE NODE AREA FOR A NODE IN EITHER THE TOP 
C OR BOTTOM SPHERE. 

IF ( (NWHICH. EQ.l .AND. NBOT. EQ.3) .OR. 

* (NWHICH. EQ. 2 .AND. NTOP . EQ.3) ) THEN 
IF (NWHICH. EQ.l) THEN 

NSLAY-NSBLAY 


CRY22410 

CRY22420 

CRY22430 

CRY224 40 

CRY224 50 

CRY224 60 

CRY22470 

CRY224 80 

CRY224 90 

CRY22500 

CRY22510 

CRY22520 

CRY22530 

CRY22540 

CRY22550 

CRY22560 

CRY22570 

CRY22580 

CRY22590 

CRY22600 

CRY22610 

CRY22620 

CRY22630 

CRY22640 

CRY22650 

CRY22660 

CRY22670 

CRY22680 

CRY22690 

CRY22700 

CRY22710 

CRY22720 

CRY22730 

CRY22740 

CRY22750 

CRY22760 

CRY22770 

CRY22780 

CRY 2 27 90 

CRY22800 

CRY22810 

CRY22820 

CRY22830 

CRY22640 

CRY22B50 

CRY228 60 

CRY22870 

CRY22880 

CRY22890 

CRY22900 

CRY22910 

CRY22920 

CRY22930 

CRY22940 

CRY22950 

CRY22960 

CRY22970 

CRY22980 

CRY22990 

CRY23000 

CRY23010 

CRY23020 

CRY23030 

CRY23040 

CRY23050 

CRY23060 

CRY23070 

CRY23080 

CRY230 90 

CRY23100 
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THETAO-PI / 2 . 

POS-JPOS 

ELSE 

NSLAY-NSTLAY 

THETAO-O.O 

POS — 1* (JPOS+1) 

ENDIF 

DTHETA-PI/2./NSLAY 

THETA1 -THE TAO-POS* DTHETA 
THETA2-THETA1-DTHETA 
IF (NAREA.EQ.l) THEN 

AREA-BETA* R*R* (COS (THETA1 ) +COS (THETA2) ) * DTHETA/2 . 

ENDIF 

IF (NAREA.EQ.2) THEN 

AREA-BETA* R* (COS (THETA1) +COS (THETA2) ) *TH/2 . 

AREA-AREA/ (DTHETA*R) 

ENDIF 

ENDIF 

C THE NEXT SECTION IS FOR THE NODE AREAS IN EITHER THE ELI PTICAL TOP 
C OR ELIPTICAL BOTTOM. 


IF ( (NWHICH.EQ.l . AND . NBOT . EQ . 4 ) .OR. 

* (NWHICH.EQ.2 . AND . NTOP . EQ . 4 ) ) THEN 

IF (NWHICH.EQ.l) THEN 
NE-NEBLAY 
ERAT - EBRAT 
THETAO-PI /2 . 

POS=JPOS 

ELSE 

NE-NETLAY 
ERAT - ETRAT 
THETAO-O.O 
POS— 1* (JPOS+1) 

ENDIF 

DTHETA=P I / 2 . /NE 

JP-JPOS-1 

AI-R-TH 

AO-AI-+TH 

BI-AI*ERAT 

BO-BI+TH 

THETA2 -THETAO- POS * DTHETA 
THETA1 -THETA2 -DTHETA 
AAVG- ( AO+AI ) /2 . 

BAVG- (BO+BI ) /2 . 

THAVG- (THETA1 +THETA2 ) / 2 . 

COSAVG-C OS (THAVG) 

SINAVG-SIN (THAVG) 

FRST- ( (BETA*COSAVG) /2. ) * ( (AAVG* BAVG) /SQRT ( (BAVG* BAVG* 

1 COSAVG*COSAVG) + (AAVG*AAVG*SINAVG*SINAVG) ) ) 

SND=AO* BO* (ATAN { (AO/BO) *TAN (THETA2 ) ) -ATAN < (AO/BO) *TAN (THETA1 ) ) ) 
THR-AI * BI * (ATAN ( (AI/BI) *TAN (THETA2 ) ) -ATAN ( (AI/BI) *TAN (THETA1 ) ) ) 
IK (NAREA.EQ.2) AREA- { FRST *{ SND-THR) ) 

IF (NAREA.EQ.l) AREA= ( FRST* ( SND-THR) )/ (DTHETA* R) 

ENDIF 

RETURN 

END 

SUBROUTINE ULL1G 

COMMON/ULLAGE/ NLUL4 , NLUL5, NTHU41, RI NMHH, PCTFUL, RADULG, TVULFT, 

* CT, LG (3) , LIQVAP (3) 

COMMON/REGION/NTHETA, NBETAS, BETA, RIN, TVOL, 

* ROUT (9) , REGNS (9) , NLAYRS (9) , TEMPS (9),THICK{9) r 

* THKLAY (9) , MATRLS (9) , MATNMS (9) , RGNNMS (9) 
COMMON/TOPBOT/NTOP , NBOT, NFTLAY, NSTLAY, NETLAY, NFBLAY, NSBLAY , 

* NEBLAY, ETRAT, EBRAT, FTTHK, FBTHK 


CRY231 10 

CRY23120 

CRY23130 

CRY23140 

CRY23150 

CRY231 60 

CRY231 70 

CRY231 80 

CRY231 90 

CRY23200 

CRY23210 

CRY23220 

CRY23230 

CRY23240 

CRY23250 

CRY232 60 

CRY23270 

CRY23280 

CRY23290 

CRY23300 

CRY23310 

CRY23320 

CRY23330 

CRY23340 

CRY23350 

CRY233 60 

CRY23370 

CRY23380 

CRY233 90 

CRY23400 

CRY234 10 

CRY234 20 

CRY23430 

CRY23440 

CRY234 50 

CRY23460 

CRY234 70 

CRY234 80 

CRY23490 

CRY23500 

CRY235 10 

CRY23520 

CRY23530 

CRY23540 

CRY23550 

CRY235 60 

CRY23570 

CRY23580 

CRY235 90 

CRY23600 

CRY23610 

CRY23620 

CRY23630 

CRY23640 

CRY23650 

CRY23660 

CRY23670 

CRY23680 

CRY23690 

CRY23700 

CRY23710 

CRY237 20 

CRY23730 

CRY23740 

CRY237 50 

CRY23760 

CRY237 70 

CRY23780 

CRY237 90 

CRY23800 
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COMMON/CYDATA/ CYLHGT , NCYLAY 

COMMON/ HTXGRS/NHX, HXTEMP {10} , NRHX (10 ) , NLHX (10) , NTHHX (10} , 

* LNGTHX (10) 

COMMON /UNITS /MODU, SINDA 

COMMON/NODDAT/NODNUM (10000) , VOL (10000) , NLGS (10000) 

COMMON / VOLUME /VOLL IQ, ACC LI Q 

CHARACTER* 1 CT, LG 
CHARACTER* 6 LIQVAP 
LOGICAL REGNS 

PI =3 . 1 4 1592654 

IF { .NOT. REGNS (4) ) THEN 

IF (.NOT. REGNS (5) ) GOTO 99 
ENDIF 
NTHU41-0 

DO 77 1-6001,10000 

TOTVOL-TOTVOL+VOL (I) 

CONTINUE 

VOLLIQ-TOTVOL* (PCTFUL/ 100 . ) 

IF (NBOT. EQ. 3. OR.NBOT. EQ. 4) THEN 
IF (NBOT.EQ.3) LAYBOT-NSBLAY 
IF (NBOT.EQ.4) LAYBOT-NEBLAY 
NUMNOD=8001 

DO 1 1-1, NLAYRS (4) +NLAYRS (5) 

IF (I.LE .NLAYRS (4) ) NSTART-8001 
IF (I. GT. NLAYRS (4) )NSTART=9001 
IF (I.LE. NLAYRS (4) ) IK - I 
IF (I.EQ.NLAYRS (4) +1)IK-1 
IF (I . GT. NLAYRS (4) +1 ) IK -IK+1 
NUMNOD-NSTART+ ( (IK-1) * LAYBOT) 

ACCLIQ“ACCLIQ+VOL (NUMNOD ) 

IF (ACCLIQ.GT. VOLL IQ. AND. NLGS (NUMNOD) . GT .1100. AND. 

* NLGS (NUMNOD) .LE. 1199) NLGS (NUMNOD) -NLGS (NUMNOD) + 200 
IF (NTHU41 . EQ. 0 . AND . NLGS (NUMNOD) .GT.1300) NTHU41“IK 

IF (I.GT.l) THEN 


IF (I . LT . LAYBQT } IJ - I 
IF (I .GE. LAYBOT) IJ - LAYBOT 
DO 2 J«l, IJ-2 

NUMNOD -NUMNOD+1 
ACCLIQ-ACCLIQ+VOL (NUMNOD) 

IF (ACCLIQ.GT. VOLLIQ. AND. NLGS (NUMNOD) . GT . 1100 . AND . 

NLGS (NUMNOD) .LE. 11 99) NLGS (NUMNOD) -NLGS (NUMNOD) +200 
IF (NTHU41.EQ.0 .AND. NLGS (NUMNOD) .GT.1300) NTHU41-IK 
CONTINUE 

IF (I .LE. LAYBOT) THEN 
DO 3 J«1,I 

IF ( J. LE. NLAYRS (4) ) NSTART-8001 
IF { J.GT. NLAYRS (4) ) NSTART-9001 
IF (J.LE. NLAYRS (4) ) K - J 
IF (J.EQ. NLAYRS (4) +1) K-l 
IF (J.GT. NLAYRS (4) +1) K - K+l 
NUMNOD-NSTART+ ( (K-l) * LAYBOT) +1-1 
ACC LI Q-ACCLIQ+VOL (NUMNOD) 

IF (ACCLIQ. GT .VOLLIQ. AND. NLGS (NUMNOD) . GT . 11 00 .AND . CRY24360 
NLGS (NUMNOD) . LE .11 99) NLGS (NUMNOD) =NLGS (NUMNOD) +200CRY24370 
IF (NTHU41.EQ.0. AND. NLGS (NUMNOD) .GT.1300) NTHU4 1 = T KCRY2 4380 


CRY23810 
CRY238 20 
CRY23830 
CRY238 40 
CRY23850 
CRY23860 
CRY23670 
CRY23880 
CRY23890 
CRY23900 
CRY23910 
CRY23920 
CRY23930 
CRY23940 
CRY23950 
CRY23960 
CRY23970 
CRY239B0 
CRY23990 
CRY24000 
CRY24010 
CRY24020 
CRY24030 
CRY24040 
CRY24050 
CRY24060 
CRY24070 
CRY24080 
CRY24090 
CRY24100 
CRY24110 
CRY24120 
CRY24130 
CRY24140 
CRY24150 
CRY24160 
CRY241 70 
CRY24180 
CRY241 90 
CRY24200 
CRY24210 
CRY24220 
CRY24230 
CRY24240 
CRY24250 
CRY24260 
CRY24270 
CRY24280 
CRY24290 
CRY24300 
CRY24310 
CRY24320 
CRY24330 
CRY2 43 40 
CRY24350 


CONTINUE 
ENDIF 
END I F 
CONTINUE 
NUMNOD-NUMNOD+l 
ACCLI Q' ACCLIQ* VOL (NUMNOD) 

IF (ACCLIQ.GT. VOLLIQ. AND. NLGS (NUMNOD) .GT. 1100. AND. 

* N I.GS (NUMNOD) . LE . 1 199) NLGS (NUMNOD) -NT-GS (NUMNOD) ■* 200 
IF (NTHU41.EQ.0. AND*. NLGS (NUMNOD) .GT.1300) NTHU41-IK 
i NDI F 

’ F (NBOT . EQ. 2) THEN 
DO 4 I -1 , NFBI.AY 


CRY24390 
CRY24400 
CRY24410 
CRY24420 
CRY24430 
CRY24440 
CRY24450 
CRY744 1')0 
CRY? 4470 
CRY? 4 4 80 
CRY? 4 4 90 
CRY? 4b 00 
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NSTAT5-9001 + (1-1) 

NSTAT4-8001+ <1-1 ) 

DO 5 J-NLAYRS (5) , l f -l 

NUMNOD-NSTAT5+ ( (J-l) *NFBLAY) 

ACCLIQ-ACCLIQ+VOL (NUMNOD) 

IF (ACCLIQ.GT.VOLLIQ. AND. NLGS (NUMNOD) .GT. 1100. AND. 

* NLGS (NUMNOD) ,LE. 1199) NLGS (NUMNOD) -NLGS (NUMNOD) +200 
IF (NTHU41 .EQ.O. AND. NLGS (NUMNOD) .GT. 1300) NTHU41-I 

CONTINUE 

DO 6 J-NLAYRS (4) ,1,-1 

NUMNOD-NSTAT4+ { { J-l ) *NFBLAY) 

ACCLIQ-ACCLIQ+VOL (NUMNOD) 

IF (ACCLIQ.GT.VOLLIQ. AND. NLGS (NUMNOD) .GT. 1100 .AND . 

* NLGS (NUMNOD) . LE . 1199) NLGS (NUMNOD) -NLGS (NUMNOD) +200 
IF (NTHU41 .EQ.O. AND. NLGS (NUMNOD) .GT. 1300) NTHU41-I 

CONTINUE 

CONTINUE 

ENDIF 

NSTA-900 1+ ( (NSBLAY +NFBLAY + NE8LAY) *NLAYRS (5) ) 

NSTB-8001 + ( (NSBLAY +NFBLAY + NEBLAY) *NLAYRS (4) ) 

DO 7 1-1 , NCYLAY 

NSTAT5-NSTA+ (1-1) 

NSTAT4-NSTB+ (1-1) 

DO 9 J-NLAYRS (5) , 1, -1 

NUMNOD-NSTAT5+ ( (J-l) *NCYLAY) 

ACCLIQ-ACCLIQ+VOL (NUMNOD) 

IF (ACCLIQ.GT.VOLLIQ. AND. NLGS (NUMNOD) . GT . 1 100 . AND . 

* NLGS (NUMNOD) .LE. 1199) NLGS (NUMNOD) -NLGS (NUMNOD) + 200 

IF (NTHU41 ,EQ. 0. AND. NLGS (NUMNOD) .GT.1300) 

* NTHU4 1 -I +NFBLAY + NSBLAY + NEBLAY 
CONTINUE 

DO 8 J-NLAYRS (4) , 1, -1 

NUMN0D-NSTAT4+ ( (J-l) *NCYLAY) 

ACCLIQ-ACCLIQ+VOL (NUMNOD) 

IF (ACCLIQ.GT.VOLLIQ. AND. NLGS (NUMNOD) . GT . 1 100 . AND. 

* NLGS (NUMNOD) .LE. 1199) NLGS (NUMNOD) -NLGS (NUMNOD) +200 
IF (NTHU41 ,EQ. 0. AND. NLGS (NUMNOD) .GT.1300) 

* NT HU 4 1 -I+NFBLAY+NSBLAY+NEBLAY 
CONTINUE 

CONTINUE 

IF (NTOP.EQ.2) THEN 

NSTA-9001 + ( (NSBLAY+NFBLAY+NEBLAY+NCYLAY) *NLAYRS (5) ) 
NSTB-B001+ ( (NSBLAY + NFBLAY + NEBLAY + NCYLAY) *NLAYRS (4) ) 

DO 14 I -1 , NFTLAY 

NSTAT5-NSTA+ (1-1) 

NSTAT4 -NSTB+ (1-1) 

DO 15 J-NLAYRS (5) , 1,-1 

NUMNOD -NS TAT 5+ ( (J-l) * NFTLAY) 

ACCLIQ-ACCLIQ+VOL (NUMNOD) 

IF (ACCLIQ.GT.VOLLIQ. AND. NLGS (NUMNOD) . GT. 1 1 00 . AND . 

* NLGS (NUMNOD) .LE. 11 99) NLGS (NUMNOD) -NLGS (NUMNOD) +200 
IF (NTHU41. EQ.O. AND. NLGS (NUMNOD) .GT.1300) 

1 NTHU4 1-I+NFBLAY+ NSBLAY +NEBLAY+NCYLAY 

CONTINUE 

DO 1 6 J-NLAYRS (4) , 1, -1 

NUMNOD-NSTAT4 + ( (J-l) * NFTLAY) 

ACCLIQ-ACCLIQ+VOL (NUMNOD) 

IF (ACCLIQ. GT.VOLLIQ. AND. NLGS (NUMNOD) .GT . 1100 .AND . 
NLGS (NUMNOD) . LE . 1199) NLGS (NUMNOD) -NLGS (NUMNOD) +200 
IF (NTHU41. EQ.O. AND. NLGS (NUMNOD) .GT.1300) 

NTHU41 -I +NFBLAY+NSBLAY+NEBLAY+NCYLAY 
CONTINUE 
CONTINUE 
ENDIF 

IF (NTOP . EQ. 3 . OR .NTOP . EQ . 4 ) THEN 

NSTA-9001 + ( (NSBLAY+NFBLAY+NEBLAY+NCYLAY) *NLAYRS (5) ) 
NSTB-8001 + ( (NSBLAY+NFBLAY+NEBLAY+NCYLAY) *NLAYRS (4) ) 

IF (NTOP.EQ.3) LAYTOP “N ST LAY 
IF (NTOP.EQ.4) LAYTOP-NETLAY 
DO 24 I -1, LAYTOP 


CRY24510 

CRY24520 

CRY24530 

CRY24540 

CRY24550 

CRY24560 

CRY24570 

CRY24580 

CRY245 90 

CRY24600 

CRY24610 

CRY24620 

CRY24630 

CRY24640 

CRY24650 

CRY24660 

CRY24670 

CRY24680 

CRY24690 

CRY24700 

CRY24710 

CRY24720 

CRY24730 

CRY24740 

CRY24750 

CRY247 60 

CRY247 70 

CRY24780 

CRY247 90 

CRY24800 

CRY24810 

CRY24820 

CRY24830 

CRY24840 

CRY24850 

CRY24860 

CRY24870 

CRY24880 

CRY24890 

CRY24900 

CRY24910 

CRY24920 

CRY24930 

CRY24940 

CRY24950 

CRY24960 

CRY24970 

CRY24980 

CRY24990 

CRY25000 

CRY25010 

CRY25020 

CRY25030 

CRY25040 

CRY25050 

CRY25060 

CRY25070 

CRY25080 

CRY25090 

CRY25100 

CRY25110 

CRY25120 

CRY25130 

CRY25140 

CRY25150 

CRY251 60 

CRY25170 

CRY25180 

CRY25190 

CRY25200 



NSTAT5-NSTA+ (1-1) 

NSTAT4 -NSTB+ (1-1) 

DO 25 J-NLAYRS (5) , 1,-1 

NUMNOD-NSTAT5+ ( (J-l) * LAYTOP ) 

ACCLIQ-ACCLIQ+VOL (NUMNOD) 

IF (ACCLIQ. GT .VOLLI Q . AND . NLGS (NUMNOD) . GT . 11 00 . AND . 

* NLGS(NUMNOD) .LE.1199) NLGS (NUMNOD) -NLGS (NUMNOD) +200 
IF (NTHU41 .EQ. 0 .AND. NLGS (NUMNOD) .GT.1300) 

* NTHU41 -I+NFBLAY + NSBLAY +NEBLAY+NCYLAY 

25 CONTINUE 

DO 26 J-NLAYRS (4 ) , 1, -1 

NUMNOD-NSTAT4 + ( (J-l) * LAYTOP ) 

ACCLIQ-ACCLIQ+VOL (NUMNOD) 

IF (ACCLIQ. GT.VOLLIQ. AND. NLGS (NUMNOD) . GT . 1100 .AND . 

. NLGS (NUMNOD) .LE.1199) NLGS (NUMNOD) -NLGS (NUMNOD) +200 

IF (NTHU41 .EQ.0. AND. NLGS (NUMNOD) .GT.1300) 

* NTHU41-I+NFBLAY+NSBLAY+NEBLAY+NCYLAY 

26 CONTINUE 

24 CONTINUE 

ENDIF 
GOTO 199 

99 IF (NBOT.EQ.2) BOTVOL- (P I* RIN* RIN* FBTHK) /2 . 

IF (NBOT.EQ.3) BOTVOL- ( ( 4 . /3 . ) *P I* RIN*RIN*RIN) / 4 . 

IF (NBOT.EQ.4) BOTVOL- ( (4 . /3 .) *PI*RIN*RIN*RIN*EBRAT) /4 . 

IF (NBOT.NE.l) BOTLAY* (BOTVOL/ (NSBLAY+NEBLAY+NFBLAY) ) 

CYLVOL- (PI * RIN*RIN*CYLHGT) /2. 

CYLLAY- ( (P I * RIN* RIN*CYLHGT) /NCYLAY) / 2 . 

IF (NTOP.EQ.2) TOPVOL- (PI*RIN*RIN*FTTHK) /2 . 

IF (NTOP.EQ.3) TOPVOL- ( (4./3.) *PI*RIN*RIN*RIN) /4. 

IF (NTOP.EQ.4) TOPVOL- ( (4 . /3 . ) *PI*RIN*RIN*RIN*ETRAT) /4 . 

IF (NTOP.NE.l) TOP LAY- (TOPVOL/ (NFTLAY+NSTLAY+NETLAY) ) 

VO LUM- BOTVOL +CYLVOL+TOP VOL 
VOLLIQ-VOLUM* ( PCTFUL/100 . ) 

ACCLIQ-0 

DO 33 1-1, NFBLAY+NSBLAY+NEBLAY 
ACCLIQ-ACCLIQ+BOTLAY 

IF (ACCLIQ. GT.VOLLIQ. AND. NTHU41 .EQ.0) NTHU41-I 

33 CONTINUE 

IP -NFBLAY+NSBLAY+NEBLAY 
DO 34 I = IP, NCYLAY+ IP 

ACCLIQ-ACCLIQ+CYLLAY 

IF (ACCLIQ. GT.VOLLIQ. AND. NTHU41 . EQ.0) NTHU41-I 

34 CONTINUE 

IP-NFBLAY+NSBLAY+NEBLAY+NCYLAY 
DO 35 I-IP, IP+NFTLAY+NSTLAY+NETLAY 
ACCLIQ-ACCLIQ+TOPLAY 

IF (ACCLIQ. GT.VOLLIQ. AND. NTHU41. EQ.0) NTHU41-I 

35 CONTINUE 
199 RETURN 

END 

SUBROUTINE ULL0G 

COMMON/ULLAGE/ NLUL4 f NLUL5 , NTHU4 1 , RINMHH, PCTFUL, RADULG, TVULFT, 

* CT, LG (3) , LIQVAP (3) 

COMMON /REG ION/NTHETA, NBETAS, BETA, RIN, TVOL, 

* ROUT (9) , REGNS ( 9) , NLAYRS ( 9) , TEMPS (9) , THICK{9) , 

* THKLAY (9) , MATRLS (9) , MATNMS (9) , RGNNMS (9) 
COMMON/TOPBOT/NTOP, NBOT, NFTLAY , NSTLAY, NETLAY, NFBLAY, NSBLAY, 

* NEBLAY, ETRAT, EBRAT, FTTHK, FBTHK 
COMMON/CYDATA/ CYLHGT , NCYLAY 

COMMON /HTXGRS/NHX, HXTEMP (10) ,NRHX (10) , NLHX (10) , NTHHX (10) , 

* LNGTHX (10) 

COMMON / UNITS/ MOD U, SINDA 

COMMON/NODDAT/NODNUM (10000) , VOL (10000) , NLGS (10000) 

TOTVOL-0 .0 

DO 56 1-8001,10000 

TOTVOL-TOTVOL+VOL (I ) 

56 CONTINUE 


CRY25210 

CRY25220 

CRY25230 

CRY25240 

CRY25250 

CRY25260 

CRY25270 

CRY252B0 

CRY25290 

CRY25300 

CRY25310 

CRY25320 

CRY25330 

CRY25340 

CRY25350 

CRY25360 

CRY25370 

CRY25380 

CRY25390 

CRY25400 

CRY254 10 

CRY25420 

CRY254 30 

CRY25440 

CRY25450 

CRY25460 

CRY25470 

CRY25480 

CRY25490 

CRY25500 

CRY25510 

CRY25520 

CRY25530 

CRY25540 

CRY25550 

CRY25560 

CRY25570 

CRY25580 

CRY25590 

CRY25600 

CRY25610 

CRY25620 

CRY25630 

CRY25640 

CRY25650 

CRY25660 

CRY25670 

CRY25680 

CRY 2 5 6 90 

CRY25700 

CRY25710 

CRY25720 

CRY25730 

CRY25740 

CRY25750 

CRY25760 

CRY25770 

CRY25780 

CRY25790 

CRY25800 

CRY25810 

CRY25820 

CRY25830 

CRY25840 

CRY25850 

CRY25860 

CRY25870 

CRY25880 

CRY25890 

CRY25900 
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VOLLIQ-TOTVOL* (PCTFUL/ 100 . ) 
GASVOL-TOTVOL-VOLLIQ 


NSTA-9001+ < (NSBLAY +NFBLAY+NEBLAY) * NLAYRS (5) ) 

NSTB-8001+ ( (NSBLAY +NFBLAY+NEBLAY ) *NLAYRS (4) ) 

DO 7 I ■! , NCYLAY 

NSTAT5-NSTA+ (1-1) 

NSTAT4-NSTB+ (1-1) 

DO 9 J-NLAYRS (5) , 1,-1 

NUMNOD-NSTAT5+ ( (J-l) *NCYLAY) 

ACCLIQ-ACCLIQ+VOL (NUMNOD) 

IF (ACCLIQ. GT.VOLLIQ. AND. NLGS (NUMNOD) . GT . 1 100 . AND . 

* NLGS (NUMNOD) .LE. 1199) NLGS (NUMNOD) -NLGS (NUMNOD) +200 

IF (NTHU41 .EQ.O. AND. NLGS (NUMNOD) .GT.1300) 

* NTHU41-I +NFBLAY+NSBLAY+NEBLAY 

9 CONTINUE 

DO 8 J-NLAYRS (4) ,1,-1 

NUMNOD -NSTAT 4+ ( (J-l) *NCYLAY) 

ACCLIQ-ACCLIQ+VOL (NUMNOD) 

IF (ACCLIQ. GT.VOLLIQ. AND. NLGS (NUMNOD) . GT . 1 100 . AND . 

* NLGS (NUMNOD) .LE. 1199) NLGS (NUMNOD) -NLGS (NUMNOD) +200 
IF (NTHU41 .EQ. 0. AND. NLGS (NUMNOD) .GT.1300) 

* NTHU41-I +NFBLAY+NSBLAY+NEBLAY 

8 CONTINUE 

7 CONTINUE 

IF (NBOT.EQ. 3 .OR.NBOT. EQ. 4) THEN 
IF (NBOT.EQ. 3) LAYBOT-NSBLAY 
IF (NBOT.EQ. 4) LAYBOT-NEBLAY 
NUMNOD-BOOl 

DO 1 1-1, NLAYRS (4) +NLAYRS (5) 

IF ( I . LE . NLAYRS (4) ) NSTART-8001 
IF (I .GT. NLAYRS (4) ) NSTART- 9001 
IF (I. LE. NLAYRS ( 4 ) ) IK - I 
IF (I. EQ. NLAYRS (4) +1) IK-1 
IF (I. GT. NLAYRS (4) +1) IK -IK+1 
NUMNOD-NSTART+ ( (IK-1) * LAYBOT) 

ACCLIQ-ACCLIQ+VOL (NUMNOD) 

IF (ACCLIQ. GT.VOLLIQ. AND. NLGS (NUMNOD) . GT . 1 100 . AND . 

* NLGS (NUMNOD) .LE. 1199) NLGS (NUMNOD) -NLGS (NUMNOD) + 20 0 
IF (NTHU41. EQ.O. AND. NLGS (NUMNOD) .GT.1300) NTHU41-IK 
IF (I.GT.l) THEN 

IF (I. LT. LAYBOT) IJ - I 
IF (I .GE. LAYBOT) IJ - LAYBOT 
DO 2 J-l , I J-2 

NUMNOD -NUMNOD+1 
ACCLIQ-ACCLIQ+VOL (NUMNOD) 

IF (ACCLIQ. GT.VOLLIQ. AND. NLGS (NUMNOD) . GT . 1100 .AND. 

* NLGS (NUMNOD) .LE. 1199) NLGS (NUMNOD) -NLGS (NUMNOD) +200 
IF (NTHU41. EQ. 0 .AND. NLGS (NUMNOD) .GT. 1300) NTHU41-IK 

2 CONTINUE 

IF { I. LE. LAYBOT) THEN 
DO 3 J-l, I 

IF ( J. LE. NLAYRS (4) ) NSTART-8001 
IF (J.GT. NLAYRS (4) )NSTART-9001 
IF (J.LE. NLAYRS (4) ) K - J 
IF (J. EQ. NLAYRS (4)+l) K-l 
IF (J. GT. NLAYRS (4)+l) K - K+l 
NUMNOD-NSTART+ ( (K-l) * LAYBOT) +1-1 
ACCLIQ-ACCLIQ+VOL (NUMNOD) 

IF (ACCLIQ. GT.VOLLIQ. AND. NLGS (NUMNOD) .GT. 1100. AND. CRY26510 

* NLGS (NUMNOD) . LE. 1199) NLGS (NUMNOD) -NLGS (NUMNOD) +200CRY2 6520 
IF (NTHU41. EQ.O. AND. NLGS (NUMNOD) .GT.1300) NTHU4 1-IKCRY2 6530 

CONTINUE CRY26540 

ENDir CRY26550 

ENDIF CRY26560 

CONTINUE CRY26570 

NUMNOD-NUMNOD+1 CRY26580 

ACCLIQ=ACCLIQ+VOL (NUMNOD) CRY26590 

IF (ACCLIQ. GT.VOLLIQ. AND. NLGS (NUMNOD) .GT. 1100. AND. CRY26600 


CRY25910 

CRY25920 

CRY25930 

CRY25940 

CRY25950 

CRY25960 

CRY25970 

CRY259B0 

CRY25990 

CRY26000 

CRY26010 

CRY26020 

CRY26030 

CRY26040 

CRY26050 

CRY26060 

CRY26070 

CRY26080 

CRY26090 

CRY26100 

CRY26110 

CRY26120 

CRY26130 

CRY26140 

CRY26150 

CRY26160 

CRY26170 

CRY26180 

CRY26190 

CRY26200 

CRY26210 

CRY26220 

CRY26230 

CRY26240 

CRY26250 

CRY26260 

CRY26270 

CRY26280 

CRY26290 

CRY26300 

CRY26310 

CRY26320 

CRY26330 

CRY263 40 

CRY26350 

CRY26360 

CRY26370 

CRY26380 

CRY263 90 

CRY26400 

CRY26410 

CRY26420 

CRY264 30 

CRY26440 

CRY26450 

CRY26460 

CRY2647C 

CRY26480 

CRY264 90 

CRY26500 
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* NLGS {NUMNOD) « LE.1199) NLGS (NUMNOD) -NLGS (NUMNOD) +200 
IF (NTHU41. EQ.Q. AND. NLGS(NUMNOD) .GT. 1300) NTHU41-IK 

ENDIF 

IF (NBOT.EQ.2) THEN 
DO 4 1-1 , NFBLAY 

NSTAT5-9001+ (X-l ) 

NSTAT4-8001+ (1-1) 

DO 5 J-NLAYRS (5) ,1,-1 

NUMNOD-NSTAT5+ ( { J-l ) * NFBLAY) 

ACCLIQ-ACCLIQ+VOL (NUMNOD) 

IF (ACCLIQ.GT.VOLLIQ. AND. NLGS (NUMNOD) .GT. 1100 .AND. 

* NLGS (NUMNOD) . LE.1199) NLGS (NUMNOD) -NLGS (NUMNOD) +200 
IF (NTHU41 . EQ. 0 . AND . NLGS (NUMNOD) . GT . 1300) NTHU41-I 

5 CONTINUE 

DO 6 J-NLAYRS (4 ) ,1,-1 

NUMNOD-NSTAT4 + ( (J-l) *NFBLAY) 

ACCLIQ-ACCLIQ+VOL (NUMNOD) 

IF (ACCLIQ.GT.VOLLIQ. AND. NLGS (NUMNOD) . GT . 1 1 00 . AND . 

* NLGS (NUMNOD) .LE.1199) NLGS (NUMNOD) -NLGS (NUMNOD) +200 
IF (NTHU41 . EQ. 0 . AND . NLGS (NUMNOD) . GT . 1300 ) NTHU41-I 

6 CONTINUE 

4 CONTINUE 

ENDIF 

IF (NTOP.EQ.2) THEN 

NSTA-9001+ ( (NSBLAY+NFBLAY+NEBLAY+NCYLAY ) *NLAYRS (5) ) 
NSTB-8001+ ( (NSBLAY+NFBLAY+NEBLAY+NCYLAY) *NLAYRS (4) ) 

DO 14 I -1 , NFTLAY 

NSTAT5-NSTA+ (1-1) 

NSTAT4-NSTB+ (1-1) 

DO 15 J-NLAYRS (5) , 1, -1 

NUMNOD-NSTAT5+ ( (J-l ) * NFTLAY) 

ACCLIQ-ACCLIQ+VOL (NUMNOD) 

I F (ACCLIQ. GT . VOLLIQ. AND . NLGS (NUMNOD) . GT . 1100 .AND . 

* NLGS (NUMNOD) . LE . 1199) NLGS (NUMNOD ) -NLGS (NUMNOD) +200 
IF (NTHU4 1 . EQ . 0 . AND .NLGS (NUMNOD) .GT.1300) 

* NTHU4 1-I + NFBLAY + NSBLAY + NEBLAY +NCYLAY 

15 CONTINUE 

DO 16 J-NLAYRS (4) , 1,-1 

NUMNOD-NSTAT4 + { (J-l) * NFTLAY ) 

ACCLIQ-ACCLIQ+VOL (NUMNOD) 

IF (ACCLIQ.GT.VOLLIQ. AND. NLGS (NUMNOD) .GT. 1100. AND. 

* NLGS (NUMNOD) .LE.1199) NLGS (NUMNOD) -NLGS (NUMNOD) +200 
IF (NTHU41.EQ.0. AND. NLGS (NUMNOD) .GT.1300) 

* NTHU41 -I +NFBLAY + NSBLAY +NEBLAY + NCYLAY 

16 CONTINUE 

14 CONTINUE 

ENDIF 

IF (NT OP . EQ. 3 . OR . NTOP . EQ . 4 ) THEN 

NSTA-9001+ ( (NSBLAY+NFBLAY+NEBLAY+NCYLAY) *NLAYRS (5) ) 
NSTB-8001+ ( (NSBLAY+NFBLAY+NEBLAY+NCYLAY) *NLAYRS (4) ) 

IF (NTOP. EQ. 3) LAYTOP-NSTLAY 
IF (NTOP.EQ.4) LAYTOP-NETLAY 
DO 24 I -1 , LAYTOP 

NSTAT5-NSTA+ (1-1) 

NSTAT4 -NSTB+ (1-1) 

DO 25 J-NLAYRS (5) , 1,-1 

NUMNOD-NSTAT5+ ( (J-l) * LAYTOP ) 

ACCLIQ-ACCLIQ+VOL (NUMNOD) 

IF (ACCLIQ. GT .VOLLIQ. AND. NLGS (NUMNOD) .GT. 11 00 . AND . 

* NLGS (NUMNOD) . LE.1199) NLGS (NUMNOD) -NLGS (NUMNOD) +200 
IF (NTHU41 .EQ.O. AND. NLGS (NUMNOD) .GT.1300) 

* NTHU4 1 -I +NFBLAY+NSBLAY+NEBLAY+NCYLAY 

25 CONTINUE 

DO 26 J-NLAYRS (4) , 1,-1 

NUMNOD-NSTAT4 + ( (J-l) * LAYTOP ) 

ACCLIQ-ACCLIQ+VOL (NUMNOD) 

IF (ACCLIQ. GT .VOLLIQ. AND. NLGS (NUMNOD) .GT . 1100 .AND. 

* NLGS (NUMNOD) .LE.1199) NLGS (NUMNOD) -NLGS (NUMNOD) +200 
IF (NTHU41. EQ.O. AND. NLGS (NUMNOD) .GT.1300) 

* NTHU41-I+NFBLAY+NSBLAY+NEBLAY+NCYLAY 


CRY26610 

CRY26620 

CRY26630 

CRY26640 

CRY26650 

CRY26660 

CRY26670 

CRY266B0 

CRY26690 

CRY26700 

CRY26710 

CRY26720 

CRY26730 

CRY26740 

CRY26750 

CRY26760 

CRY26770 

CRY26780 

CRY26790 

CRY26800 

CRY26810 

CRY268 20 

CRY26830 

CRY26840 

CRY26850 

CRY26860 

CRY26870 

CRY26880 

CRY26890 

CRY26900 

CRY26910 

CRY26920 

CRY26930 

CRY26940 

CRY26950 

CRY26960 

CRY26970 

CRY26980 

CRY26990 

CRY27000 

CRY27010 

CRY27020 

CRY27030 

CRY27040 

CRY27050 

CRY270 60 

CRY27070 

CRY27080 

CRY27090 

CRY27100 

CRY27110 

CRY271 20 

CRY27130 

CRY271 40 

CRY271 50 

CRY27160 

CRY27170 

CRY27180 

CRY271 90 

CRY27200 

CRY27210 

CRY27220 

CRY27230 

CRY27240 

CRY27250 

CRY27260 

CRY27270 

CRY27280 

CRY27290 

CRY27300 
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2 6 CONTINUE 

24 CONTINUE 

ENDIF 
GOTO 199 

99 IF (NBOT.EQ.2) BOTVOL- {PI*RIN*RIN*FBTHK} /2 . 

IF (NBOT.EQ.3) BOTVOL- ( (4 . /3 . ) *PI*RIN*RIN*RIN) /4 . 

IF (NBOT.EQ, 4} BOTVOL- ( (4 . /3 .) *PI*RIN*RIN*RIN*£BRAT) /4 . 
IF (NBOT.NE.l) BOTLAY- (BOTVOL/ (NSBLAY+NEBLAY+NFBLAY) ) 
CYLVOL- (PI *RIN*RIN*CYLHGT) /2. 

CYLLAY- ( (PI*RIN*RIN* CYLHGT) /NCYLAY) /2. 

IF (NTOP.EQ.2) TOP VOL- (PI*RIN*RIN*FTTHK) /2 . 

IF (NTOP.EQ.3) TOP VOL- ( {4-/3.) *PI*RIN*RIN*RIN) /4. 

IF (NTOP.EQ.4) TOP VOL- ( (4 . /3 . ) *PI*RIN*RIN*RIN*ETRAT) / 4 . 
IF (NTOP.NE.l) TOP LAY- {TOPVOL/ (NFTLAY+NSTLAY+NETLAY) ) 
VOLUM-BOTVOL+CYLVOL+TOpVOL 
VOLLIQ-VOLUM* ( PCTFUL/1 00 . ) 

ACCLIQ-0 

DO 33 1-1, NFBLAY+NSBLAY+NEBLAY 
ACCLIQ-ACCLIQt BOTLAY 

IF (ACCLIQ. GT . VOLLIQ.AND.NTHU41 . EQ. 0) NTHU41-I 

33 CONTINUE 

I P -NFBLAY + NSBLAY +NEBLAY 
DO 34 I-IP, NCYLAY+ IP 
ACCLIQ-ACCLIQ+CYLLAY 

IF (ACCLIQ.GT.VOLLIQ. AND.NTHU41.EQ.0) NTHU41-I 

34 CONTINUE 

IP -NFB LAY +NSBLAY+NEBLAY+ NCYLAY 
DO 35 I-IP, IP+NFTLAY+NSTLAY+NETLAY 
ACCLIQ-ACCLIQ+TOPLAY 

IF (ACCLIQ. GT.VOLLIQ. AND.NTHU41 . EQ. 0) NTHU41-I 

35 CONTINUE 
99 RETURN 

END 


CRY27310 
CRY273 20 
CRY27330 
CRY27340 
CRY27350 
CRY27360 
CRY27370 
CRY27380 
CRY27390 
CRY27400 
CRY27410 
CRY27420 
CRY27430 
CRY27440 
CRY274 50 
CRY27460 
CRY27470 
CRY27480 
CRY27490 
CRY27500 
CRY27510 
CRY27520 
CRY27530 
CRY27540 
CRY27550 
CRY27560 
CRY27570 
CRY27580 
CRY27590 
CRY27600 
CRY27610 
CRY27620 
CRY27630 
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APPENDIX E 


CryoTran Program Listings 
Part IV CRYOPLOT FORTRAN 
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c 

PLOT ROUTINES 

FOR CRYOTRAN 


CRY00020 

c 

THESE PLOT ROUTINES ARE CALLED FROM SUBROUTINE GEOPLT 

(38) 

CRY00030 

c 

THEY PRODUCE 

PLOTS OF THE GEOMETRY, SPHERE OR CYLINDER, 

CRY00040 

c 

THAT THE USER 

HAS DEFINED WITHIN THE CRYOTRAN SYSTEM. 


CRY00050 

c 

THESE ROUTINES USE THE DISDPLA SYSTEM FOR SPHERES AND 

CYLINDERS. 

CRY00060 

c 




CRY00070 


SUBROUTINE 

PLTSPH 


CRY00080 

CALLED FROM 


GEOPLT (48) 

CRY00O 90 

C 

SUBROUTINE TO 

PLOT THE GEOMETRY 


CRY00100 

C 

NTYP -1 SPHERE WEDGE MODEL 


CRY00110 

C 

USING ISSCO 1 

DISSPLA 


CRY001 20 

C 




CRY00130 


COMMON /TITL/ PTITLE 


CRY001 40 


COMMON /REGION/ NTHETA, N BETAS, BETA, RIN # TVOL, ROUT (9) , 


CRY001 50 


1 

REGNS (9) , NLAYRS ( 9) , TEMPS { 9) , THICK ( 9) 

$ 

CRY001 60 


2 

THKLAY { 9 > , MATRLS ( 9 } , MATNMS ( 9 ) , RGNNMS { 9 > 

CRY001 70 


COMMON /ULLAGE/ NLUL4, NLUL5, NTHU41, RINMHH, PCTFUL, RADULG, TVULFT. 

CRY00180 


1 

CT, LG (3) , LIQVAP (3) 


CRY001 90 


COMMON /HTXGRS/ NHX, HXTEMP {10) ,NRHX (10) , NLHX (10) , 


CRY00200 


1 

NTHHX (10) , LNGTHX (10) 


CRY002 10 


COMMON /STUFF/ NHTT, PI , CONVY, CONVR, THETA0 # DTHETA, NBASOS, ROUTSF, 

CRY00220 


1 

BNCOEF (2) 


CRY00230 


COMMON /OUTSRC/ NQIN, QEFF 


CRY00240 

C 




CRY002 50 


LOGICAL REGNS 


CRY002 60 


LOGICAL NOSCAL 


CRY002 70 





CRY00280 


CHARACTER* 1 

CT, LG 


CRY00290 


CHARACTER* 6 

LIQVAP 


CRY00300 


CHARACTER* 1 

REGNO 


CRY003 10 


CHARACTER* 16 

MATNMS 


CRY00320 


CHARACTER* 25 

RGNNMS 


CRY00330 


CHARACTER* 80 

PTITLE 


CRY00340 

c 




CRY003 50 


CHARACTER* 2 

NUM 


CRY003 60 


CHARACTER* 6 

RLABLE, ULLG 


CRY00370 


CHARACTER* 8 

REGLAB 


CRY00380 


CHARACTER* 10 

RADIUS 


CRY00390 


CHARACTER* 17 

NOSMSG 


CRY004 00 


CHARACTER*20 

QMSG1, QMSG2, QMSG4, HXMSG1 


CRY00410 


CHARACTER* 4 

QMSG3, TEQMSG 


CRY00420 


CHARACTER* 6 

DEGMSG 


CRY004 30 


CHARACTER* 10 

NNOMSG 


CRY00440 


CHARACTER* 20 

BNMSG1 , BNMSG5 


CRY004 50 


CHARACTER* 20 

CONRAD (2) 


CRY004 60 


CHARACTER* 5 

TANKEQ 


CRY004 70 


CHARACTER* 6 

TVUNIT ■ 


CRY00480 


CHARACTER*? 

PCTSIN 


CRY004 90 


CHARACTER* 12 

TNKVEQ 


CRY00500 

c 




CRY005 10 


DIMENSION PROUT (5) , PTHICK (5) 


CRY00520 


DIMENSION R{500), THETA (500) 


CRY00530 

c 




CRY005 40 


DATA REGLAB/' 

REGION ' /, RADIUS/' RADIUS (IN) ' / 


CRY005 50 


DATA ULLG/' ULLAGE' / 


CRY005 60 


DATA NOSMSC/' 

PLOT NOT TO SCALE'/ 


CRY00570 


DATA TEQMSG/' 

T- S' / 


CRY00580 


DATA DEGMSG/' 

DEG $'/ 


CRY005 90 


DATA NNOMSG/ ' 

NODE NO. S' / 


CRY00600 


DATA QMSG1 /' 

SOURCE Q INTO ALLS'/ 


CRY00610 


DATA QMSG2 /' 

OUTER SURFACE NODESS' / 


CRY00620 


DATA QMSG3 /' 

Q« S'/ 


CRY00630 


DATA QMSG4 /' 

(BTU/ (HR-IN2) ) $' / 


CRY00640 


DATA BNMSG1 / 

'OUTSIDE BNDY NODE S' / 


CRY00650 


DATA BNMSG5 / 

' TO SURFACES'/ 


CRY006 60 


DATA CONRAD (!) /'CONVECTIONS'/ 


CRY00670 


DATA CONRAD (2) /'RADIATIONS'/ 


CRY00680 


DATA HXMSG1 / 

'HEAT EXCHANGER NO. $'/ 


CRY00690 


DATA TNKVEQ / 

'TANK VOLUME-'/ 


CRY00700 
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DATA TVUNIT /' { FT 3 ) ' / 

DATA TANKEQ /'TANK*' / 
DATA PCTSIN /' % FULL'/ 


INITIALIZE OUTPUT TO 
PRINT 2001 
2001 FORMAT {/// 

1 
2 

3 

4 

5 


( 1 ) 


QMS PRINTER OR TO (2) TERMINAL SCREEN 


IN THE SPHERE PLOTTING ROUTINE'/ 

SEND THE GRAPH TO '/ 

1. THE QMS PRINTER'/ 

2. THE TERMINAL SCREEN'/ 

3. SOME OTHER DEVICE ' / 

TYPE IN 1 2 OR 3') 

CALL READIN (IDV, 1, 3) 

IF (IDV .EQ. 1) CALL QMS2 

IFtlDV .EQ. 2) CALL IBM52 (3179, 0 , 0, 0) 

NEW SUBROUTINE CALL FROM DAVE HUBLER TO ALLOW USER TO CHOOSE DEVICE 
IF (IDV .EQ. 3) CALL PDEV(' ',ISTAT) 


c 

C SET PAGE SIZE 

CALL PAGE (11., 6. 5) 

C SET SUBPLOT SIZE 

CALL AREA2D {10.5, 8.0) 

C SET CHARACTER STYLE TO TRIPLEX 
CALL TRIPLX 

C SCALE REGION THICKNESSES UP IF REAL SCALE IS TOO SMALL 
NOSCAL -.FALSE. 

SCALEF-RIN/20. 

DO 5 1-1,5 
PROUT(I) “ROUT (I) 

PTHICK ( I ) -THICK (I) 

I F (REGNS (I ) ) THEN 

I F (THICK (I ) .LT. 1.) THEN 
PTHICK (I ) * THICK (I) +SCALEF 
NOSCAL -.TRUE. 

ENDIF 

ENDIF 

5 CONTINUE 

IF (NOSCAL) THEN 
THKSUM-0.0 
DO 7 1-1,3 
IF (REGNS (I)) THEN 

THKSUM-THKSUM+PTHICK (I ) 

PROUT (I) -RIN+THKSUM 
ENDIF 

7 CONTINUE 

IF (THICK (4 } .LT. 1.) THEN 
PROUT (5) -RIN -PTHICK (4) 

PTHICK (5) -PROUT (5) 

ENDIF 

ENDIF 

RADMAX- AMAX1 (PROUT (1), PROUT (2) f PROUT (3)) 


RSTEP-RADMAX/4 .5 

PRINT *,'PLOT-- RADMAX, RSTEP-' , RADMAX, RSTEP 
CALL POLAR (3.14159/180., RSTEP, 5.5, 0.7) 


C WRITE THE PLOT TITLE 

C 

CALL ANGLE (90.) 

CALL MESSAG (PTITLE (1 : 40) , 40,0.0 ,0.0) 
CALL MESSAG (PTITLE (41; ), 40,0.3, 0 .0) 

C 

THETA { 1 ) — 3. 

DO 8 1-2,187 

THETA (I) -THETA (1-1) +1. 

8 CONTINUE 

C CALL ALNMES (0.0, 0. 5) 

CALL ANGLE (90) 

CALL HEIGHT (0.1) 


CRY00710 

CRY00720 

CRY00730 

CRY00740 

CRY00750 

CRY007 60 

CRY00770 

CRY00780 

CRY00790 

CRY00800 

CRY00B10 

CRY00820 

CRY00830 

CRY00840 

CRY008 50 

CRY00860 

CRY008 70 

CRY00880 

CRYO 08 90 

CRY00900 

CRY00910 

CRY00920 

CRY00930 

CRYO 0 9 40 

CRY00950 

CRY00960 

CRY00970 

CRY00980 

CRY009 90 

CRY01000 

CRY01010 

CRYO 1020 

CRYO 1030 

CRY010 40 

CRYO 10 50 

CRYO 10 60 

CRYO 1 070 

CRY01080 

CRY010 90 

CRY01100 

CRY01110 

CRY01120 

CRY01130 

CRY011 40 

CRY01150 

CRYO 11 60 

CRY01170 

CRY01180 

CRYOll 90 

CRY01200 

CRY01210 

CRY01220 

CRYO 1 230 

CRY01240 

CRY01250 

CRY01260 

CRY01270 

CRY01280 

CRY01290 

CRY01300 

CRYQ1310 

CRY01320 

CRY01330 

CRY013 40 

CRY01350 

CRY013 60 

CRY01370 

CRY01380 

CRY013 90 

CRY014 00 
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DO 9 IJ-1,5 
IF (REGNS (I J) ) THEN 
NL-NLAYRS(IJ) 

TNL-NL 

DELTHK-PTHICK (I J) /TNL 
NLL-NL 

IF (I J .EQ. 1) NLL-NL+1 

DO IS I JL-1 , NLL 

R {1) -PROUT {I J) - (IJL-1) *DELTHK 

IF (I J .EQ. 1 .AND. IJL .GT. NL) R(1)-RIN 

DO 10 1-2,187 

R (I) -R (1) 

10 CONTINUE 
NPTS-I01 
NTHP-4 

IF (IJL .EQ. 1 .OR. IJL .GT. NL) THEN 
NPTS-1 87 
NTHP-1 

CALL THKCRV (0.03) 

ENDIF 

CALL CURVE (THETA (NTHP) , R, NPTS, 0) 

CALL RESET (' THKCRV' ) 

15 CONTINUE 

C WRITE THE OUTER RADIUS OF THIS REGION IN THE MARGIN, TOP OF PLOT 
XPOS1- XPOSN (180 .0, PROUT (I J) ) 

CALL REALNO ( ROUT (IJ) , 2, XPOS1, -0.35) 

C WRITE THE REGION NUMBER IN THE MARGIN, BOTTOM OF CIRCLE 
XPOS2-XPOSN (0.0, PROUT (IJ) ) 

CALL MESSAG (REGLAB, 8,XPOS2,-0.35) 

CALL INTNO (I J, ' ABUT' , ' ABUT' ) 

C IF REGNS (4) -FALSE; EXTRA CALL TO WRITE INSIDE RADIUS, RIN 
I F ( I J .EQ. 1 .AND. .NOT. REGNS (4 )) THEN 
XPOS1- XPOSN (180.0, RIN) 

CALL REALNO ( RIN, 2 , XPOS1 , -0 . 35) 

ENDIF 

ENDIF 

9 CONTINUE 

C CALL RESET (' ALNMES'J 

C WRITE LABEL ' RADIUS' ABOVE RADIUS VALUES IN MARGIN 
XPOS- XPOSN (180. 0, RADMAX) 

CALL MESSAG (RADIUS, 10, XPOS -0.2, -0. 5 ) 

CALL RESET {' HEIGHT ' ) 

C IF SOME THICK CHANGED, WRITE NOSCALE MESSAGE 
IF (NOSCAL) CALL MESSAG (NOSMSG, 17, 9 . 95, 5 . 5) 

C NOW PLOT THE RADII; NO. OF RADII - NTHETA+1 
NPTS-2 
R(1)«0. 

R (2) -RADMAX 
THETA ( 1) -0. 

THETA (2) -0. 

CALL CURVE (THETA, R, NPTS, 0) 

THETB-0 . 

DELTH-180 . /NTHETA 

I F ( , NOT . REGNS (4 } ) R(1)-RIN 

DO 25 IA-2, NTHETA 

THETA (1) -THETB+ ( IA-1 ) “DELTH 

THETA (2) -THETA (1) 

CALL CURVE (THETA, R, NPTS, 0) 

25 CONTINUE 
R ( 1) -0 . 

THETA ( 1 ) -180. 

THETA(2) -THETA (1) 

CALL CURVE (THETA, R, NPTS, 0) 

C 

C PLOT LINES OR A SEMICIRCLE DENOTING THE ULLAGE 
C 

IF (CT .EQ. ' C ') THEN 
R (1 ) -RADULG 
DO 111 1-2,187 
111 R { I ) -R (1 ) 


CRY014 1 0 

CRY01420 

CRY01430 

CRY01440 

CRY014 50 

CRY0 14 60 

CRY014 70 

CRY014 80 

CRY01490 

CRY01500 

CRY01510 

CRY01520 

CRY01530 

CRY01540 

CRY01550 

CRY01560 

CRY01570 

CRY01580 

CRY01590 

CRY01600 

CRY01610 

CRY0 1620 

CRY01630 

CRY01640 

CRY01650 

CRY01660 

CRY01670 

CRY01680 

CRY01690 

CRY01700 

CRY01710 

CRY01720 

CRY01730 

CRY01740 

CRY01750 

CRY0 17 60 

CRY0 1770 

CRY01780 

CRY01790 

CRY01800 

CRY0 1810 

CRY01820 

CRY01830 

CRY01840 

CRY01850 

CRY018 60 

CRY0 1870 

CRY0 1880 

CRY01B90 

CRY01900 

CRY0191Q 

CRY01920 

CRY01930 

CRY0 1940 

CRY01950 

CRY01960 

CRY01970 

CRY01980 

CRY01990 

CRY0 2000 

CRY02010 

CRY02020 

CRY02030 

CRY02040 

CRY020 50 

CRY020 60 

CRY02070 

CRY02080 

CRY02090 

CRY021 00 
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NPTS-181 

NTHP-4 

CALL MARKER (16) 

CALL THKCRV ( .05) 

CALL CURVE (THETA (NTHP) , R,NPTS, 9) 

CALL RESET (' THKCRV' ) 

XPOS-XPOSN (178.0,0.4) 

YPOS-YPOSN (178.0,0.4) 

CALL RLMESS (ULLG, 6,XPOS, YPOS) 

CALL HEIGHT (0.09) 

CALL ME S SAG (TNKVEQ, 1 2, XPOS , -0 . 5 ) 

CALL REALNO (TVOL, 1,XPOS+.15,-0.5) 
CALL MESSAG (TVUNIT, 6, ' ABUT' , ' ABUT' ) 
CALL MESSAG (TANKEQ, 5, XPOS+ . 35, -0 . 5 ) 
CALL REALNO (PCTFUL, 0, XPOS+ . 50, -0.5) 
CALL MESSAG (PCTSIN, 7, ' ABUT' , ' ABUT' ) 
ENDIF 

IF (CT .EQ. '1') THEN 
R { 1 ) -RINMHH 
R ( 2) -RIN 

ANGR- (PI/2 . -RADULG) 

C CONVERT ANGLE TO DEGREES 
ANGD-ANGR*180./PI 
THETA(l) -180. 

THETA (2) -ANGD+90. 

IF (PCTFUL .LE. 50.) THEN 
THETA(l) -0.0 
THETA (2) -RADULG* 180. /PI 
R ( 1) - -RINMHH 
ENDIF 
NPTS-2 

CALL MARKER (16) 

CALL THKCRV (.05) 

C HORIZONTAL LINE 

CALL CURVE (THETA, R,NPTS, 1) 

C VERTICAL LINE 

THETA (2) -180.0 
CALL MARKER (16) 

CALL CURVE (THETA, R,NPTS, 1) 

C CURVE ON REGION 4-1 BOUNDARY 

IF (PCTFUL .LE. 50.-) THEN 
THETA (1) -RADULG* 180. /PI 
ELSE 

THETA (1) -ANGD+90 . 

ENDIF 

THTEND-1 B0 . 

R (1) -RIN 

DO 205 1-2,181 

NPTS-I 

THETA (I) -THETA (1-1) +1.0 
R ( I ) -R (1 ) 

I F (THETA (I) .GE. THTEND) GO TO 210 
205 CONTINUE 

210 THETA (NPTS) -THTEND 

CALL CURVE (THETA, R, NPTS, 0} 

CALL RESET ('THKCRV') 

CALL RLMESS (ULLG, 6, 1 80 .0, RINMHH+0 . 2) 
CALL HEIGHT (0.09) 

XPOS-XPOSN (180 .0, RINMHH) 

CALL MESSAG (TNKVEQ, 12, XPOS, -0.5) 

CALL REALNO (TVOL, l,XPOS+. 15, -0.5) 
CALL MESSAG (TVUNIT, 6, 'ABUT' , 'ABUT' ) 
CALL MESSAG (TANKEQ, 5, XPOS+ . 3 5, -0 . 5 ) 
CALL REALNO (PCTFUL, 0,XPOS+. 50, -0.5) 
CALL MESSAG (PCTSIN, 7, 'ABUT' , 'ABUT' ) 
ENDIF 

C HEAT EXCHANGERS 
C 

300 IF (NHX .GT. 0) THEN 


CRY02110 

CRY02120 

CRY02130 

CRY02140 

CRY02150 

CRY02160 

CRY021 70 

CRY021 80 

CRY021 90 

CRY02200 

CRY02210 

CRY022 20 

CRY02230 

CRY02240 

CRY02250 

CRY02260 

CRY02270 

CRY02280 

CRY022 90 

CRY02300 

CRY02310 

CRY02320 

CRY02330 

CRY0 2340 

CRYO 23 50 

CRY023 60 

CRY02370 

CRYO 23 80 

CRY023 90 

CRY02400 

CRY02410 

CRY02420 

CRY02430 

CRY02440 

CRY024 50 

CRY02460 

CRYO 2470 

CRY02480 

CRY02490 

CRY02500 

CRYO 25 10 

CRY02520 

CRY02530 

CRY02540 

CRY02550 

CRY02560 

CRY02570 

CRY02580 

CRYO 2 5 90 

CRY02600 

CRY02610 

CRY02620 

CRY02630 

CRY02640 

CRY02650 

CRY02660 

CRY02670 

CRYO 2680 

CRYO 2 6 90 

CRY02700 

CRY027 10 

CRY02720 

CRY02730 

CRY027 4 0 

CRY02750 

CRY02760 

CRY02770 

CRY02780 

CRYO 27 90 

CRY02800 
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CALL THKCRV { . 05) 

DTHDEG-DTHETA*1B0./PI 
DO 310 I-1,NHX 

THETA (1) -(NTHHX (I) -1 ) *DTHDEG 
THTEND-THETA (1) +LNGTHX (I) *DTHDEG 
NRG-NRHX ( I ) 

RSUB-NLHX (I) -1 
TNL-NLAYRS (NRG) 

DELTHK-PTHICK (NRG) /TNL 
R ( 1 ) -PROUT (NRG) -RSUB*DELTHK 
DO 315 J-2,101 
NPTS-J 

THETA (J) -THETA (J-l)+1.0 
R(J) “R (1 ) 

IE (THETA (J) .GE. THTEND) GO TO 320 
315 CONTINUE 
320 THETA(NPTS) -THTEND 
CALL MARKER (17) 

CALL CURVE (THETA, R, NPTS, 4) 

C MAKE ARROW AND LEGEND FOR* HXGR 
CALL HEIGHT (0.1) 

VEND1-RADMAX+SCALEF 

CALL RLVEC (THETA (1 ) , VEND1, THETA (1) , R (1 ) , 1001) 

CALL RLMESS (HXMSG1, 100, THETA (1) , VEND1) 

CALL RLINT { I , ' ABUT ' , ' ABUT 9 ) 

XPOS-XPOSN (THETA (1 ) , VEND1) 

YPOS=YPOSN (THETA (1) ,VENDX) 

NODENO-2 00 00 + 1 

CALL MESSAG (NNOMSG, 100, XPOS+. 17, YPOS+0. 4) 

CALL INTNO (NODENO, ' ABUT' , ' ABUT' ) 

CALL MESSAG (TEQMSG, 100 , XPOS + .34, YPOS+0.4) 

CALL REALNO (HXTEMP (I) , 2, ' ABUT' , ' ABUT' ) 

CALL MESSAG (DEGMSG, 100, 'ABUT' , 'ABUT' ) 

CALL MESSAG (MATNMS (9) , 1, 'ABUT' , 'ABUT') 

310 CONTINUE 

CALL RESET (' THKCRV' ) 

CALL RESET (' HEIGHT' ) 

ENDIF 

C PUT MESSAGE OF Q TO OUTSIDE SURFACE 
I F (NQI N .GT. 0) THEN 
CALL HEIGHT (0.1) 

XPOS-1 . 8 
YPOS-5.7 

CALL MESSAG (QMSG1, 100, XPOS, YPOS) 

CALL MESSAG (QMSG2, 100, XPOS+0. 17, YPOS) 

CALL MESSAG (QMSG3, 100, XPOS+0 . 34 , YPOS ) 

CALL REALNO (QEFF, 4, 'ABUT' , 'ABUT' ) 

CALL MESSAG (QMSG4, 100, 'ABUT' , ' ABUT' ) 

CALL VECTOR (XPOS, YPOS, XPOS, YPOS-0. 6, 1001 ) 

CALL VECTOR (XPOS, YPOS, XPOS+0. 20, YPOS-O .5,1001) 

CALL VECTOR (XPOS, YPOS, XPOS+0. 40, YPOS-O .3,1001) 

CALL RESET ('HEIGHT' ) 

ENDIF 

C PUT MESSAGE OF OUTSIDE BOUNDARY NODES 
DO 501 IBND-1,2 

IF (TEMPS (IBND+5) . NE . -9999.9 .AND. NLAYRS (I BND+7) .GT. 0) THEN 
XPOS -0.7 

YPOS-3.6+ (IBND-1) *2.3 
CALL HEIGHT (0.1) 

NODENO -2 03 00+ I BND 

CALL MESSAG (BNMSGl, 100, XPOS, YPOS) 

CALL INTNO ( I BND , ' ABUT ' , ' ABUT' ) 

CALL MESSAG (NNOMSG, 100, XPOS+0. 17, YPOS) 

CALL INTNO (NODENO, ' ABUT' ,' ABUT' ) 

CALL MESSAG (TEQMSG, 1 00 , XPOS+O . 34 , YPOS) 

CALL REALNO (TEMPS (IBND + 5) , 2, 'ABUT' , ' ABUT' ) 

CALL MESSAG (DEGMSG, 100, 'ABUT' , 'ABUT' ) 

CALL MESSAG (MATNMS ( 9) , 1, ' ABUT' , ' ABUT' > 

NCR-NLAYRS (IBND+7) 

CALL MESSAG (CONRAD (NCR) , 100, XPOS+0 . 5 1 , YPOS ) 


CRY02810 

CRY02820 

CRY02830 

CRY028 40 

CRY02850 

CRY02860 

CRY02870 

CRY02B80 

CRY02890 

CRY02900 

CRY02910 

CRY02920 

CRY02930 

CRY02940 

CRY02950 

CRY02960 

CRY02970 

CRY02980 

CRY02990 

CRY03000 

CRY03010 

CRY03020 

CRY03030 

CRY03040 

CRY03050 

CRY03060 

CRY03070 

CRY03080 

CRY030 90 

CRY03100 

CRY031 10 

CRY03120 

CRY03130 

CRY03140 

CRY031 50 

CRY031 60 

CRY03170 

CRY031 80 

CRY031 90 

CRY03200 

CRY03210 

CRY03220 

CRY03230 

CRY032 40 

CRY032 50 

CRY032 60 

CRY03270 

CRY03280 

CRY032 90 

CRY03300 

CRY03310 

CRY033 20 

CRY03330 

CRY03340 

CRY033 50 

CRY033 60 

CRY03370 

CRY03380 

CRY033 90 

CRY03400 

CRY034 1 0 

CRY034 20 

CRY03430 

CRY034 40 

CRY034 50 

CRY034 60 

CRY034 70 

CRY034 80 

CRY034 90 

CRY03500 
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CALL MES SAG { BNMSG5 ,100,' ABUT ' , ' ABUT' ) 

IF (NCR .EQ. 1) THEN 
C CONVECTION, PUT OUT L/C H 

CALL BASALF (' L/CSTD' ) 

CALL MES SAG {' H - $',100, XPOS+0 . 68, YPOS) 

CALL RESET (' BASALF' ) 

ENDIF 

IF (NCR .EQ. 2) THEN 
C RADIATION, PUT OUT SCRIPT F 

CALL BASALF {'L/CGREEK' ) 

CALL MESSAG (' S$' , 100, XPOS+O . 68 , YPOS) 

CALL BASALF (' SCRIPT' ) 

CALL MESSAG (' F - $', 100, ' ABUT' ,' ABUT' ) 

ENDIF 

CALL RESET (' BASALF' ) 

CALL TRIPLX 

CALL REALNO (BNCOEF (IBND) ,-5, ' ABUT' ,' ABUT' ) 

CALL RESET (' HEIGHT' ) 

ENDIF 

501 CONTINUE 

C PUT NUMBERS ON OUTSIDE OF THE SPHERE AT EACH SECTOR 
DANGL«DTHETA*180./PI 
ANG-DANGL/2. 

RRRR - RADMAX+ SCALEF * 0 . 7 
CALL HEIGHT (0.10) 

DO 710 I»1 , NTHETA 
EYEM1-I-1 

ANGL-ANG+EYEM1 *DANGL 
CALL RLINT (I , ANGL, RRRR) 

710 CONTINUE 

CALL RESET ('HEIGHT') 

800 CALL ENDPL(O) 

RETURN 


ENTRY DUNPLT 

CALLED FROM GE0PLT « 8 > 

C ENTRY POINT TO CLOSE PLOT FILE WHEN EXITING FROM CRYOTRAN 

C 


900 CALL DONEPL 
RETURN 
END 

SUBROUTINE PLTCYL 


DIMENSION XTEMP (100) , YTEMP (100) , PREC (5) , XLINE (2) , YLINE (2) 

COMMON /TITL/ PTITLE 

COMMON /REGION/ NTHETA, NBETAS, BETA, RIN, TVOL, ROUT ( 9) , 

1 REGNS ( 9) , NLAYRS { 9) , TEMPS (9) , THICK (9) , 

2 THKLAY (9) , MATRLS (9) , MATNMS (9) , RGNNMS (9) 

COMMON /ULLAGE/ NLUL4, NLUL5, NTHU41 , RINMHH, PCTFUL, RADULG, TVULFT, 

1 CT , LG { 3 ) , L I QVAP ( 3 ) 

COMMON /HTXGRS/ NHX, HXTEMP (10) , NRHX (10) , NLHX (10) , 

1 NTHHX (10) ,LNGTHX (10) 

COMMON /STUFF/ NHTT, PI , CONVY, CONVR, THETAQ, DTHETA, NBASOS, ROUTSF, 
1 BNCOEF (2) 

COMMON /OUTSRC/ NQIN, QEFF 

COMMON/TOPBOT/NTOP, NBOT, NFTLAY, NSTLAY, NETLAY, NFBLAY, NSBLAY, 

* NEBLAY, ETRAT, EBRAT, FTTHK, FBTHK 

COMMON/CYDATA/CYLHGT, NCYLAY 

C 

LOGICAL REGNS 
LOGICAL NOSCAL 
C 

CHARACTER 1 " 1 CT , LG 
CHARACTER* 6 LI QVAP 
CHARACTER* 1 REGNO 
CHARACTER* 1 6 MATNMS 
CHARACTER* 25 RGNNMS 
CHARACTER* 80 PTITLE 
C 

CHARACTER* 2 NUM 


CRY035 10 

CRY03520 

CRY03530 

CRYQ3540 

CRY03550 

CRY03560 

CRY03570 

CRY03580 

CRY035 90 

CRY03600 

CRY03610 

CRY03620 

CRY03630 

CRY03640 

CRY03650 

CRY036 60 

CRY03670 

CRY03680 

CRY03690 

CRY03700 

CRY03710 

CRY03720 

CRY03730 

CRY03740 

CRY03750 

CRY03760 

CRY03770 

CRY03780 

CRY037 90 

CRY03800 

CRY03810 

CRY03820 

CRY03830 

CRY03840 

CRY038 50 

CRY038 60 

CRY03870 

CRY03880 

CRY038 90 

CRY03900 

CRY03910 

CRY03920 

CRY03930 

CRY03940 

CRY03950 

CRY03960 

CRY03970 

CRY03980 

CRY03990 

CRY0 4000 

CRY04010 

CRY0 4020 

CRY04030 

CRY04040 

CRY04050 

CRY04060 

CRY04070 

CRY04080 

CRY040 90 

CRY04100 

CRY0411Q 

CRY041 20 

CRY04130 

CRY041 40 

CRY04150 

CRY04160 

CRY0 4170 

CRYO 41 80 

CRY041 90 

CRY04200 
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CHARACTER* 6 RLABLE, ULLG 
CHARACTER* 8 REGLAB 
CHARACTER* 10 RADIUS 
CHARACTER* 17 NOSMSG 

CHARACTER* 20 QMSG1,QMSG2, QMSG4, HXMSG1 

CHARACTER* 4 QMSG3, TEQMSG 

CHARACTER* 6 DEGMSG 

CHARACTER* 10 NNOMSG 

CHARACTER* 20 NOHX 

CHARACTER* 20 BNMSG1 , BNMSG5 

CHARACTER* 20 CONRAD (2) 

DIMENSION PROUT {5) , PTHICK (5) 

DIMENSION R ( 500) , THETA ( 500) 

DATA REGLAB/' REGION '/, RADIUS/' RADIUS (IN) ' / 

DATA ULLG/' ULLAGE' / 

DATA NOSMSG/' PLOT NOT TO SCALE'/ 

DATA NOHX/ 'NO HEAT EXCHANGER'/ 

DATA TEQMSG/' T- $' / 

DATA DEGMSG/' DEG $' / 

DATA NNOMSG/ ' NODE NO. $' / 

DATA QMSG1 /'SOURCE Q INTO ALLS'/ 

DATA QMSG2 /'OUTER SURFACE NODESS'/ 

DATA QMSG3 /'Q- $' / 

DATA QMSG4 /' (BTU/ (HR-IN2) ) $' / 

DATA BNMSG1 /'OUTSIDE BNDY NODE $' / 

DATA BNMSG5 /' TO SURFACES'/ 

DATA CONRAD (1) /'CONVECTIONS'/ 

DATA CONRAD (2) /' RADIATIONS' / 

DATA HXMSG1 /'HEAT EXCHANGER NO. $'/ 

C 

C INITIALIZE OUTPUT TO (1) QMS PRINTER OR TO (2) TERMINAL SCREEN 
PRINT 2001 

2001 FORMAT {///' IN THE SPHERE PLOTTING ROUTINE'/ 

1 ' SEND THE* GRAPH TO ' / 

2 '1. THE QMS PRINTER'/ 

3 '2. THE TERMINAL SCREEN'/ 

4 ' TYPE IN 1 OR 2') 

CALL READIN ( IDV, 1, 3) 

IF ( I DV .EQ. 1) CALL QMS2 

IF (IDV .EQ. 2) CALL IBM52 (31 79, 0, 0, 0) 

C NEW SUBROUTINE CALL FROM DAVE HUBLER TO ALLOW USER TO CHOOSE DEVICE 
IF (IDV .EQ. 3) CALL PDEV (' ',ISTAT> 

C SET PAGE SIZE 

CALL PAGE (11.0,8.5) 

C SET SUBPLOT SIZE 

CALL AREA2D (8 .0, 8.0) 

CALL GRAF (0 . , 10 . , 40 0 . , 0 . , 10 . , 400 . ) 

CALL TRIPLX 

C SCALE REGION THICKNESSES UP IF REAL SCALE IS TOO SMALL 
NOSCAL -.FALSE. 

SCALEF -RIN/20 . 

DO 5 1-1,5 
PROUT (I) -ROUT (I) 

PTHICK {I ) -THICK ( I) 

IF (REGNS (I ) ) THEN 

IF (THICK { I ) .LT. 1.) THEN 
PTHICK (I) - THICK (I) +SCALEF 
NOSCAL -.TRUE. 

ENDIF 

ENDIF 

5 CONTINUE 

IF (NOSCAL) THEN 
THKSUM-0 . 0 
DO 7 1-1,3 
IF (REGNS (I)) THEN 

THKSUM-THKSUM+ PTHICK (I) 

PROUT ( I ) -RIN+THKSUM 


CRY04210 

CRY04220 

CRY04230 

CRY04240 

CRY04250 

CRY04260 

CRY04270 

CRY04280 

CRY04290 

CRY04300 

CRY04310 

CRY04320 

CRY04330 

CRY04340 

CRY04350 

CRY04360 

CRY04370 

CRY04380 

CRY0 43 90 

CRY04400 

CRY044 10 

CRY044 20 

CRY04430 

CRY04440 

CRY04450 

CRY044 60 

CRY04470 

CRY04480 

CRY044 90 

CRY04500 

CRY04510 

CRY04520 

CRY04530 

CRYO4540 

CRY04550 

CRY04560 

CRY04570 

CRY04580 

CRY04590 

CRY04600 

CRY04610 

CRY04620 

CRY04630 

CRY04640 

CRY04650 

CRY04660 

CRY04670 

CRY04680 

CRY04690 

CRY04700 

CRY04710 

CRY04720 

CRY04730 

CRY04740 

CRY047 50 

CRY047 60 

CRY04770 

CRY04760 

CRY047 90 

CRY04800 

CRY04810 

CRY0 4820 

CRY04830 

CRY04840 

CRY048 50 

CRY048 60 

CRY04870 

CRY048BO 

CRY048 90 

CRY04900 
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ENDIF 

7 CONTINUE 

IF (THICK (4 ) .LT. 1.) THEN 
PROUT (5) -RIN-PTHICK (4) 

PTHICK (5) -PROUT (5) 

ENDIF 

ENDIF 

RADMAX- AMAX1 (PROUT (1) # PROUT (2) , PROUT (3) ) 

C 

RSTEP-RADMAX/4 . 5 

c 

C WRITE THE PLOT TITLE 
C 

CALL ANGLE (90.) 

CALL MESSAG(NOSMSG,17#9.#5.0) 


IF (NBOT.EQ.2) THEN 
XTEMP (1) -300 
YTEMP (1) -150 
XTEMP 12) -325 
YTEMP (2) -150 
XTEMP (3) -325 
YTEMP (3) “250 
XTEMP (4) -300 
YTEMP (4) -250 
CALL THKCRV (0.02) 

CALL CURVE (XTEMP , YTEMP, 4 , 0) 
CALL THKCRV (0.01) 

RAD-25. /NFBLAY 
XTEMP (1) “300 
YTEMP (1) -150 
XTEMP (2) -300 
YTEMP (2) -250 
DO 33 1-1# NFBLAY-1 

XTEMP ( 1 ) -XTEMP (1) + RAD 
XTEMP (2 ) -XTEMP (1) 

CALL CURVE (XTEMP, YTEMP , 2, 0) 
33 CONTINUE 

YTEMP (1) -250. 

YTEMP (2) -250. 

DO 30 1-1# 5 

IF (REGNS(I)) THEN 


IF 

(I.EQ.l) 

SCALE 

- 10 

IF 

(I.EQ.2) 

SCALE 

- 10 

IF 

(I.EQ.3) 

SCALE 

i 

h- 1 

o 

IF 

(I.EQ.4) 

SCALE 

- 40 

IF 

(I.EQ.5) 

SCALE 

- 30 

CALL THKCRV (0.02) 



XTEMP (1) -300 

XTEMP (2) -325 

YTEMP (1 > -YTEMP (1) -SCALE 

YTEMP (2) -YTEMP (2) -SCALE 

CALL CURVE (XTEMP# YTEMP# 2,0) 

CALL RESET ('THKCRV') 

ENDIF 
30 CONTINUE 

RAD-250. 

XTEMP (1) -300 
XTEMP (2) -325 
DO 32 1-1, 5 

IF (REGNS(I)) THEN 

IF (I.EQ.l) SCALE-10 
IF (I.EQ.2) SCALE-10 
IF (I.EQ.3) SCALE-10 
IF (I.EQ.4) SCALE-40 
IF (I.EQ.5) SCALE-30 


CRY04910 

CRY04920 

CRY04930 

CRY04940 

CRY04950 

CRY04960 

CRY04970 

CRY04980 

CRY04990 

CRY05000 

CRY05010 

CRY0 5020 

CRY0 5030 

CRY05040 

CRYO 5050 

CRY05060 

CRYO 5070 

CRY05080 

CRY05090 

CRYO 51 00 

CRYO 51 10 

CRYO 5120 

CRYO 51 30 

CRYO 51 40 

CRYO 51 50 

CRY05160 

CRY051 70 

CRY051 80 

CRYO 5190 

CRY05200 

CRY05210 

CRY05220 

CRY05230 

CRY052 40 

CRY05250 

CRYO 5260 

CRY05270 

CRYO 5280 

CRY05290 

CRYO 5300 

CRY05310 

CRY05320 

CRY05330 

CRY05340 

CRY05350 

CRYO 53 60 

CRY05370 

CRY05380 

CRY053 90 

CRY05400 

CRY054 10 

CRYO 54 20 

CRY05430 

CRYO 54 40 

CRYO 54 50 

CRYO 54 60 

CRY054 70 

CRY05480 

CRY05490 

CRY05500 

CRYO 5510 

CRY05520 

CRY05530 

CRY05540 

CRY05550 

CRYO 55 60 

CRY05570 

CRY05580 

CRY05590 

CRYO 5600 
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31 


RAD - RAD - SCALE 

CRY05610 

YTEMP (1) -RAD 

CRY05620 

YTEMP (2) -RAD 

CRY0563Q 

DO 31 J-l, NLAYRS (I ) -1 

CRY05640 

YTEMP (1) -YTEMP (1) + (SCALE/NLAYRS (I) ) 

CRY05650 

YTEMP (2) -YTEMP (2) + (SCALE/NLAYRS (I) ) 

CRY05660 

CALL THKCRV (0.01) 

CRY05670 

CALL CURVE {XTEMP, YTEMP, 2, 0) 

CRY05680 

CALL RESET { ' THKCRV' ) 

CRY05690 

CONTINUE 

CRY05700 

ENDIF 

CRY05710 

CONTINUE 

CRY05720 

ENDIF 

CRY05730 

CRY05740 

IF (NTOP.EQ.2) THEN 

CRY057 50 

XTEMP (1) -7 5 

CRY05760 

YTEMP (1) -150 

CRY057 70 

XTEMP (2) -100 

CRY05780 

YTEMP (2) -150 

CRY0 57 90 

XTEMP (3) -100 

CRYO 5800 

YTEMP (3) -250 

CRY05B10 

XTEMP (4} -75 

CRY058 20 

YTEMP (4) -250 

CRY05830 

XTEMP (5) -75 

CRY058 40 

YTEMP (5) -150 

CRYO 58 50 

CALL THKCRV <0.02) 

CRY05860 

CALL CURVE (XTEMP, YTEMP, 5, 0) 

CRY05870 

CALL THKCRV (0.01) 

CRY05880 

RAD-25 . /NFTLAY 

CRY058 90 

XTEMP (1) -75 

CRY05900 

YTEMP (1) -150 

CRY05910 

XTEMP (2) -75 

CRY05920 

YTEMP (2) -250 

CRYO 5930 

DO 733 1-1 , NFTLAY-1 

CRY05940 

XTEMP (1 ) -XTEMP ( 1 > +RAD 

CRY05950 

XTEMP ( 2 ) -XTEMP { 1 } 

CRY05960 

CALL CURVE (XTEMP, YTEMP, 2, 0) 

CRY05970 

CONTINUE 

CRY05980 


730 


YTEMP (1) -250. 

CRYO 5 9 90 
CRY06000 

YTEMP (2) -250. 

CRY06010 

DO 730 1-1,5 

CRY06020 

IF (REGNS(I)) THEN 

CRYO 6030 

IF (I.EQ.l) SCALE - 10 

CRYO 6040 

IF (I.EQ.2) SCALE - 10 

CRYO 6050 

IF (I. £0.3) SCALE - 10 

CRY06060 

IF (I.EQ.4) SCALE - 40 

CRY06070 

IF (I.EQ.5) SCALE - 30 

CRYO 6080 

CALL THKCRV (0.02) 

CRYO 60 90 

XTEMP (1) -75 

CRYO 61 00 

XTEMP (2) -100 

CRY061 10 

YTEMP (1) -YTEMP (13 -SCALE 

CRY06120 

YTEMP (2) -YTEMP (2) -SCALE 

CRYO 6130 

CALL CURVE (XTEMP, YTEMP, 2,0) 

CRYO 6140 

CALL RESET ('THKCRV') 

CRY06150 

ENDIF 

CRYO 61 60 

CONTINUE 

CRY061 70 

RAD-250. 

CRYO 6180 
CRY061 90 

XTEMP (1) -75 

CRYO 6200 

XTEMP (2) -100 

CRY06210 

DO 732 1-1,5 

CRYO 6220 

IF (REGNS (I ) ) THEN 

CRY06230 

IF (I.EQ.l) SCALE-10 

CRY06240 

IF (I.EQ.2) SCALE-10 

CRYO 62 50 

IF (I.EQ.3) SCALE-10 

CRYO 62 60 

IF (I.EQ.4) SCALE-40 

CRY06270 

IF (I.EQ.5) SCALE-30 

CRY06280 

RAD - RAD - SCALE 

CRYO 6290 

YTEMP (1) -RAD 

CRYO 6300 
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YTEMP (2) -RAD 

DO 731 J-l , NLAYRS ( I ) -1 

YTEMP (1) -YTEMP (1) + (SCALE/NLAYRS (I) ) 
YTEMP (2) -YTEMP {2) + (SCALE/NLAYRS (I) ) 
CALL THKCRV (0.01) 

CALL CURVE (XTEMP, YTEMP, 2,0) 

CALL RESET ( ' THKCRV' ) 

731 CONTINUE 
ENDIF 

732 CONTINUE 
ENDIF 
RAD - 100 


IF (NBOT.EQ.3.0R.NBOT.EQ.4) THEN 
IF (NBOT.EQ.3) NUMLAY - NSBLAY 
IF (NBOT.EQ.4) NUMLAY - NEBLAY 
NUMINT - I NT (100/NUMLAY) 

INTER - INT (100/NUMINT } 

XI - 300 
Y1 - 150 
BAD - 100 
RADINT - RAD/100. 

XTEMP (1) - XI + RAD 

YTEMP <11- (((RAD**2.) - ( (XTEMP (1) -XI) **2 .))** (1 ./2 .) ) + Y1 
DO 1 1-2,100 

XTEMP (I) -XTEMP (1-1) - RADINT 

YTEMP (I ) - ( ( (RAD** 2 . ) - ( (XTEMP (I) -XI) * ‘2 . ) ) ** (1 . /2 . ) ) +Y1 
1 CONTINUE 

CALL THKCRV (0.02) 

CALL CURVE (XTEMP , YTEMP, 100, 0) 

CALL RESET ( * THKCRV' ) 

ANG - 90. /NUMLAY 
ANG - (PI/180.) *ANG 

DO 65 J - 1, NUMLAY- 1 
TOT ANG - J* ANG 
XLINE (1) -300 

YLINE (1) -150 

XLINE (2) -300 + (100 * COS (TOTANG) ) 

YLINE (2) -150 + (100 * SIN (TOTANG)) 

CALL CURVE (XLINE, YLINE, 2,0) 

65 CONTINUE 

DO 11 J— 1 t 5 

IF ( REGNS ( J) ) THEN 

IF (J.EQ.l) SCALE - 10 

IF (J.EQ.2) SCALE - 10 

IF (J.EQ.3) SCALE - 10 

IF (J.EQ.4) SCALE - 40 

IF (J.EQ.5) SCALE - 30 

RAD - RAD - SCALE 

RADINT - RAD / 100. 

XTEMP (1) - XI + RAD 

YTEMP (l)-< ( (RAD**2.)-{ (XTEMP (1 > -XI) ** 2 . ) > ** (1 . /2 . ) ) +Y1 
DO 12 1-2,100 

XTEMP (I ) -XTEMP ( I — 1 ) “ RADINT 

YTEMP (I ) - ( ( {RAD * *2. ) “ ( (XTEMP (I) -XI) **2.) ) * * (1./2.) ) + Y1 
12 CONTINUE 

CALL THKCRV (0.02) 

CALL CURVE (XTEMP, YTEMP, 100, 0) 

CALL RESET {'THKCRV' ) 

RAD2 - RAD 

DO 71 1=1 , NLAYRS ( J) 

RAD2 - RAD2 + (SCALE/NLAYRS (J) ) 

RADINT - RAD 2 / 100. 

XTEMP (1) - XI + RAD 2 

YTEMP (1) - ( ( (RAD2**2 .)-{(XTEMP(l)-Xl) **2.)) **(l./2.)> + 

DO 81 K-2,100 

XTEMP (K) - XTEMP (K-l) - RADINT 

YTEMP (K)-(((RAD2**2.)-( (XTEMP (K) -XI) **2. ) ) ** (1 ./2. ) ) +Y1 
91 CONTINUE 


CRY06310 
CRY0 6320 
CRY0 63 30 
CRY0 63 40 
CRY06350 
CRY063 60 
CRY06370 
CRY0 6380 
CRY0 63 90 
CRY06400 
CRYO 6410 
CRY06420 
CRY06430 
CRY064 40 
CRYO 64 50 
CRY06460 
CRYO 64 70 
CRY06480 
CRYO 64 90 
CRYO 6500 
CRYO 65 10 
CRYO 65 20 
CRY06530 
CRY065 40 
CRY06550 
CRY06560 
CRYO 6570 
CRY06580 
CRYO 65 90 
CRYO 6600 
CRYO 6610 
CRYO 6620 
CRYO 6630 
CRY06640 
CRY06650 
CRYO 6660 
CRY06670 
CRYO 6680 
CRYO 66 90 
CRYO 6700 
CRYO 67 10 
CRYO 67 20 
CRYO 67 30 
CRY06740 
CRY06750 
CRY06760 
CRYO 67 70 
CRY06780 
CRYO 67 90 
CRYO 6800 
CRY068 10 
CRY06820 
CRY06830 
CRYO 6640 
CRYO 6650 
CRYO 68 60 
CRYO 6870 
CRY06880 
CRYO 68 90 
CRYO 6900 
CRY06910 
CRY06920 
CRY06930 
CRY06940 
CRY06950 
CRY06960 
CRYO 6970 
CRYO 6980 
CRY06990 
CRY07000 
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CALL THKCRV (0.01) 

CALL CURVE (XTEMP , YTEMP , 100,0) 
CALL RESET ('THKCRV' ) 

71 CONTINUE 
ENDIF 

11 CONTINUE 
RAD - 100. 

XTEMP (1) -300 
XTEMP (2) -300 + RAD 
XVBOT-XTEMP (2) 

YTEMP (1) -150 
YTEMP (2) -150 
CALL THKCRV (0.02) 

CALL CURVE (XTEMP, YTEMP / 2, 0) 

CALL RESET ('THKCRV' ) 

ENDIF 

RAD - 100. 

XTEMP (1) -300 
XTEMP (2) -300 
XTEMP { 3 ) -100 
XTEMP (4) -100 
XTEMP (5) -300 
YTEMP (1) -150 
YTEMP (2) -150 + RAD 
YTEMP (3) -1 50 + RAD 
YTEMP (4) -150 
YTEMP (5) -150 
CALL THKCRV (0.02) 

CALL CURVE (XTEMP, YTEMP, 5, 0) 

CALL RESET ('THKCRV') 

XTEMP ( 1 ) - 100 
XTEMP (2) - 300 
YTEMP (1) - 150 + RAD 
YTEMP (2) - 150 + RAD 
DO 13 J - 1 , 5 
IF (REGNS(J)) THEN 

IF (J.EQ.l) SCALE - 10 
IF (J.EQ.2) SCALE - 10 
IF (J.EQ.3) SCALE - 10 
IF (J.EQ.4) SCALE - 40 
IF (J.EQ.5) SCALE - 30 
YTEMP (1) - YTEMP (1) - SCALE 
YTEMP (2) - YTEMP (2) - SCALE 
YA - YTEMP (1) 

YB - YTEMP (2) 

CALL THKCRV (0.02) 

CALL CURVE (XTEMP, YTEMP, 2, 0) 

CALL RESET ('THKCRV') 

RAD2 - RAD 

DO 73 1-1 , NLAYRS ( J) 

RAD2 - RAD 2 + (SCALE/NLAYRS ( J) ) 
RADINT - SCALE/NLAYRS (J) 

XTEMP ( 1 ) - 100. 

YTEMP (1)- YTEMP (1) + RADINT 
XTEMP (2) - 300. 

YTEMP (2)- YTEMP (2) + RADINT 
CALL THKCRV (0.01) 

CALL CURVE (XTEMP, YTEMP, 2,0) 

CALL RESET ('THKCRV') 

73 CONTINUE 

YTEMP (1) - YA 
YTEMP (2) - YB 
ENDIF 

13 CONTINUE 

XTEMP ( 1 ) - 100 
SCALE - 200./NCYLAY 
DO 14 1-1 , NCYLAY 

XTEMP (1) - XTEMP (1) + SCALE 
XTEMP (2) - XTEMP (1) 


CRY070 10 

CRY07020 

CRY07030 

CRY07040 

CRY07050 

CRY07060 

CRY07070 

CRY07080 

CRY070 90 

CRY07100 

CRY071 10 

CRY071 20 

CRY07130 

CRY07140 

CRY071 50 

CRY071 60 

CRY071 70 

CRY071 80 

CRY071 90 

CRY07200 

CRY072 10 

CRY07220 

CRY07230 

CRY07240 

CRY07250 

CRY07260 

CRY07270 

CRY07280 

CRY07290 

CRY07300 

CRY07310 

CRY07320 

CRY07330 

CRY07340 

CRY07350 

CRY073 60 

CRY07370 

CRY07380 

CRY073 90 

CRY07400 

CRY074 10 

CRY074 20 

CRY07430 

CRY07440 

CRY074 50 

CRY074 60 

CRY07470 

CRY074 80 

CRY07490 

CRY07500 

CRY07510 

CRY07520 

CRY07530 

CRY07540 

CRY075 50 

CRY07560 

CRY07570 

CRY07580 

CRY075 90 

CRY07600 

CRY07610 

CRY07620 

CRY07630 

CRY07640 

CRY07650 

CRY07660 

CRY07670 

CRY07680 

CRY07690 

CRY07700 
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YTEMP (1) - 150 

YTEMP (2) - YTEMP (1) + RAD 

CALL T H KC RV (0.01) 

CALL CURVE (XTEMP, YTEMP, 2, 0) 

CALL RESET ('THKCRV') 

14 CONTINUE 

IF (NTOP .EQ. 3.0R.NT0P.EQ.4) THEN 
IF {NTOP . EQ. 3} NUMLAY - NSTLAY 
IF (NTOP.EQ.4) NUMLAY - NETLAY 

XI - 100 
Y1 - 150 
RAD - 100. 

N’JMINT - INT ( 100/NUMLAY ) 

RADINT - RAD / 100. 

XTEMP (1) - XI + RAD 

YTEMP (1)- ( { (RAD** 2 . ) - ( (XTEMP ( 1 ) -XI ) * * 2 . } } ** (1 . / 2 . > ) +Y1 
DO 2 1-2,100 

XTEMP (I) -XTEMP (X-l) - RADINT 

YTEMP (I) - { { (RAD** 2. > - { (XTEMP { I ) -XI ) * * 2 . ) > * * {1 . /2 . ) > +Y1 

2 CONTINUE 

DO 3 1-1,100 

XTEMP (I) -200 - XTEMP (I) 

3 CONTINUE 

CALL THKCRV (0.02) 

CALL CURVE (XTEMP, YTEMP, 100, 0) 

CALL RESET ('THKCRV') 

ANG - 90./ NUMLAY 
ANG - (PI/180. ) * ANG 
DO 66 J - 1, NUMLAY- 1 
TOTANG - J* ANG 
XLINE (1) -100 

YLINE (1) -150 

XLINE (2) -100 + (100 * COS (TOTANG)) 

YLINE (2) -150 + (100 * SIN (TOTANG)) 

XLINE (1) - 200 - XLINE (1) 

XLINE (2) - 200 - XLINE (2) 

CALL CURVE (XLINE, YLINE, 2, 0 ) 

66 CONTINUE 
XTEMP (1) -0 
XTEMP (2) -100 
YTEMP (1) -150 
YTEMP (2) -150 
CALL THKCRV (0.02) 

CALL CURVE (XTEMP , YTEMP , 2, 0) 

CALL RESET ('THKCRV') * 

DO 21 J-l, 5 
IF (REGNS(J)) THEN 

IF (J.EQ.l) SCALE - 10 

IF (J.EQ.2) SCALE - 10 

IF (J.EQ.3) SCALE - 10 

IF (J.EQ.4) SCALE - 40 

IF (J.EQ.5) SCALE - 30 

RAD - RAD - SCALE 

RADINT - RAD / 100. 

XTEMP (1) - XI + RAD 

YTEMP ( 1 ) - ( ( { RAD * * 2 . ) - ( (XTEMP ( 1 ) -XI ) ** 2 . ) ) * *(1 . /2 * ) ) +Y1 
DO 22 1-2, 100 

XTEMP (I) -XTEMP (1-1) - RADINT 

YTEMP (I) * ( ( (RAD* *2. ) - ( (XTEMP (I) -XI) **2. ) ) ** (1 ,/2, ) ) + Y1 

22 CONTINUE 

DO 23 1-1,100 

XTEMP (I) -200 - XTEMP (I) 

23 CONTINUE 

CALL THKCRV (0.02) 

CALL CURVE (XTEMP, YTEMP, 100,0) 

CALL RESET ('THKCRV') 

RAD 2 - RAD 

DO 72 I -1 , NLAYRS ( J) 

RAD2 - RAD 2 + (SCALE/NLAYRS ( J) ) 


CRY07710 

CRY07720 

CRY07730 

CRY07740 

CRY07750 

CRY077 60 

CRY077 70 

CRY07780 

CRY077 90 

CRY07800 

CRY07810 

CRY07820 

CRY07830 

CRY07840 

CRY07850 

CRY078 60 

CRY078 70 

CRY07880 

CRY078 90 

CRY07900 

CRY07910 

CRY07920 

CRY07930 

CRYQ7940 

CRY07950 

CRY07960 

CRY07970 

CRY07980 

CRY07990 

CRY08000 

CRY08010 

CRY08020 

CRY08030 

CRY08040 

CRY08050 

CRY06060 

CRY08070 

CRY08080 

CRY080 90 

CRY08100 

CRY08110 

CRY081 20 

CRY08130 

CRY081 40 

CRY081 50 

CRY081 60 

CRY081 70 

CRY08180 

CRY081 90 

CRY08200 

CRY08210 

CRY082 20 

CRY08230 

CRY08240 

CRY08250 

CRY082 60 

CRY08270 

CRY08260 

CRY08290 

CRY08300 

CRY083 10 

CRY0B320 

CRYOB330 

CRY083 40 

CRY0B350 

CRY083 60 

CRY0 8370 

CRY083 80 

CRY08390 

CRY08400 
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RADINT - RAD 2 / 100. 

XTEMP (1) - XI + RAD 2 

YTEMP {!)-(( (RAD2**2 . ) - ( (XTEMP (1)-X1)**2.)} ** (1./2.)) + Y1 
DO 82 K-2,100 

XTEMP (KJ - XTEMP (K-l) - RADINT 

YTEMP (K) -{( (RAD2** 2 . ) - { (XTEMP <K) -XI) **2 . } ) ** {1 ,/2 . ) ) +Y1 
82 CONTINUE 

DO 53 IJ-1,100 

XTEMP (IJ) -200 - XTEMP ( I J) 

53 CONTINUE 

CALL THKCRV (0.01) 

CALL CURVE (XTEMP, YTEMP, 100, 0) 

CALL RESET ( ' THKCRV' > 

72 CONTINUE 
ENDIF 

21 CONTINUE 
RAD - 100. 

ENDIF 

CALL REALNO (CYLHGT/2 ., 4,300,150) 

CALL REALNO (CYLHGT/2 . , 4, 100, 150) 

IF (NBOT.EQ.2) THEN 

VALUE- (CYLHGT/2 . ) +FBTHK 
CALL REALNO (VALUE, 4 *, 325 , 150} 

ENDIF 

IF (NTOP.EQ.2) THEN 

VALUE- (CYLHGT/2.) +FTTHK 
CALL REALNO (VALUE ,4,75 ,150) 

ENDIF 

IF (NBOT. EQ.3.0R.NBOT .EQ. 4) THEN 
VALUE- (CYLHGT/2. ) + RIN 
CALL REALNO (VALUE, 4, XVBOT, 150) 

ENDIF 

IF (NTOP . EQ . 3 . OR. NTOP . EQ. 4) THEN 
VALUE- (CYLHGT/2 . ) + RIN 
CALL REALNO (VALUE, 4, 0, 150) 

ENDIF 

C PUT MESSAGE OF Q TO OUTSIDE SURFACE 
IF (NQIN .GT. 0) THEN 
CALL HEIGHT (0.1) 

XPOS-5.2 

YPOS-O.O 

CALL MESSAG (QMSG1, 100,XPOS, YPOS) 

CALL MESSAG (QMSG2, 100, XPOS+0 . 17, YPOS) 

CALL MESSAG (QMSG3, 100, XPOS+0 . 34 , YPOS) 

CALL REALNO (QEFF, 4, ' ABUT' , 'ABUT' ) 

CALL MESSAG (QMSG4, 100, 'ABUT' , 'ABUT' ) 

YPOS-O . 1 5 

CALL VECTOR (XPOS, YPOS+ 2 . 0, XPOS-O . 20, YPOS+2 .5,1001) 

CALL VECTOR (XPOS, YPOS+2. 0, XPOS-0. 40, YPOS+2 .3,1001) 

CALL VECTOR (XPOS, YPOS+2. 0, XPOS, YPOS+2. 6, 1001) 

CALL VECTOR (XPOS, YPOS+2. 0, XPOS+0. 20, YPOS + 2 . 5 , 1 001 ) 

CALL VECTOR (XPOS, YPOS + 2. 0, XPOS+0. 40, YPOS + 2. 3, 1001) 

CALL RESET (' HEIGHT' ) 

ENDIF 

C PUT MESSAGE OF OUTSIDE BOUNDARY NODES 
DO 501 IBND-1 , 2 

IF (TEMPS (IBND+5) .NE. -9999.9 .AND. NLAYRS (IBND+7) .GT. 0) THEN 
XPOS-2.5 + (IBND-1) *1.3 
YPOS-0. 5 

CALL HEIGHT (0.1) 

NODENO-20300+I BND 

CALL MESSAG (BNMSG1, 100, XPOS, YPOS) 

CALL INTNO (IBND, ' ABUT' ABUT' ) 

CALL MESSAG (NNGMSG, 100, XPOS+0 . 17 , YPOS) 

CALL INTNO (NODENO, ' ABUT' , ' ABUT' ) 

CALL MESSAG (TEQMSG, 1 00 , XPOS+0 . 34 , YPOS) 

CALL REALNO(TEMPS (IBND+5) , 2, ' ABUT' ABUT' ) 


CRY084 10 

CRY084 20 

CRY08430 

CRY08440 

CRY084 50 

CRY084 60 

CRY084 70 

CRY0B480 

CRY084 90 

CRY08500 

CRY08510 

CRY08520 

CRY08530 

CRY08540 

CRY08550 

CRY08560 

CRY08570 

CRY08580 

CRY08590 

CRY08600 

CRY08610 

CRY08620 

CRY08630 

CRY08640 

CRY08650 

CRY08660 

CRY08670 

CRY08680 

CRY08690 

CRY08700 

CRY08710 

CRY08720 

CRY0B730 

CRY08740 

CRY087 50 

CRY087 60 

CRY08770 

CRY08780 

CRY08790 

CRY08800 

CRY08810 

CRY08B20 

CRY08830 

CRY08840 

CRY088 50 

CRY088 60 

CRY08870 

CRY08880 

CRY08890 

CRY08900 

CRY08910 

CRY08920 

CRY08930 

CRY08940 

CRY08950 

CRY08960 

CRY08970 

CRY08980 

CRY08990 

CRY09000 

CRY0 9010 

CRY0 9020 

CRY0 9030 

CRY0 9040 

CRY0 9050 

CRY09060 

CRY0 9070 

CRY09080 

CRY0 9090 

CRY0 91 00 
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CALL MESSAG (DEGMSG, 100 , ' ABUT' , ' ABUT' ) 

CALL MESSAG (MATNMS (9) , 1, ' ABUT' , ' ABUT' ) 

NCR-NLAYRS (IBND+7) 

CALL MESSAG (CONRAD (NCR) , 100, XPOS+O . 51, YPOS) 

CALL MESSAG (BNMSG5, 100, ' ABUT' , 'ABUT' ) 

IF (NCR .EQ. 1) THEN 
C CONVECTION, PUT OUT L/C H 

CALL BASALF (' L/CSTD' ) 

CALL MESSAG (' H - $', 100, XPOS+O . 68, YPOS) 

CALL RESET ('BASALF') 

ENDIF 

IF (NCR .EQ. 2) THEN 
C RADIATION, PUT OUT SCRIPT F 

CALL BASALF (' L/CGREEK' ) 

CALL MESSAG (' S$' , 1 00 , XPOS+O . 68 , YPOS) 

CALL BASALF ('SCRIPT' ) 

CALL MESSAG ('F - S', 100, ' ABUT' ,' ABUT' ) 

ENDIF 

CALL RESET (' BASALF' ) 

CALL TRIPLX 

CALL REALNO (BNCOEF (I BND) , -5, ' ABUT' , ' ABUT' } 

ENDIF 

501 CONTINUE 

IF (NHX.EQ.O) THEN 
XPOS-O. 6 
YPOS-5.2 

CALL MESSAGE (NOHX, 100, XPOS-O . 17, YPOS) 

ENDIF 

IF (NHX.GT.O) THEN 
DO 503 I-1,NHX 

XPOS-O. 6+ (I-D *1-1 

YPOS-5.2 

NODENO- 20000+1 

CALL MESSAG (HXMSG1 , 100, XPOS-O . 17 , YPOS) 

CALL INTNO (I , ' ABUT' , ' ABUT' ) 

CALL MESSAG (NNOMSG, 100, XPOS, YPOS) 

CALL INTNO (NODENO, ' ABUT' , ' ABUT' ) 

CALL MESSAG (TEQMSG, 100, XPOS+O . 17 , YPOS) 

CALL REALNO (HXTEMP (I) , 2, 'ABUT' , 'ABUT' ) 

CALL MESSAG (DEGMSG, 100, ' ABUT' , ' ABUT' ) 

CALL MESSAG (MATNMS (9) , 1, 'ABUT' , 'ABUT' ) 

CALL MESSAG ( ' ON LAYER S' , 9, XPOS+O . 34 , YPOS) 

CALL INTNO (NRHX (I) , ' ABUT' , 'ABUT' ) 

CALL MESSAG (' IN REGION 11 ,' ABUT' ,' ABUT' ) 

CALL INTNO (NLHX (I) , ' ABUT' , 'ABUT' ) 

CALL MESSAG ('STARTING AT LEVEL 19, XPOS+O .51, YPOS) 

CALL INTNO (NTHHX (I) , 'ABUT' , ' ABUT' ) 

CALL MESSAG { ' AND COVERING S' , 13, XPOS+O . 68, YPOS) 

CALL INTNO (LNGTHX (I) , ' ABUT' , ' ABUT' ) 

CALL MESSAG (' NODE (S) . S' , 9, ' ABUT' , ' ABUT' ) 

503 CONTINUE 
ENDIF 

CALL ENDPL(O) 

RETURN 

END 


CRY091 10 
CRYO 91 20 
CRYO 9130 
CRYO 91 40 
CRYO 91 50 
CRYO 91 60 
CRYO 91 70 
CRY09180 
CRY09190 
CRYO 9200 
CRYO 9210 
CRY09220 
CRYO 9230 
CRY09240 
CRYO 92 50 
CRY092 60 
CRYO 9270 
CRYO 9280 
CRYO 92 90 
CRYO 9300 
CRYO 93 10 
CRYO 93 20 
CRY09330 
CRY093 40 
CRYO 9350 
CRYO 9360 
CRYO 9370 
CRYO 9380 
CRYO 93 90 
CRYO 94 00 
CRY094 10 
CRY09420 
CRYO 9430 
CRYO 9440 
CRYO 9450 
CRYO 94 60 
CRYO 9470 
CRYO 94 80 
CRYO 94 90 
CRY09500 
CRY09510 
CRYO 9520 
CRYO 9530 
CRYO 9540 
CRYO 95 50 
CRYO 95 60 
CRY09570 
CRY09580 
CRYO 95 90 
CRY09600 
CRYO 9610 
CRYO 9620 
CRYO 9630 
CRY09640 
CRY09650 
CRYO 9660 
CRYO 9670 
CRYO 9680 
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APPENDIX E 


CryoTran Program Listings 


Part V VM Exec Files 
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VM Exec File RUNCRYO EXEC 


/* THIS EXECUTES PROGRAM CRYOTRAN */ 

/* THIS EXEC DOES NOT ACCESS THE PLOTTING ROUTINES */ 

/* USE WHEN RUNNING NON-SINDA TYPE CASES OR WHEN */ 

/* PLOTS ARE NOT NEEDED. */ 

/•FILEDEF FT04F001 DISK MATERIAL DBASE FOR THE MATERIAL DBASE* / 
/*FILEDEF FT10F001 DISK FN FT FM*/ 

FILEDEF FT04F001 DISK MATERIAL DBASE M 

FILEDEF FT09F001 DISK CRYOTRAN INPUTEKO 

FILEDEF FT10F001 DISK CRYOTRAN MODEL 

FILEDEF FT17F001 DISK PROGRAM OUTPUT 

FILEDEF FT25F001 DISK H2 TABLE M 

FILEDEF FT26F00I DISK 02 TABLE M 

FILEDEF FT27F001 DISK N2 TABLE M 

FILEDEF FT35F001 DISK SCRATCH 

FTNLIB 

LOAD CRYOTRAN ' { ' CLEAR 
INCLUDE CRYOSPHR 
INCLUDE CRYOCYL 
INCLUDE CRYVMSUB 
INCLUDE CRYOPLOT 
START 

FILEDEF CLEAR 
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VM Exec RUNCRYO 


/• THIS EXECUTES PROGRAM CRYOTRAN */ 

/* ACCESS GRAPH3D OR NECESSARY JCL TO ACCESS DISSPLA*/ 

/ * FI LEDEF FT04F001 DISK MATERIAL DBASE FOR THE MATERIAL DBASE*/ 
/* FI LEDEF FT10F001 DISK FN FT FM*/ 

SETUP DISSPLA 
SETUP GDDM 
DRUN CRYOPLOT 

FILEDEF FT04F001 DISK MATERIAL DBASE M 
FILEDEF FT09F001 DISK CRYOTRAN INPUTEKO 
FILEDEF FT10F001 DISK CRYOTRAN MODEL 
FILEDEF FT20F001 DISK H2 TABLE M 
FILEDEF FT21F001 DISK 02 TABLE M 
FILEDEF FT22F001 DISK N2 TABLE M 
FILEDEF FT17F001 DISK PROGRAM OUTPUT 
FTNLIB 

LOAD CRYOTRAN ' ('CLEAR 
INCLUDE CRYOSPHR 
INCLUDE CRYOPLOT 
INCLUDE CRYOCYL 
INCLUDE CRYCHATO 
START 

FILEDEF CLEAR 


VM Exec CRYOLINK 


/* THIS EXECUTES contains the commands to link the 
PROGRAM CRYOTRAN */ 

FTNLIB 

LOAD CRYOTRAN ' ('CLEAR 
INCLUDE CRYOSPHR 
INCLUDE CRYOCYL 
INCLUDE CRYVMSUB 
INCLUDE CRYOPLOT 
START 

FILEDEF ' CLEAR 
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VM Exec NEWD2 


/* 

/* 

/* 

/* 

/* 

/* 

/** 

/* 

/* 

/* 

/* 


******tiM*»************»***********M************* 

it**************************************************** 
* 

* EXEC TO RUN STAND-ALONE DISSPLA version 11.0 

* with Utilization of Temporary Working Storage 


> * * * * 
* * * * * 


i * * * * 
> * * * * 
• * * * * 
> * * * * 


******* 


Based on Vendor-Supplied Tellaplan Exec 
With File Handlers by TAC and Jim McKim 
*** Development by Todd Cebriak ***** 

*** p or Greg Follen PBX 3-5193 

*** modified Tor Disspla by 

*** Dale Hubler 11/14/80 ***** 

phone 61-6697 ***** 

******** 

******** installed 16 JAN 87 
******** nasA LEWIS RESEARCH ********** 


*********** 


************ ********** 

***************** *************** 

***************** Graphics by *************** 

***************** CA-ISSCO *************** 

***************** *************** 

*********************** 


********** 




********/ 
********/ 
*****/ 
*****/ 
*****/ 
***** j 
********/ 
******** j 
********/ 
******* f 

********/ 

********/ 
********/ 
********/ 
********/ 
******** j 
********/ 
********/ 
********/ 
********/ 


/‘TRACE E */ /* for debugging*/ 

arg fname ' {' options ')' 

/*.******* GET FILE NAME AND OPTIONS OR OFFER HELP SCREEN *******/ 

if fname - ' V 1 fname - 'HELP' then do 

call Getoptions ? 

end 

if fname - ' ' then /*A valid filename must be given*/ 
do 

VMFCLEAR 

say; say; say; say; say 

SAY 'A valid filename of the form "filename FORTRAN" is required 
say 'please enter the name of your FORTRAN source file' 
parse upper pull fname . 
state fname fortran 
if rc A - 0 then do 

say 'DISSPLA source file ' fname 'FORTRAN not found' 
call exit_exec -93 
end 
end 


'globalv select ISSCOGRP' /‘temporary global variables indicate*/ 
' globalv stack DIS110'/*if user has seen option screen once*/ 
pull or,cethru/*durlng current IPL*/ 
if oncethru - 1 then do 

options - options) ]' fake_option' 
end 

/ * y 'options now are ' options */ 

call Getoptions options /‘parse options entered on command line*/ 
DISSPOPT - 1 

'globalv select ISSCOGRP set DIS110' DISSPOPT 


/*•*** DETERMINE NEED FOR FURTHER STORAGE ACQUISITION ““*/ 
majtebuf 

'query stor (stack' /‘check user's memory - DISSPLA needs 6meg*/ 
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pull . . storage . 

storage - left (storage, length { storage) -1 } /‘drop the K*/ 
dropbuf 

if storage < 6144 then do /‘test for 6 meg of memory*/ 
say 

say 'There is not enough virtual storage for DISSPLA 11.0' 

say 'More virtual storage has been allocated.' 

say 'Please type IPL CMS, and then restart DISSPLA.' 

say 'To permanently change your memory enter;' 

say ' — > VMSECURE MAI STOR 6M ' 

say ' and then logoff and log back on to make the new' 
say ' storage allocation available ' 

' cp def stor 6m' 

end 

/<**•*»*•****** S et UP ACCOUNTING OF DISSPLA USE *********/ 

/* user got filename and options right * / 

/* and he has enough memory so record usage of software */ 

set cmstype ht 

vmacct pack start disspla 

vmacct pack end /*set up vmaccount software to count # of uses*/ 
set cmstype rt 

/***•* ACQUIRE TEMPORARY STORAGE *****/ 
call qdisk 
workdisk - result 

wd - result /* I am lazy, workdisk Is too long & takes too much space*/ 


say 

say 'Assigning temporary storage destination to disk ' workdisk 
say 

TDISK 10 workdisk 


/ 


SETUP LIBRARIES NEEDED BY ISSCO **********/ 


GLOBAL TXTLIB D110MOD /*ADD LIBRARIES USED FOR PACKAGE*/ 

/•libraries are added in the same order as 
the execs supplied by CA-ISSCO*/ 

If testing-' YES' 

then do /* if TEST option is called*/ 

addiib disman / *add . 1 ibrary of test plots*/ 

end 


select 

when gks f 1 le-' YES' then do /*if GKS option is called*/ 
addiib gksliba /*add gks library*/ 


otherwise do 

addiib disllOa /‘otherwise add disspla A-library*/ 

end 

end /*end the select clause*/ 


addiib dlsllOb /*add disspla B-library in either case*/ 

addiib intlib /‘always need device driver library*/ 

If rc 0 then say 'DISSPLA product not linked - do SETUP DISSPL11' 


/ * ' q loadl ib' 
cp sleep 5 sec*/ 

global loadlib dynlib /‘load dldd drivers*/ 

if versatec - 'VERS11' } versatec - ' VERS4 2' J versatec - 'VERSVU' 
then do 

addiib clr /*add versatec color random library*/ 

end 

/•addiib clr */ /‘add it to resolve references in testing*/ 


SELECT 
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when tektronx 


- 'TEK' then do 

} * do nothing - do not use gddm library - it will*/ 
/♦cause problems with tek terminals*/ 

otherwise do 

setup gddm /*gddm library interferes with tek calls*/ 

end 

END 

setup ft n /*add fortran libraries*/ 
if tlib - YES then do 

say 'You have requested an additional txtlib to be searched for 
say 'programs' 

say 'Please enter the name of the library “■> ' 
parse upper pull addlib_name . 
addlib addlib_name 
end 

/*' QUERY TXTLIB' */ /* USED FOR DEBUGGING*/ 

/*'CP SLEEP 5 SEC' */ 

/*•*** SA vE ENVIRONMENT AND BEGIN ISSCO INITIALIZATION *****/ 


/***** SET TERMINAL ENVIRONMENT AS REQUESTED BY ISSCO PRODUCTS *****/ 

call Sa veTer mi na lEnvironment 
ma kebu f 

'query blip (stack' 
pull . . bllp_state . 

'query idrtbls (stack' 
puli . . loader_tables . 

dropbuf 
' set blip off' 

' set Idrtbls 15' 

'set msg off' 

'set wng off' 

'terminal linesize 255' 

'terminal escape off' 

'terminal linend off' 

'terminal linedel off' 

'terminal chardel off' 

/*•*** ISSUE ISSCO-REQUI RED AND SITE-SPECIFIC FILEDEFS *****/ 

/*' q filedef';say 'are the fdefs' */ 

/ * cp sleep 5 sec*/ 
call f i le_def initions 

/** q filedef';say 'are the filedefs after ' */ 

/ * cl sleep 5 sec*/ 

/*,♦•******* COMPILE PROGRAM AND RUN ********************/ 

if A cryof lag then do /*thls do group created to bypass normal*/ 
/♦normal way to load and run*/ 

/♦added for G. Cowgill at Analex*/ 

/♦end of this loop has commands for runcryo*/ 
/♦program*/ 


genmodule=0 

call GeLFileAge fname fortran 
src age * result 

call GetFileAge fname text 
txt_age - result 

call GetFileAge fname module 
mod__age - result 
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if src_age<0 & txt_age<0 4 mod_age<0 then 
do 

SAY ' OISSP LA flource program ' fname ' FORTRAN not found' 
call scrat ch_tdlsk workdisk 
call exlt_exec -93 
end 

if src_age > txt_age 4 src_age > mod_age then 
do 

genmodule-1 

/ * Y ' THE SOURCE AGE IS ' SRC_AGE 
say 'the txt age is ' txt_age 
SAY 'THE MODULE AGE IS ' MOD_AGE 
CP SLEEP 5 SEC */ 
fortvs fname 
if rc > 4 then do 

say 'there are errors in the source program ' fname 
call scrat ch_tdi sk workdisk 
call exit_exec rc 
end 

mod_age - -99 
end 

If txt_age > mod_age then 
do 

genmodule-1 
say relinking 
load fname 
if rc > 4 then do 

say 'there are errors in the link edit - condition code ' rc 
call scratch_tdisk workdisk 
call exit_exec rc 

end 


/* create a module if so directed */ 
if genmodule then 
do 

say fname ' load module being generated 9 

genmod fname 
end 

ena 

/■•••* RUN DISSPLA MODULE *•***/ 

say 

say 'Now loading DISSPLA . . . ' 
say 

set msg off 

if txt_age > mod_age then 
do 

start 

end 

if mod_age > txt_age then 
do 

'run' fname 'module' 
end 

if rc<>0 t hen 
do 

say 'non-zero return code from DISSPLA. Return code is ' rc 

return_code - rc 

end 

else do 

ret urn_code-0 

end 

set msg on 

end /*end of do if not cryo*/ 
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/•cryocryo*/ 

else do /‘must be cryoflag is 1*/ 

/ *y 'into the cryo part for compiling'*/ 

cryoli nk 

return__code - 0 

genmodule - 0 

end 

/*.*** OFFLINE GRAPHICS DATA FILE DETECTION AND PROCESSING *****/ 

if noplot 1 then noplot - 0 
if noplot then do 

call Scratch_tdisk workdisk 
call exit_exec return_code 
end 

call SavePrinterEnvironment 


/*** QMS FILES ***/ 

call IsThereFlle 'HP7550 or TALARIS, QMS LASER PRINTER', 'STD* DATA A' 


if queued () > 0 then do 


/*if no files in queue */ 
/* skip this part of exec*/ 


va 1 id_response - 0 

do until val id_response /*if they don't get it right the 1st*/ 
dropbuf /‘time make them answer till they do*/ 

say 

say 'Please choose the plotter to route your file to.' 
say ' Enter; ' 

sa y ' q - to route the file to a QMS plotter' 

say ' T - to route the file to a LIMS Talaris printer' 

say ' WP - to save an HPGL file to import into WordPerfect' 

sa y * H - to route the file to a LIMS HP7550 plotter' 

/**/ 

/*DH Remove following comment to enable users Postscript access*/ 

/**/ 

/ * s a y ' P - to route Postscript file to the VAX LPS40 printer'*/ 

parse upper pull plot ter_response 
/•SAY 'THE RESPONSE WAS ***' PLOTTER_RESPONSE' * **' */ 


if plotter_response - 
plotter_response - 
plotter_response - 
plot ter_response - 
plotter_response « 
plotter__response - 
else valid_response - 

end /*end of do until 


Q I, 

T I, 

P ), 

DH ), 

WP ), 

H then valid_response«l 
0 

val id_response loop*/ 


if PLOTTER_RESPONSE - DH then do /*hubler testing exit*/ 
exit -7550 

end /* end of do for HP7550 problems*/ 


select 

when plotter_response - WP then do 

say 'Please enter file mode for HPGL file' 
parse upper pull file_mode 

listfile ' std* data a (stack' /*put all QMS files (STDOOOOx) files*/ 
do while queued () >0 /* on the stack*/ 

pull filename typemode 

' copyf ' filename typemode filename ' hpgl ' file_mode 
if rc - 0 then erase filename typemode 

end 

/* hpgl_file-l */ 

end / * end of when WP*/ 

when piotter_response - Q then do 
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done • 'false' 
do while done - 'false' 
say 

say 'Please choose a QMS printer site for your data.' 

say ' 1) RAC' 

say ' 2) ERB' 

say ' 3) LGAOS (Analex) ' 

say 'Enter the number of your choice:' 

pull choice 

se lect 

when choice - 1 then do 

tag dev prt mvslercl rmt7 
done - 'true' 

end 

when choice - 2 then do 

tag dev prt mvslercl rmtlO 
done - 'true' 

end 

when choice - 3 then do 

tag dev prt mvslercl rmt34 
done - 'true' 

end 

otherwise do 
say 

say 'Improper selection ... Try again.' 
end /*end of otherwise clause*/ 
end /*end of select QMS from choiceof three*/ 
end /‘end of do while statement*/ 

spool prt nohold rscs 

listfile 'std* data a (stack' /*put all QMS files (STDOOOOx) files*/ 
do while queued () > 0 /* on the stack*/ 

pull filename 

/*we must reset QMS*/ 
/*to landscape mode*/ 

execio 1 diskw filename ' ( string A PY A -' 

/‘note that there are no spaces prior to execio string with cc opt*/ 
execio 1 diskw filename ' ( string A IOL A PN A -' /‘cause ISSCO*/ 

/*doesn' t */ 


print filename ' (nocc notrc li 00' 
erase filename 

end /‘end of do while queued after listfile*/ 

end /‘end of the first select clause for plotter_response* / 


.M...****Hm**Hm*iM*m#*iMito«M**/ 

/*This part of the exec sends an ISSCO QMS plot file to the */ 

/ * LIMS Talaris printers or HP 7550 plotters*/ 

when plotter_response * T ] plotter_response ■ H then do 

/*** send to Talaris or HP7550? ***/ 

if plotter_response - T then do 

tp - T 

end 

else do 
tp - P 
end 

/* get the user and device ID's **/ 

makebuf 

'q cons (stack' 

pull 

pu 1 1 

pull . . user . /*get the user Id*/ 
dropbu f 

vmf c lear 

SAY 'Please enter the Talaris printer or HP plotter ID you want your' 
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say 'plot sent to' 
say * for example;' 

say ' enter B142B1 for the Talaris or HP7550 on the RAC second floor' 

say ' or B500B1 for the Talaris or HP7550 on the DEB second floor' 

say ' or B501L1 for the Talaris or HP7550 in the DEB annex' 

say ' etc.' 

parse upper pull t_d 

/** check for Interlink software and link if not found **/ 
call Access Interlink 


/** send to device **/ 

'listflle std* data a (stack' /*put list of plot files on stack*/ 
do while queued () > 0 

pull filename /‘take names off stack and send them*/ 


/•it******************************************************************/ 

/»*** Interlink Modification due to VMS upgrade ********************/ 
/***•**«•************************************************************/ 

' nft send lims02::'t d] ] tp' : ' user' . vm ' filename ' /nocc' 

/* V 

/* above is replacement nft command until LIMS bug due to VMS 5.1 */ 

/* upgrade of June 25 is fixed. Then below 2 nft commamnds will also*/ 
/* work. * / 

/* v 

/* V 

/* 'nft send 1 imsOl ; : ' user ' . vm ' filename ' /nocc' */ 

/* ' cp smsg decmcs cmd limsOl print/delete/queue-' t_d' _' tp user' .vm'*/ 

/**»***•*************************************************************/ 


/********* erase file sent to device **********/ 
erase filename /*clean up after ourselves*/ 

end /*end of do while*/ 


/****** remove link to nft software ******/ 

If we_li nked_to_nft then do 
set cmstype ht 

'release nftmode (det' /*bye bye nft software minidisk*/ 

set cmstype rt 

end 

end /*end of select clause for plotter_response - T*/ 

when plotterresponse - P then do /*this is for postscript files*/ 

say 'The file will be sent to the Postscript printer' 

set cmstype ht 

call Access_Interl ink 

' makebuf ' /*get user's bin number*/ 

bufno - rc 

' q cons (stack ' 

pu 1 1 ;pul 1; pul 1 .... bin . 

'dropbuf ' bufno 


'listflle st d* data a (stack' /‘put list of plot files on stack*/ 
do while queued() > 0 

pull filename /‘take names off stack and send them*/ 

xxx xx - Strip (userid () ) ]] strip (time (' s' } ) /‘make unique filename*/ 

'MAKEBUF' 
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buf no-rc 

queue "$ ASSIGN- bin "NASA$BIN" 

queue M S LPS40/P" xxxxx*. LPS" 

queue M $ DELETE" xxxxx" . LPS; * » 

queue "$ DELETE" xxxxx" . COM; * " 

queue *$ RENAME" xxxxx". LOG RACCESS.LOG" 

' execio 5 DISKW CA-LPS40 COM A (FINIS' 

dropbuf bufno 


/*send the files*/ 

' nft send venus"RACCESS REMACC2" : : ' xxxxx' . lps ' filename 
' nft send venus"RACCESS REMACC2" : : ' xxxxx' . com CA-LPS40 COM A' 

'nft submit venus"RACCESS REMACC2" xxxxx' . com' 

end /*end of queued file on stack*/ 

/♦cleanup time*/ 

if we__i tnked_to_nf t then 'release 'nftmode ' (det' 

/* REMOVE LINK TO NFT MINIDISK*/ 

'erase ca—lps40 com a' /*erase VMS COM file we made*/ 

'erase ' filename /‘erase CA plot file*/ 

end /*end of Postscript portion of select clause*/ 


otherwise /*if user entered anything other than Q or T*/ 

do 

set cmstype ht 

' list f 1 le std* data a (stack' /*list files left on user's minidisk*/ 
set cmstype rt 
do while queued (} > 0 
pull filename 

say 'DISSPLA: INVALID plotter_response - file not plotted' 

/* say 'plot file ' filename ' saved on disk without plotting' */ 
end /*end of do while queued>0*/ 
end /*end of otherwise part of select clause*/ 

ena /*end of entire large select clause*/ 

END / * END OF IF QUEUED>0 THEN DO AT TOP OF ROUTINE*/ 


/* * 3800 FILES and 3820 FILES ***************♦****/ 

call IsThereFile 'IBM 3800/3820', 'TAG* ADMIMAGE A' 
if queued!) > 0 then do 
dropbuf 
say 

say 'Please choose an IBM printer:' 
say 

say ' 1) IBM MODEL 3800' 

say ' 2) IBM MODEL 3820' 

say 

do until (opt=l ] opt-2 ] opt-3) 
say ' Enter 1 or 2 : ' 
pull opt 

end 

if opt -3 then do /*hubler uses option 3 to bail out*/ 
call exit_exec -3800 
end 

If opt-1 then do 
say 

say 'Your graphic data is being routed to the 3800 printer.' 
38XX 'A' OPT 

end 

else do 

say 

say 'Which IBM 3820 printer should the output be sent to?' 


C 
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say 

say 

' 1) 


say 

' 2) 


say 

' 3) 


say 

' 4) 


say 

' 5) 


say 

' 6) 

do 

say 

until (1< 


say 

' Enti 


pul 1 

loc 

end 


if 

loc 

- 1 1 

if 

loc 

- 2 

if 

loc 

- 3 

if 

loc 

- 4 

if 

loc 

- 5 

if 

loc 

- 6 

say 



RAC' 

10 X 10' 

DEB lat floor' 

DEB 3rd floor' 

IRT' 

Sverdrup Middleburg Hts. office' 


) loc-2 ] loc-3 ] loc-4 ] loc-5 ] loc-6) 
/♦choose location*/ 


1 

Enter 1, 2,3, 4, 5 or 6: 


then locname 
then locname 
then locname 
then locname 
then locname 
then locname 


'RAC' 

'10 X 10' 

'DEB 1st floor' 

'DEB 3rd floor' 

'IRT' 

'Sverdrup Middleburg Hts. 


office' 


say 'IBM 3020 printer at the 'locname 
say 

opt = loc+1 
3BXX 'A' opt 

end 

dropbuf 

end 


/* augment opt for 38XX */ 


/*•* MATRIX FILM RECORDER ***/ 

call IsThereFile 'matrix film recorder', laser_of f line 
If queued*} > 0 then do 
dropbuf 

say 'Your graphic data is being routed to the matrix film recorder.' 

' datesend' 

' copy f lerc31 header 'wd' lerc31 data 'wd' lerc31 data wd (replace 

'erase lerc31 header 'workdisk 

'listfile ' laser_of f line ' {stack' 

set imsg off /*set to off after debugging*/ 

detach OOe 

define 3800 as OOe 

'tag dev prt mvslercl rmtl2' 

' spool prt nohold rscs' 

CALL PRINTSTACKEDFILES ' (NOCC NOTRC LI 00)' 
detach OOe 

define printer as OOe 
set imsg on 

end 


/•*• VERSATEC FILES ***/ 

call IsThereFile 'Versatec plotter', 'file vrfdata 'workdisk 
if queuedO > 0 then do /*if true a flle e xi st - 3 */ 

dropbuf 

say 'Your graphic data is being routed to the Versatec plotter.' 

randout 

erase file vrfdata workdisk 
/* erase vers diag workdisk */ 

listfile 'file vr f out 'workdisk' {stack' 

set imsg off 

detach OOe 

define 3800 as OOe 

select 

when versatec - "VERS42" then do 

'tag dev prt mvslercl u4' 

end 

when versatec - "VERSll" then do 
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'tag dev prt mvalercl ulO' 
end 

when versatec - M VERS11VU H then do 

'tag dev prt mvslercl ulO' 

end 

otherwise do 

say '***Invalid Versatec plotter - ' versatec' *** ' 
end 
end 

spool prt nohold rscs 

call Pri nt StackedFi les ' (nocc notrc 11 00) ' 
detach OOe 

define printer as OOe 
set imsg on 

end 


/*•*■• DETECTION OF FILE ERROR *****/ 

set emsg off 
state file ftOOfOOl a 
if rc-0 then do 
say 

say 'The plot failed because of invalid options in PLOTPARM DATA' 
type file ftOOfOOl a 
erase file ftOOfOOl a 

end 

'state ' fname ' module a' /‘offer user option of deleting*/ 

if rc - 0 4 genmodule then do /‘source file load module*/ 

say ; say; say 

say 'A file -- ' fname 'MODULE — has been created on your A disk' 
say 'Would you like to have it deleted to conserve disk space? ' 
say 'Reply Y to have the module deleted' 
say ' or just hit enter to keep the file' 

parse upper pull de lete_response 
If de lete_response - ' Y' then do 
'erase ' fname ' module a' 
end 

'erase load map' 

e nd 


call scratch_tdisk workdisk /*now scratch temporary minidisk*/ 


set emsg on 

/**•** RESTORE PRINTER AND TERMINAL ENVIRONMENTS PRIOR TO ISSCO *****/ 
set cmst ype ht 

'filedef * clear' /*we are done - clear all flledefs*/ 

call RestorePrinterEnvironment /‘reset virtual printer settings*/ 

call RestoreTerminal Environment 

set blip blip_state 

set ldrtbis loader_tables 

set msg on 

set wng on 

say 'return_code value is ' return_code 
erase vscr tmp 
set cmst ype rt 
call exit exec return code 


/•**** SUBROUTINE: Acce ss_I nt er 1 i nk *************/ 

Access Interlink : procedure expose we_linked_to_nft nftmode 
set cmst ype ht 
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/* see whether nft software is linked yet*/ 


we_l lnked__to_nft -0 
state nft module 
If rc A - 0 then do 

we_li nked_to_nft - 1 

call qvirt 

ddsk-result 

call qdiek 

nftmode - result 

link decrtr 200 ddsk 

access ddsk nftmode 

end 

set cmstype rt 


/♦find an unused address for the minidisk*/ 
/♦find the next available filemode letter*/ 
rr /‘link to nft minidisk*/ 


return 


/*»* SUBROUTINE: SaveTerminalEnvironment ***/ 

SaveTermlnalEnvi ronment : procedure expose termlnal_envlronment 

/* save the current terminal environment in <terminal_envlronment> / 
terminal_env lronment ■ * ' 
makebuf 

query terminal ' (stack' 
do while queuedO > 0 
pull tmp 

terminal_envi ronment - terminal_environment tmp 

end 

termina l_env lronment - subst r (terminal_environment , 2) 

dropbuf 

ret urn 


/*«* SUBROUTINE: RestoreTerminalEnvi ronment ***/ 


Re s t or eTerminal Environment : procedure expose terminal_environment 
/* restore the terminal environment saved in <terminal_environment> / 
do while length (terminal_env lronment ) > 0 

t - 1 ndex (terminal^environment , ' ; 9 ) 

If i - 0 then i - length (terminal_env lronment ) + 1 
strg - left (terminai_environment / i-1) 
if length (strg> > 0 then do 
set emsg off 
terminal strg 
set emsg on 


end 

termina l_envl ronment - substr (termi nal_envi ronment, i+1) 

end 

return 


/*** SUBROUTINE: IsThereFlle ♦♦*/ 


IsThereFile: procedure 

arg device, filename 

makebuf 
set emsg off 

Mstflle filename '(stack' 
temp * rc 
set emsg on 
dr opbuf 


/♦This subroutine has been commented */ 
/♦to the point that it is merely a */ 
/♦return. We are now sending directly*/ 
/♦to the device and not allowing the*/ 
/♦the user the choice to store file on*/ 
/♦disk*/ 

/♦look for the given file name*/ 


if temp * 0 then do /*th© file exists*/ 

/• VMFCLEAR 
say 
say 

'There are graphic data file(s) for the offline' device 
say 'Do you want to send them to the device? (Y/N) ' 
pull ans 
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/* if ans - 'Y' then do */ /‘put filename on stack and return */ 
llstfile filename ' (stack' /‘temporarily while within the loop*/ 
return 
/* end */ 

/* say 'Do you want to delete them? (Y/N)' 

pull ans /‘after file has been output pull*/ 

if ans - 'Y' then do */ /‘name off stack and delete files*/ 

llstfile filename '{stack' 
do while queued () > 0 
pull name 
erase name 

end /*end of do while*/ 

return 

/* end*/ /‘end of if ans-y*/ 

end /*end of if temp-0*/ 

ret urn 


/*** SUBROUTINE: SavePrl nt erEnvi ronment *“/ 

SavePrlnterEnvironment : procedure expose tag_text spool_text 

/* copied from <print38 exec> */ 

makebuf 

before - queued {) 

execio cp '{' flfo string query virtual ur 

pul * response 

parse var response device . 
after - queued 0 

do while device A - ' PRT' £ after > before 
pull response 

parse var response device . 
after - after - 1 

end 

if after - before then do 
dropbuf 
say 

say 'virtual printer missing ‘error*' 
call exit_exec -99 

end 

parse var response . . , prt.cl prt.cont prt. hold 'COPY' prt.copy . 

pull . prt.for_to prt.whom . 

dropbuf 

makebuf 

/* get tag text */ 
rest - ' ' 
tag_text - ' ' 

execio ' *' cp ' (' fifo string tag query dev prt 
pull . . . rest 

if rest 'NOT SET' then pull tag_text 
i f prt f or_t o * ' TO' 

then spool text - prt.whom prt.cont copy prt.copy 
else spoo l_text - system prt.cont copy prt.copy 
d: opbul 
return 


/“* SUBROUTINE: RestorePrinterEnvironment “*/ 

RestorePrlnterEnvironment : procedure expose tag_text spool_text 

/* copied from print38 */ 

tag dev prt tag_text 

spool prt spool_text 

return 

/*•»* SUBROUTINE: Scrat ch_tdisk *“*/ 
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ecratch_tdisk : procedure 
arg workdi sk_mode 


/♦used if compile or link goes wrong*/ 
/♦also used at end of program*/ 


/♦say 'scratch tdisk routine entered 

'q disk (stack' 
pull 

do while queued{)>0 
pull . cuuadd mod . 
if (mod - workdi sk_mode) then do 
set cmstype ht 

'release ' workdisk_mode ' (det' 
set cmstype rt 
end 
end 
return 


& workdisk is' workdisk_mode*/ 

/♦put disks on stack*/ 

/* pull off header */ 

/♦get vaddr and mode*/ 

/♦look for our workdisk*/ 

/♦release mode and detach cuu*/ 


/*•* SUBROUTINE: PrlntStackedFiles ***/ 


PrintStackedFi les: procedure 

/* stack has queued filenames, print them all */ 

arg print_opts 

do while queued() > 0 
pull filename 

/♦say 'the filename stacked is ' filename */ 
print filename print_opts 
erase filename 

end 

ret urn 

/*♦♦ SUBROUTINE: TestPrintStackedFiles ***/ 


TestPrintStackedFi les : procedure 

/* stack has queued filenames, print them all */ 

arg print_opts 


do while queued() 
pull filename 
say 'the filename 
/* print filename 
erase filename 


> 0 

stacked is 
print_opt s 

*/ 


end 

return 


filename 


/* 


****** HELP SCREEN SUBROUTINE ******** 




Helpuser: procedure 
VMFCLEAft 

say 'This exec is for use in compiling and running your ' 

say 'DISSPLA program' 

say 

say ' ENTER:' 


say 
say ' 
say 
say ' 


DISSPLA fname (option' 

at the CMS prompt' 


say 

say 'where fname is the filename of your FORTRAN source program' 
say 'and option Is one of the following output devices:' 


say 

say 'TEK - a Tektronix model terminal' 
say ' VERS4 2 - the 42 inch Versatec plotter' 
say ' VERS1 1 - the 11 inch Versatec plotter' 
say ' VERSl 1 VU - the Versatec vlewgraph plotter' 
say ' GKS - a GKS standard file' 

say 'TEST - to use the library of test plots supplied by CA-ISSCO' 
say ' TXTLI B - to add a txtlib' 

say 'NOPLOT - to create plot file without sending to plot device' 

return 
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GetOptions: procedure expose 
arg options 


versatec tektronx gksfile testing, 
tllb noplot cryoflag 


versatec-' ' 
tektronx-' ' 
gksfile-' ' 
testing-' ' 
tllb-' ' 
noplot - 0 

cryoflag - 0 /*cryoflag added for use by Glenn Cowgill at Analex*/ 

do 1 - 1 until 1 >- words {opt Ions) 

option. 1 - word (opt i ons, i ) 

end 


If option. 1 - '' J option. 1 * '?' ] option. 1 - 'HELP' then do 
vmf clear 

SAY; SAY; SAY; SAY; SAY; SAY 

SAY ' Some options may be required' 

CP SLEEP 1 SEC 
call Helpuser 

say;say;say 'Would you like to continue? ' 
say 

say ' Enter Q to quit the exec ' 

say ' or Enter 0 to supply the options ' 

say ' or hit ENTER to continue' 

parse upper pull restart_response 
select ; 

when restart_response - 'Q' then do 

call exit_exec -92 /’"exit exec so user can restart*/ 
end 

when restart_response - '0' then do 

say 'Please type all desired options and hit ENTER' 
parse upper pull options 

do 1 - 1 until i >- words (opt ions) 

option.! - word (opt ions, i) 

end 

end 

otherwise do /*do nothing - continue with exec*/ 

end 

end/*end of select clause*/ 
end /*end of if options. 1 - ?*/ 


do j - 1 to words (opt ions) 

call Ident 1 fyoption option. j 

end /"end of identify option loop*/ 


rotu rn 


Ident i fy_opt ion: 
arg option 


procedure expose versatec tektronx gksfile testing, 
tlib noplot cryoflag 


/*y 'option passed to identify subroutine is ' option*/ 


select; 

when abbrev {' TEK' , opt ion) then 
tektronx - TEK 

when abbrev {' VERS11' , option, 4) then /*chars 'VERS' will*/ 
versatec-VERSll /*default to 2552 */ 

when abbrev (' VERS42' , opt ion, 4 ) then 
versatec - VERS42 
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when abbrev (' VERS11VU' , option, 4 } then 
versatec - VERS11VU 

when abbrev ('GKS' , option) then 
gksfile - YES 

when abbrev ('TEST', option) then 
testing - YES 

whan abbrev {'TXTLIB', option) then 
tlib - YES 

when abbrev {' NOPLOT' , option) then 
noplot - 1 

when abbrev {' CRYO' , option) then 
cryoflag - 1 

when abbrev (' FAKE_OPTION' , opt ion) then 
nop 

otherwise 

do 

say 'unrecognized option: 'option 
' cp sleep 3 sec' 
call Helpuser 
call exit_exec -94 
end /*end otherwise*/ 

end /*end of select clause*/ 

/* y versatec tektronx gksfile testing tlib */ 


return 

GetFileAge: procedure /*procedure to determine if compilation*/ 

arg ffname /*of user program is needed*/ 

makebuf 
bufno - rc 
set emsg off 

' list file' ffname '* ( date stack' 
rcode - rc 
set emsg on 
if rcode - 0 then 
do 

parse pull fname mo'/'da'/'yr hr':'mn':'sc 

tim - sc + mn* 100 + hr*10000 + da*l.O0+6 4- mo*1.0e+8 4- yr*1.0e + l 
end 
else 

tim - -1 
dropbuf bufno 
return tim 


ISSUE ISSCO-REQUIRED AND SITE-SPECIFIC FILEDEFS *****/ 

****** / 




*****/ 


/•WARNING WARNING WARNING ******* 

/* IF THE USER HAS HIS OWN COPY OF PLOTPARM OR IF SOME OTHER*/ 

/* MINIDISK HAS ONE THEN ROO AND PLOTPARM WILL NOT BE FILEDEFED*/ 

/* VERSATEC SOFTWARE WILL NOT BE RUN AND EXEC WILL END WITH AN ERROR*/ 
/* USER MUST NOT HAVE HIS OWN PLOTPARM FILE*/ 


file definitions: procedure expose versatec workdisk laser_off line 

/ * S ay 'versatec value is ' " *** "versatec” *** *" */ /*for debugging / 
IF versatec A - ' ' THEN DO 
makebuf 
bufno - rc 

'LISTFILE' VERS 11 PLOTPARM '* ( LIFO AL' 

relist - rc 
nfiles - queuedO 

/ * SAY RCLIST ' IS THE RETURN CODE'*/ 

/ * SAY NFILES ' IS THE NUMBER OF TIMES IT WAS FOUND' */ 
say 

if relist - 0 

then do queuedO 

parse pull . . fmode . 

/•SAY FMODE ' IS THE FILEMODE OF VERSll PLOTPARM' */ 
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end 

dropbuf bufno 

if relist - 0 & nfiles > 0 

then fm - subst r (fmode, 1 , 1 ) 

/•SAY FM ' IS THE FILEMODE DERIVED FOR VERS11'*/ 


IF versatec - 'VERS11' then do 

' FILEDEF PLOTPARM DISK VERS11 PLOTPARM ' FM 
end 

IF versatec “ 'VERS11VU' then do 

* FILEDEF PLOTPARM DISK VERSVU PLOTPARM ' FM 
end 

IF versatec “ 'VERS42' then do 

* FILEDEF PLOTPARM DISK VERS42 PLOTPARM ' FM 
end 

end 

' FILEDEF VRFDATA DISK FILE VRFDATA ' WORKDISK ' (XTENT 65535' 

'filedef vrfout disk file vrfout 9 workdisk 

/ * I LEDEF 23 DISK VSCR TMP ' WORKDISK' (XTENT 5000' */ /^COMMENTED 

by hubler to solve fortran traceback with A Lagin problem*/ 

'filedef 59 disk vers diag ' workdisk ' (reefm f lrecl 132 blksize 132' 

laser_of fline - 'lerc31 data 'workdisk /*QCR film recorder file*/ 
laser_header - ' lerc31 header ' workdisk /*QCR header info*/ 

b_of fline - ' lerc32 data 'workdisk 

/* qms offline ■ ' lercSQ data 'workdisk */ 

/* set emsg off */ 

/* erase laser_of fline */ 

/* erase b_of fline */ 

/* erase qms_of fline */ 
set emsg on 

/*'filedef 5 term (reefm f lrecl 80 blksize 80' 

'filedef 6 term (reefm f lrecl 132 blksize 132'*/ 

'filedef 31 disk ' laser_off line 
'filedef 68 disk ' laser_header 
'filedef 32 disk ' b_offline 
/* filedef 50 disk qms_offline */ 

return 

* SUBROUTINE: EXIT_EXEC ******************/ 

/* exit can have following return codes 
0 - normal completion 

-92 - no options provided so user chose to exit 

-93 - FORTRAN source file not found 

-94 - invalid option 

-99 - virtual printer missing 

B, I2,or 16 - VSFORTRAN or link edit errors 

-3800 - my own personal exit from 3800 part of exec (used to debug) 

*/ 

exit_exec: procedure 
arg exit_code 
exit exlt_code 
return 
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VM Exec PLOTQA 


/* plotq - print graphic stuff to the qms */ 
arg file name ' (' destination . 

default_name - "stdOQOOl data a" 

if length (flle_name) - 0 then file_name - default_name 
state f i le_name 
rcode - rc 

if rcode <> 0 then exit rcode 

/* tellagraf doesn't switch back to portrait orientation 
so we must issue the proper qms commands to do that V 
execio 1 diskw file_name "{ string A PY A -" 
execlo 1 diskw file_name ■ ( string A IOL A PN A -" 

/* determine the destination qms printer */ 
select? 

WHEN DESTINATION - 'ANAL.EX' THEN DESTINATION_NODE “ RMT34 

when destination - 'RAC' then dest inat lon_node - rmt7 

when destination - ' ERB' then dest inat ion^node - rmtlO 

when destination - 'DEB' then dest inat ion_node - rmt9 

otherwise do 
dropbuf 
done - “false" 
do while done - “false" 

say "Which QMS printer would you like to have your output sent to. 
SAY “ 1) ANALEX" 

SAY " 2) RAC" 

SAY " 3) ERB" 

SAY " 4) DEB" 

say "Enter the number of your choice:" 
parse upper pull choice 
select ? 

when choice - 1 then do 

DESTINATION_NODE - RMT34 

done - "true" 

end 

WHEN CHOICE - 2 THEN DO 

dest inat ion_node - rmt7 

done - "true" 

end 

WHEN CHOICE - 3 THEN DO 

dest inat ion_node - rmtlO 

done - "true" 

end 

WHEN CHOICE - 4 THEN DO 

dest inat ion^node - rmt9 

done - "true" 

end 

otherwise 

say "That is not an acceptable choice. Try again." 

end; 

end 

end 

end; 

tag dev prt mvsiercl dest i nation_node 
spool prt nohold rscs 
print file_name ' {' nocc notrc 11 00 
erase filename 
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VM Exec DOECLPLOT 


/• THIS EXECUTES PROGRAM ECLPLOT TO PRODUCE PLOTS FROM ECL PLOTFILE*/ 
/• WHICH CAME FROM CRAY. NAMED — SOLAPLOT CARDS — */ 

/* THE FILE FN FT IS A BINARY FILE WITH LRECL-2024 V 
/* COPY THIS FILE TO B-DISK USING COPYFILE*/ 

/* COPYFILE DOECLPLT EXEC A DOECLPLT EXEC B */ 

/* */ 

ARG FN FT FM . 

IF FN «' 7 
THEN 
DO 

SAY "ENTER FILENAME, FILETYPE AND FILEMODE" 

PULL FN FT FM 
END 

IF FT «' ' 

THEN 

DO 

SAY "ENTER FILENAME, FILETYPE AND FILEMODE" 

PULL FN FT FM 
END 

SETUP CONVDISK 
SETUP FTN 
GRAPH3D 

FILEDEF 08 CLEAR 
FILEDEF 09 CLEAR 
FILEDEF 59 CLEAR 

FILEDEF 08 DISK ECLPLOT INPTECHO 
FILEDEF 09 DISK FN FT FM 

FILEDEF 59 DISK ECLPLOT DEBUGOUT 7 (LRECL 132' 

LOAD ECLGRAPH ' {CLEAR NOMAP ORIGIN 30000' 

INCLUDE CHCFTR ' (NOMAP' 

START 

GTERM 
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APPENDIX E 


CryoTran Program Listings 

Part VI CRAY Script File to Execute SOLA ECLIPSE 


299 


•SOLA ECLIPSE SCRIPT FILE FOR UNICOS (BOURNE SHELL) 

♦VERSION 1.0 05/23/89 BY Glenn Cowglll 

I SOLA ECLIPSE ** SOLA ECLIPSE ** SOLA ECLIPSE ** SOLA ECLIPSE 

I 

♦ The Invocation of the script is as follows: 

♦ solaecl filename 

♦ where filename contains your input sola deck 

♦ which is on CRAY in the users root directory. 

I 

♦ The exit status la as follows: 

♦ 0 - Successful sola run 

♦ 1 - Unable to create temporary directory or input file does not exist 

♦ 2 - Loading errors from segldr 

I 3 - Errors in the execution of sola_eclipse 

♦ 

• Tne script variables are as follows: 

I exe_dir - directory where sola libraries, (solaxxxx . o) , exist. 

• solaecl. o, solaheat.o, solatherm.o 

f user_dir - this is directory from where the job is submitted 

f root_name « this is filename prefix of the input filename 

• 

exe_di r-"/ space/ cryol ib" 
user_dir- pwd 
root_name- basename "SI” 

« 

banner SOLA 
banner ECLIPSE 

echo This is the Hochstein Version of SOLA ECLIPSE, 
echo 

» 

I Let's check to see if the input file exists 

f 

IF { -F "51" } 
t hen 

else 

echo File "$1" does not exist in $user_dir. 
echo Try again, 
exit 0 
fi 

f 

echo Using "pwd" as the temporary directory for all user files, 
echo "user directory is" $(user_dir) 

t 

I echo "The model is file 51 $2" 

I fetch model -t' fn-' $1' , ft-' $2' , addr-191 ' 

• the fetch command is not in this procedure (shell) 

• the shell that the user makes up should fetch the model 

• and- invoke this shell to execute sola. 

• the user then submits this shell to the CRAY 
I 

###•• generate and compile main program 
cat >mainpgm.f << EOFM 
program solecl 
call mainpg 
end 

EOFM 

ctx.ll mainpgm.f 
•••If RUN PROGRAM 
I Linking main run 
cat >1 ibdi r<< libend 
lib- 5 { exe_dir } /solaecl . o 
lib- $ {exe_dir J/solaheat .o 
lib- 5 {exe_dir | /solatherm. o 
libend 
t 

segldr -k -M,s -o xqtecl mainpgm.o libdir >>"${ user_dir ) " .err 
IF f 5? -NE 0 } 

I Linking errors! Exit status - 2 
then 
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echo Unable to link your sola run with the sola libraries, 
echo Contact Dave Chato, 216-433-2845 
echo your output 1 b In file: **$ { user_dir} " . solarun 
cat *$ ( root_dir ) " .err » "$ { user_dir} solarun 
dispose "$ ( user_dir } M .solarun 
exit 2 
else 

echo M begin execution of sola eclipse" 
xqtecl < $1 > "$ { user_dir } ".solarun 

# 

fi 

I 

echo Your exit status from the sola run is "$?" 

IF | $? -NE 0 ) 

t Errors detected! Exit status - 3 
t hen 

echo Errors were detected in the sola eclipse run* 
echo check file: “${user_dir } " . solarun for your output, 
dispose H $ { user_d i r } M . hi s t ry -t # fn-sola # ft "history 
dispose " $ { user_dir } M .bugfyl -t' fn-sola, ft -bugfile' 
mv core M ${user_dir}".cor 
dispose M ${ userjdir} " .solarun 
dispose H user_dlr } " . cor 
exit 3 

else 

#MM Successful run 

fl##t dispose all files to front end 

echo " Successful sola eclipse run." 
echo M - dispose output files" 
echo output is in file: "${ user_dir solarun 
dispose " ${user_dir}“ .solarun 
dispose fort. 9 -t ' f n-sola , f t-plot f ile' 

M save restart file in Home directory filename- solarestart 
cat fort. 11 >> $ HOME/ so la res tart 

rm mainpgm.f mainpgm.o xqtecl libdir model 

rrr "$(root dir}". err "${user_dlr} ", solarun fort. 7 fort. 9 fort. 11 
exit 0 
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CSAM SCRIPT FILE FOR UNICOS (BOURNE SHELL) 

VERSION 1.0 05/23/89 BY Glenn Cowgill 

C SAM ** CSAM ** CSAM ** CSAM 

The Invocation of the script is as follows: 
crcsam filename 

where filename contains your input csam deck 
which is on CRAY in the users root directory. 

The exit status is as follows: 

0 - Successful csam run 

1 = Unable to create temporary directory or input file does not exist 

2 - Loading errors from segldr 

3 - Errors in the execution of csam/sinda 

The script variables are as follows: 

csam dir - directory where csam library, (csam.o) , exists. 

user~d ir - this is directory from where the job is submitted 


csam di r-" /space /cry ol ib" 
user_dir- pwd 

# 

banner CSAM 

banner CSAM 

echo " This is CSAM” 

echo Using “pwd” as the temporary directory for all user fil 
echo “user directory is” ${user_dlr| 

« 

echo “ generate the main program” 
cat >mainpgm.f << EOFM 
program csam 
call mpcsam 
end 


EOFM 

echo ” compile the main program” 

cft77 mainpgm. f 

ftftf RUN PROGRAM 

echo " Linking main run” 

cat >libdir<< libend 

lib- $ (csam_dir}/csam.o 

libend 

I 

echo " segldr” 

segldr -k -M, s -o xqtcsam mainpgm. o libdir >>"$ { user_dir } " . err 
IF { $? -NE 0 } 

« Linking errors! Exit status - 2 
then 

echo Unable to link your csam run with the csam library, 
echo Contact Dave Chato, 216-433-2845 
echo Your output is in file: "$ ( user_dir } ” . csamrun 
cat " $ { user_dir } ".err » ”${ user_di r csamrun 
dispose ”${ user_d ir csamrun 
exit 2 
else 

echo ” begin execution of csam” 
xqtcsam < SI > ”$( user_di r | csamrun 

f f I* f 
# 

f i 


» 

echo Your exit status from the csam run Is ”$?” 

IF ( $? -NE 0 } 

# Errors detected! Exit status - 3 
then 

echo Errors were detected in the csam run. 
echo Check file: ”S { user_dir) csamrun for your output, 
dispose ”${ user_di r }". csamrun 
H exit 3 
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else 

tt##f Successful run 

t#f#l dispose all files to front end 

echo " Successful csam run." 
echo * - dispose output files" 

echo Output is in file: •'$ { user_dir } " . csamrun 
dispose "${ user_dir )". csamrun 
Mdispose plots -f BB -t ' f n-sola # f t-plot f i le' 
rm mainpgm.f mainpgm.o xqtcsam libdir model 
rm "$i user_dir ) ".err H $ { user di rf •*. csamrun 
exit 0 
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Table 1 


Units Used in CryoTran 


Input Variable 

Time 

Time Increment 

All Temperatures 

All Lengths 

Areas 

Internal heat source 
(heat generation in a node 

or on a surface) 

Capacitance of each 

diffusion node 

Conductor Values 

Conduction Conductor 

Convection Conductor 

Radiation Conductor 

(where: cross section area of heat flow) . 

Thermal conductivity of material 

Heat capacity of material 

Density of material 

Length of conductor path 

Film coefficient 

Stefan-Boltzman Constant 

Surface emissivity 

View Factor 


Symbol 


T 

1 

A 


Units 

Hrs 

Hrs 

°F or °R 
in 


Q 

c=c p *p .. 

G 

G=A*k/l 

G=Ah 

G=a*e*f*A 

A 

k 

C P 

rho 

1 

h 

0=0.173x10^ 

e 

f 


BTU/hr 

BTU/°F 

BTU/hr-°F 


BTU/hr-in-°F 

BTU/lb-°F 

lb/in 3 

in 

BTU/hr-ft 2 -°F 

BTU/hr-ft 2 -°R 4 

0<f<l 
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Table 2 


Fortran Files and Units 


FORTRAN units and file names used in CryoTran: 


Logical 

Unit 

No. 

File Name (alias) 

04 

MATERIAL DBASE M 

05 


06 


09 

CRYOTRAN INPUTEKO 

10 

CRYOTRAN MODEL 

17 

PROGRAM OUTPUT 

25 

H2 TABLE M 

26 

02 TABLE M 

27 

N2 TABLE M 

35 

Scratch file 

36 

Scratch file 



Status at end 

Description 

of Program 

Material properties database 

CRYOLIB M disk 

Standard input 


Standard output 


Echo of input typed in by user 

User A disk 

Model output 

User A disk 

Output of program executed 

User A disk 

interactively on VM 


H2 property data 

CRYOLIB M disk 

02 property data 

CRYOLIB M disk 

N2 property data 

CRYOLIB M disk 

Used in sub READAL 

Gone 

Used in sub INSERT 

Gone 

Used in sub INSERT1 

Gone 


FORTRAN units used by SIND A on the Cray: 


Logical 

Unit 

No. 

File Name (alias) 

Description 

05 


Standard input 

06 


Standard output 

04 

LUT1 

Actual/relative dictionary 

12 

LB3D 

Input data after the SINDA preprocessor has executed 

13 

LB4P 

5 FORTRAN programs generated by the SINDA preprocessor 

14 

MIN 

Matrix input tape 

15 

LUT3 

Parameters runs data 

16 

MOUT 

Matrix output unit 

21 

LUT7 

Recall data file 

22 

STAPE 

Store data file 

27 

INTERN 

Prepro scratch unit 

28 

NEDIN 

EDIT input 

29 

nedout 

EDIT output 
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INDIVIDUAL CRYOGENIC FLUID ANALYTICAL MODELS 



FLOWCHART OF CRYOTRAN 


MAIN PROGRAM 



FIGURE 2 
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f ;p Of SPHERE WITH WEDGE 


WEDGE SHOVING ANGLE THETA 



TYPICAL NODE 



TYPICAL NODAL CONFIGURATION 


FIGURE 3. - SKETCHES SHOWING SPHERICAL WEDGE. 
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FIGURE 6. 
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HEAT EXCHANGER NO. 1 
NODE NO. 20001 
T= 101.00 DEG F 
ON LAYER 1 IN REGION 1 
STARTING AT LEVEL 1 
AND COVERING 1 NODE(S) 

HEAT EXCHANGER NO. 2 
NODE NO. 20002 
T= 104.00 DEG F 
ON LAYER 2 IN REGION 2 
STARTING AT LEVEL 2 
AND COVERING 2 NODE(S) 


figure 8 


Plot Sample of Cylinder 


PLOT NOT TO SCALE 
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MAIN PROGRAM 


FLOW DIAGRAM OF CRYOTRAN 1 



FIGURE 9-1 
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SUBROUTINE SINTRU 


FLOW DIAGRAM OF CRYOTRAN 2 


4 
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FLOW DIAGRAM OF CRYOTRAN 3 


43 
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FIGURE 9-3 
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CYLCDS CYLNDS SPIICDS 
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FLOW DIAGRAM OF CRYOTRAN 5 
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FIGURE 9-5 
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FLOW DIAGRAM OF CRYOTRAN 6 
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FIGURE 9-6 
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